🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: comp.sys.amiga.tech
Article #11773

Re: Gadgets in Title Bar

#11773
From: Marco Papa
Date: Sun, 12 Mar 1989 19:25
29 lines
1643 bytes
[this follow-up article is moved to compc.sys.amiga.tech, given the cobtent]

In article <1524@csd4.milw.wisc.edu> trantow@csd4.milw.wisc.edu (Jerry J Trantow) writes:
>my window title bars.  First problem is although my gadget gets tucked
>into the window border, when I click on it, the drag bar gets activated.

I implemented a window titlebar gadget similar to the one in WordPerfect
(actually it is practically identical :-). Not much was needed.  The
gadget is declared as:

...
GADGIMAGE+GRELRIGHT,
RELVERIFY+TOPBORDER
...

It is activated AFTER the window is opened (with GADGETUP among others) as:

AddGadget(window, &mygad, 0L);
RefreshGList(&mygad, window, NULL, (SHORT) 1);

Then in the mail loop, I look for a GADGETUP, and check if it comes from my
titlebar gadget. If so, I and then handle the gadget. That's it. Works like 
a champ.

-- Marco Papa 'Doc'
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
uucp:...!pollux!papa       BIX:papa       ARPAnet:pollux!papa@oberon.usc.edu
 "There's Alpha, Beta, Gamma and Diga!" -- Leo Schwab [quoting Rick Unland]
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Technical Details
Message-ID: <15804@oberon.USC.EDU>
Path: arc1-ca.pugleaf.net!utzoo!attcan!uunet!husc6!rutgers!ucsd!orion.cf.uci.edu!oberon!pollux.usc.edu!papa
References: <1524@csd4.milw.wisc.edu>

Show Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!utzoo!attcan!uunet!husc6!rutgers!ucsd!orion.cf.uci.edu!oberon!pollux.usc.edu!papa
From: papa@pollux.usc.edu (Marco Papa)
Newsgroups: comp.sys.amiga.tech
Subject: Re: Gadgets in Title Bar
Message-ID: <15804@oberon.USC.EDU>
Date: 12 Mar 89 19:25:32 GMT
References: <1524@csd4.milw.wisc.edu>
Sender: news@oberon.USC.EDU
Reply-To: papa@pollux.usc.edu (Marco Papa)
Organization: Felsina Software, Los Angeles, CA
Lines: 29