Path: csiph.com!eternal-september.org!feeder.eternal-september.org!nntp.eternal-september.org!.POSTED!not-for-mail
From: Paul Stewart <phorefaux@gmail.com>
Newsgroups: comp.sys.acorn.programmer
Subject: End Drag and Wimp_SendMessage 18 DataSave
Date: Sat, 20 Dec 2025 22:32:13 GMT
Organization: A noiseless patient Spider
Lines: 62
Message-ID: <a772638e5c.Paul@phorefaux>
Injection-Date: Sat, 20 Dec 2025 23:09:51 +0000 (UTC)
Injection-Info: dont-email.me; posting-host="237d6f93289d186b8b5402af8963dc1d"; logging-data="2473017"; mail-complaints-to="abuse@eternal-september.org";	posting-account="U2FsdGVkX19W0E14ZRcfQVe0k9KxZk86"
User-Agent: Messenger-Pro/9.00 (MsgServe/9.00) (RISC-OS/4.42) NewsHound/v1.54
Cancel-Lock: sha1:r0B1MXexlvBEx7baaTGcirbDNXM=
X-Editor: EmailEdit 2.04
Xref: csiph.com comp.sys.acorn.programmer:6574

Hi guys,

Hoping someone can point out where I'm going wrong!

Having slight issue with Wimp_SendMessage DataSave.
Trying to do a save window.
I have created my save window and done the drag to filer window okay.  I'm 
able to drag to the filer window and release.
Getting stuck after I go into my end drag routine.
Not getting any error messages, everything looks like it is working okay, 
but having called SYS"Wimp_SendMessage",18 at end of the procedure, 
nothing happens!
Returns to my poll loop but not generating event 18 for me to then move 
onto the next bit.  The procedure is completing and returning to the poll 
loop.

Here is both my Poll loop and the end drag routines.  Hoping someone can 
point out where I've messed up.

DEF PROCpoll
    SYS "Wimp_Poll",,b% TO r%
    CASE r% OF
        WHEN 2: SYS "Wimp_OpenWindow",,b%
        WHEN 3: SYS "Wimp_CloseWindow",,b%
                CASE b%!0 OF
                     WHEN wh_main%: quit%=TRUE
                     WHEN wh_fwhosts%: PROCicon_deleteallicons(b%!0)
                     WHEN 
wh_fwdiscs%:wh%=wh_main%:PROCicon_deleteallicons(b%!0)
                     WHEN wh_fwhostdiscs%:PROCicon_deleteallicons(b%!0)
                ENDCASE
        WHEN 6: PROCmouse_click
        WHEN 7: PROCmouse_drag_end
        WHEN 9: PROCmenu_click
        WHEN 17,18: PROCreceive
    ENDCASE
ENDPROC
:
DEF PROCmouse_drag_end
    SYS "Wimp_GetPointerInfo",,b%
    b%!20=b%!12:REM destination window handle
    b%!24=b%!16:REM destination icon handle
    b%!28=b%!0:REM destination x coordinate
    b%!32=b%!4:REM destination y coordinate
    b%!36=1024
    b%!40=&DFE
    a$=$savestr%+CHR$0:REM get leafname
    $(b%+44)=a$:REM leafname of file
    !b%=44+((LEN a$) DIV 4)*4:REM length of block
    IF LEN a$ MOD 4<>0 THEN !b%+=4
    b%!12=0:REM your_ref for original message
    b%!16=1:REM Message_DataSave
    b%!8=0
    b%!4=task%
    SYS"Wimp_SendMessage",18,b%,b%!20,b%!24
ENDPROC



-- 
Paul Stewart
Sent from A9home running RISC OS 4.42