Path: csiph.com!aioe.org!qjt8OK8UAkoL5j+neYIRqA.user.46.165.242.75.POSTED!not-for-mail
From: Christopher Self <cself@btinternet.com>
Newsgroups: comp.sys.acorn.programmer
Subject: dragging a text icon by its outline
Date: Wed, 03 Aug 2022 20:13:36 +0100
Organization: None
Message-ID: <5a124fe1d2cself@btinternet.com>
Injection-Info: gioia.aioe.org; logging-data="14918"; posting-host="qjt8OK8UAkoL5j+neYIRqA.user.gioia.aioe.org"; mail-complaints-to="abuse@aioe.org";
User-Agent: Pluto/3.18 (RISC OS/5.29) NewsHound/v1.52-32
X-Notice: Filtered by postfilter v. 0.9.2
Xref: csiph.com comp.sys.acorn.programmer:6405

I'm trying to drag an icon around a window using the icon's outline, but
it keeps boxing my compass.

What's wrong with this, please?:

 PROCget_window_state (play_agenda_win%, minx%, miny%, maxx%, maxy%,
scrollx%, scrolly%, behind%)
 PROCget_icon_outline (play_agenda_win%, icon%, icminx%, icminy%, icmaxx%,
icmaxy%)
 REM draw dragbox for current icon
 block!4  = 5
 block!8  = icminx% + (scrollx% - minx%)
 block!12 = icminy% + (scrolly% - maxy%)
 block!16 = icmaxx% + (scrollx% - minx%)
 block!20 = icmaxy% + (scrolly% - maxy%)
 block!24 = minx%
 block!28 = miny%
 block!32 = maxx%
 block!36 = maxy%
 SYS "Wimp_DragBox",,block


I've bodged it so far with:

 block!8  = minx% + 8
 block!12 = maxy% - (scrolly% - icminy%)
 block!16 = maxx% - 8
 block!20 = maxy% - (scrolly% - icmaxy%)

But I don't understand why that works.

-- 
Christopher Self