From: | David McMinn |
Date: | 14 Jun 2001 at 10:22:53 |
Subject: | Re: activate a gadget |
Hi amorel
> Ok, I can now keep a (gt)gadget activated after it has been pressed. I`d like
> to know how I can activate a (gt)gadget(making it look pressed) without
> pressing it.
Here's a function I use (I hope it's the working version :) to press a
gadget and release it for a short time (to make it look like it's been
clicked on) without actually pressing it.
; Turns gadget on then off
Statement HighlightGad{windownum.w, gtlistnum.w, gadgetid.w}
DEFTYPE.w gadpos
DEFTYPE.Gadget *g
DEFTYPE.Window *w
*g = GTGadPtr(gtlistnum, gadgetid)
*w = Peek.l(Addr Window(windownum))
; Toggle the gadget on and redraw it
gadpos = RemoveGadget_(*w,*g)
*g\Flags = *g\Flags | #GFLG_SELECTED
AddGadget_ *w,*g,gadpos
RefreshGList_ *g,*w,0,1
Delay_ #GADHITIME ; Wait for a wee while
; Toggle the gadget off and redraw it
gadpos = RemoveGadget_(*w,*g)
*g\Flags = *g\Flags & NOT(#GFLG_SELECTED)
AddGadget_ *w,*g,gadpos
RefreshGList_ *g,*w,0,1
End Statement
---------------------------------------------------------------------
To unsubscribe, e-mail: blitz-list-unsubscribe@netsoc.ucd.ie
For additional commands, e-mail: blitz-list-help@netsoc.ucd.ie