Blitz (40/119)

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



|) /\ \/ ][ |) |\/| c |\/| ][ |\| |\| | dave@blitz-2000.co.uk
http://members.nbci.com/david_mcminn | ICQ=16827694
Am I getting smart with you? How would you know?

---------------------------------------------------------------------
To unsubscribe, e-mail: blitz-list-unsubscribe@netsoc.ucd.ie
For additional commands, e-mail: blitz-list-help@netsoc.ucd.ie