🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

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

PopUpMenus (Binary)

#1909
From: d5adria Martin Adrian
Date: Mon, 30 Oct 1989 19:08
143 lines
8927 bytes
Ok. Here it is. PopUpMenu for the Amiga.

I can't reply to everyone who maild me so i post it here.
There is no source included.  I have converted it for my new version.

Thanks for all the mail.

Martin Adrian.
(My SwapBitsRastPortClipRect version will be out in late november (I hope).)

--------------------- cut here ------------------------------
begin 664 PopUpMenu.zoo
M6D]/(#(N,#`@07)C:&EV92X:``#<I\3]*@```-;___\"``$````````!W*?$
M_0(!J`X``'L```!7$U92&F6L$@``+0X```$```````````!0;W!5<$UE;BYU
M````%`#LXX(*`%!O<%5P365N=0```+0!0````$`I(R@```$`&#!/H$&!`@X:
M#""0`!J#,`0.2-<0C9,J_WPA.?=#1R5E2?(='*)/`"<X`%C@`4#`B:M^V%(`
M`<!'":`S``0`$L(*`"PX_W8`^>=,Z#]H0MK\D\:"#4V7_XB1%&!')<L50WVY
M]*?'!!`1"ZX`(P(`"2`4`)00.4,!99"25)SH@B#%*X@%9C"``1"`$4H(*P`\
MD!,@7"@1:P!``!%@*R\EK3*>D:'VC`41+3*^%0"#!`([.YH^=744#`;,FDM:
M\6PG@V@^4*'M#0!D4C*K+5WYTX;UGS"W)9G(?4".!!`0"G`&``%"B5P(:F3Z
MM*D<`E#<6VT9=28%"$X`_(!F-PJM^W=V4S6@=`E3.@'J`K%-Q;#^9<R9:6\*
M)+;9`DH13L$B!P!;$6&3&0*Y`D-FSB`!#&$D%";*"D+\8\R"1SEHV`I!_*-,
M$.WXM@(2_XCS5@#ZC/B/.1OP`<`,_W1S(C<J>@-"@#&XF```'(#X#S4`^C0"
M$@"@@)UN./P5V&"%A<+"<@8`$IDQ4GJH`@`@%'"D/\*X@*4!P!QBA@H@9*:,
M+X"88<Z-`J7P$`T`/-83+V=8@YHQ@@#"F%P"@"'7`'Z`08P2/<%R!@ULPJ($
M*@!0<(8(.0*@`(\^`AG@D$5NB4.0L&SE0Z+#08&A,TH`L88"#FX)"X;0E'IJ
MJBOEYH^B/0%P!@-!IA3K5F(0RM*M01*PI1C(G6%`<W(YX$EE"MQE+`A+)`M)
MD'P,R\0W7/#C1!=.U$'&&W.XP$8:8L@1AAQY``#%&W!4`4<+4=21!AWKRD&'
M0`IL$D,;Z[8+1Q-EN%'')C"T`8(59<@!0@PNS(`#"&FX,0<=8;#!1AEDN*!`
M*B`T<2X=$8,0!!ERI!&&&POG@$,.DP*@+[_LN@NPP`0;+$<9;;QA!\8M]^MN
M"TFT`0<19=A1[[VVF@L'&FF,$>ZXY9Z;+@`1TR$OR&^X(2ZYYJ)+M1MPU$&'
M"V04W709`OG\+A(GDW'Q@`)=]`\[&P&@PPI)_`-/2`>9@,1'*K+CK$"ZP"$`
M+($1@"``J("@%#Q*/`2!&6C`D08LB1E@!A@P\`#%/L`DAL"`,@"P."*Y0@P`
M#BK2`P("9]C!P$.30M"&&R*D`0`->/_C>@)G])H*CV=P@4`*!F5@!A6.ZRT"
M%""@A<"6O,"QW.,QS`0!&"1$KM@9,#"0&$6:H_!\]"Q1WSP\0DB.G!D(@#!%
MX&`80,(D8`A`PA(F3+'7/T0HT]RNQ04"<:L.<E/'1AX@@=ZH`R610$8*B`2)
M"0*`$#F8"2LLB`H+<L*"I+`@*(+$BQ3HSDNX,(H[@H0+)0P/!68@`!P4``8%
MY*Y(,$`>`:@`A`P"P!4D-"&/`$`+7]'B5G()@"*D`X@#&0`H>P$`*=:C"P-P
MPTM!TI/NK/`7M##),$]:"0BB%!EU;$D85\H2,`QQ!B]D4756V!(C[+*`,S`G
M,!20`P1@$0@S"``/`6``(`"`GQA*02DKC)9N#`$&953&`2`X@%P,H#4`H$2%
M2CC"&23`@#8,Y!_N:(,"?B!)70``$U1X@A^P5`!@E/$,@I@D!>1R`&A<"PGP
MV%:W-A(``7@)*&@Z`QK8!``WE04`Q$(+$Z0`".F8(0,NFA06(NE#+0C!*5S@
M"0"HP*D9N&@!/$J4$-#B`3E8(%$A"`(`2!`$=FR34YA"`9MX(1H"Z<8'G-+4
MM8``B&Z]X``^>`$`$&`]7P#!#")@4P<?(@$`(`(&+```*Z8`!&"XTQ7MO&`6
MP\`7;'#/<`8U@P?8!`IC<@``E(`!6@P`":<P(J/3<@HA.!H`6;C@`]V2&SDV
M\@,8F,`IM%B)'@C@+`G`(#`(@`41WB``M&C#*:[H'QC4@04B0/2'XD`"FW`A
M`[1`0!)`<,%RW@,$-0B@.^(`0E<!(`&P/DFE`&``)(C`"R`P-:)P=0`DBF!0
MIGI)"48PJXLR:=95YL`(`\W!$225`[(P(`=%```DG8(+"*`@`$K(P$QPH%D`
M1"`%E`6`"5+@(NVQ-:/3<XH]_T$#X[SOB0"((CQ`H`8`R("%&4A#`)8`@!S\
M):(Y$`$21$.`P&U%%2)0"COJXP]/@(``50""@T10@"H$`0G!2.[<7C`3$%CO
M!>HD`80$"@(3")0$6W%&1IF@779@"@$3<!%#.I`#%R7$!S\EHK/,D(+$.```
M`53N$-R9)``,J)Y000$"`B.0!I@!!U?UP70),(7K!H,&$?4!-:!:!2'8`0`V
M$$![N8LEE(!WG2(@+PG.2]ST7M45T7`*?OUGB8Q"H;WOC2]?`-`!Y%R+`=HZ
MH-RPP5,8(*$=`PC`/\!A@H<00`]%*D!2]+8#/OSA'_^0AXK(X2P:')4EL%"*
M/-A``*/(0P:!,8`L'D?F'70('M`0G5*9BA9I)$8!LB@"4U40`*DBHPIBQI`\
MFD>.[$D*T'J306;@$0-UQD\IZ*#!2JFA%'%0(P@L$,!6?8`6"5CA"-'%1`\=
M:UU-!`&RDHTD-(@`BX<PX`W'(@`7@.`)(.1UKW6]:UH"*P`7*3:QB%6`-B6`
M6@23!E%*X7(3]7-!-@%"!$`8P4.L```K:)?+40`!#PBI&&/_0PW7!D$42/`0
M&:!DJY;=K0B4T&+=J.*YT9UN=2V\;A)[-P`G%F\`5HPE\ZXSO81N,DN*^A\L
M+>':')6L5-7QXR#G%"/<X*D,O/2DP/4.'@4]Z+$>8@$P(*"]JI.`WP87`#MH
M=[;C+K<.D*<`'""/H%BB;+H/SFZGR`JY2F#NLHQP!B,TCQUP)8`(`"")(F!7
MT@`P@`D$8`DB(&$8T'@(`O9*40=1@W:4(,(4A(`$8=1[)BQ@C`@&\`(A`*`S
M`F6!OV$`<.4B`"T,:<`9/!#TO3IHK0:0A-.#T1P1+,';*``#!^IN=&#@7>_8
M[?O?50L51W0N`->;&S!<S0`@0-X,MWV<N-N;0Y;8W?#(,X`4@H#X8+R`2"1H
M#@O>@&(W`(`,WG;$S]_.$@`XV`SK+0&1$%`!^?+XYT$?>M&/OM*E-_WI41\H
MU:4+C*M+*NM;[_K74R)VLIL=[2E9>[O]H5YW0D'W`^W]CCMP+28X'($8P4?=
M9."W(_V##R!(S&H>0@$02$%%^'C=W&F;DE@LPPP0L&[N)W3.L4@DH!3X``;8
M(`2K4&W0@A+>I@;N9P?0XFVX4'X&U"V^`@G/XA20$`:(X"N$<`;Q(U,<]7Z^
M<A,,X&P6V"T"L1$#``%_U1,<2`<PQ5$"0`=>81-LP@FW@`QG``;ZIP#6,V``
M``E_4G]UY`+GM@1&B(2Z,`#OT1.D<`8V<&Y.00I&2`A\,EM9*$+:1`I@H![+
MX12@L(5\0@V@!0"@($41)$+0XD$B>`9LX"N<8`:XYTXSQ1?TL(-Z8H8_>`92
M,(1%J(=\0@DIP%N@$(;.0ADT>"ML`H7-I4V0T(1HJ`L"H`8+5GMRQP!*T(`<
M8"R&$T6@@!)1I`F^`@J+\X%\H0]X%5&L``L\)Q!-Q'-D4"HDJ%!_@@0;"(D>
M*!?^X`.4.(<K*%/`R`+:1`AC]">.(!V-<RQ.@0I_LA@&X$.LH%"TUV!GH`"+
MPE9G($,!('BFB`$B"("ZB(GB@!+6F#^1="T(``R[=`X#``!^\`%V>`8NT(.T
M1P"V]RA!0@D)9P@]F"-8AB4]^(]_H@)>PCVI>`8:0%+[V(\.T(T<`#\$^0]8
M`@8R]`]@<!QF&"2(D'`\0%(@R2=F=':P2%$",!,?(`(&(`#J]`/K$`2`$`0B
M<``P"0`?$`Y!<`XT&02D@R4!<"T``(]UP$L^A00DD`2;J(T\T)1Q=080L(GS
M*'<L@``-*!`,P#T(L`X&P0`N$!@3>0B642P2@``'(!#&@@"J\)7B\`@D(`53
M]6/]A'YZ`X.=`04^<"4.P`-7P@`J`CE'L`80X`NUA0!NP(U&L`8&P`NUI0!O
M($.QI0/>0#O<('4"1U1UA`)?UIA`T`8<$&>24E=N0`%?1@`&U08,()H(8%!N
MH)GU(U74@!(_!H\'!(,Q!P"`P&F2505'P`-HP0!58`29M`88`%<($%VN.9&+
MJ0!PI0#1E6N2"0:0])*#!`!8!@@7U1U$:91Q@Q$[=0XWD)1>TCOTL(G\*'<[
MUCE%&3IQ57E%^1TH1VZVQ0,LMW(#M6Z&LWV>L(D&T(]&<)K"9P1'EV;&9W10
M)SJ08`15UWQW1@E%$'U>IP0DEGH!,'9E5R3\1@+^A@+I%46(L(EI*7=J<)IH
M-E#2``22P*"GIDYPD`/JQ`:=>:(*D*)%!Z,`8`<X*@>=25%[Y4-ZX$-N<*($
ML*(XB@<X2@?8-5T4VEUB1UY0$8`Y1P`9Q09;`0M@0`&9)!9D81:$`2W:10]R
MD0]B\&/LH$MV20\;$0,PX"4CYQ2`0)\R`)5RIP3Z*0#\&4D4)0,1Y0K`$`P\
M="]P\F4(P$,.8@('8`S!,`5#0#H#,'WT(0`GQ@$BH#\"A0'^Q@'I-05'\&.,
M@*8O>`X!((.B!53.@@"<^HU2Y3H+X(YUB91^LY2K5`O+8"Q2<`1Q"0;VT([?
M($@N6!;RR'Y(\$O_L"6V$%$,\)__$$.FB`1P(`(BL&T,T1BDH0.NI0!FP`!_
M80!7:HHJ4`*\U2P'4`$SD0#BQX\((`1\60&(]0"VL17:4`+:LVY;X5P*4'Y&
M63<BAP1^MR68H"2"<:5^]ZQ0X0*W1"!'>0ZVY3=P``/1NF,!X'[6>AS)00'B
M5P`#I:X`D``UX"(1(0'@FFKW^@U,@+#ZZC<#"U&[0AH&^PU$\JL#X$X(L1`2
M(0A?J1`#(0\2H0X0@;,^:Q`%>1`!T%`_6[1&*Q`/L&,SFQ!'&P$10`1$@&5!
M>[146[56>[58F[5&.P#R$!#<I\3]`@$H%@``_0X``%X3A)TPEB4,```K!P``
M`0```````````'!O<'5P;65N+F1O8P`8`.P@]`X`<&]P=7!M96YU+F1O8P``
M`+0!0````$`I(R@``!6`&`@"RALX5>`T*>.F#@@K,5S,P`%"3!X03<+(H9/&
M#8@@9.2D">,F@4F"`W'D:!$#1HL9,`02]$.SILV;.'/JW,F3IP*9`Y.XH2/G
M#9DZ8SB^<0,41$\_0(/(*0,BSQN'=>9T/`,B2I,W<\JP`$'D:U:Q(-[(`8&D
M#)LT8,V&!4&2#`@18=C<"9-GC@@09\K0`4$'#=4[1=V<:=J&89TR<T#<,>S1
MJD,X4^=$+DRUS=6P8NK0H;/T!U`D8>Q0M0RBC.JU;LJ4(3,;!)R#+>K``=&X
M(6009M16O;HV2)LT9\*8!DK%,(@Y;]B(ANM&1\&#"1<V_(F22)HY1-.$5LH4
MY5/N`YM_!_%:Z]*T9@@[-XA0H6/;1<_("=,&Q/JI;)011EAV#5A0'6*\-099
M;[011D=TN6&7@WDT!=Q4;ETD!E5C')3&;"[\U)10X.7%1ACDZ=#4><R]`<)9
M\E&%V1OZ\6>;:#$"ET:`((!!7W:.G>!?9<2!,$8=<DPU%`ADI#%54FKE$2)Z
M(%#A(AU(>O0>9[;AIAMOCOVF1E:#T9$''&6H:&$,/H`@11T>_6C?=D`)YQI#
M%0E&1QEKH2#5;A'-\&)8<LR1`I4#L?G1FW%B-Z=#3CR1Q!,@3$%%$$,L`8(,
M,'1:D!1)@%"#B`1925B6,?;WAAEFC#4F>(2=F2:BB;8IIW9UD#J0$0)BF9F*
M,^G$W'Q>[M;;8Y'=L2,;(+CQQF!SH/'&'2_N-AF>K&$&V6;.'3L>:>41E$9\
M)%VT:H[!L<'&M%L9N523Y$6V'E&/J4E0#"F`X(2+RDHXK7^1A9%4&JJ%2)`,
M^39'E<`<J2991V3\BX:!SH+IVQP&#S1#PLXQ3/!A$$ML()=FG,B5%$T(0844
M04#QG&`9@T`#QYU]5L9M'>VYUGH0<CG'&!BZ$9FW&H68``HE2JB177#4H6X+
M$=_AT;&_*:LN77"@J=&A!-60;Q97T345?MNV6RX(<=21U[@?KK5&&5(J<'2T
MX](Q5EYVNSM446R,%:`9@PDGTAEH#&8<<F'X70;@(*`@W'%DD!%@OIZ=]>U2
MAU+I':M\,C3&;V84U9]06*:1(E!/I4X34/ABY#1'</`85H!)`=SLL\_I=MM&
M(`*%,$9%.%&%%46`:D06MCL+K>YJ[4F&"XU/(1L(5P0AA1-).''$%%QK3+/%
M=9A>1G\FY"Z&^/WU&W6RRSXG+;5?QH9'F5=V:S/.0_%I-`H.OAW9[&48V'L$
MI!4^=4]F"7.1B?Z5MC2,X6UK`:``A386+AT+?2`HWQP0A$'U32LR$8.,W)2'
M-:VM!4X<898%[_>&G/'I.72HR_]2R*S@K$50V:-"%9)`A21D:@I3(DCUKI>]
M[0%K(#L!BA"2<(0C$F0*'?E<CIH0O.$5+PG'2Q[N-IBUYM4&;`Z)UE788)<-
M&4DCBW.:9"@SJ*U8:"`SJE$;N(4B(TU,,;_AC)/`!YF8H00%1%C*"09S&SCD
M9C<6#!,(G11`.K#A(F$`W`M)DA8T[8<\\JGC&.X8&&Z506Y4F\-8A,,:"K'G
M.Z;+T1&J((4JN"!S!)F#@]3EQ/00JSZX:D$<]].?L\AK*.$C3PL\>(?-N$B,
MU+K@GN8(/1`D83#?>6.7-",>'I$&.&^(3HYV:2.+T&5@=D"1V91GF+40TX\$
M08%ZV'<U$@)M0&C($7\05Q$<A4$RB>&*<"I&-=4LR91F#,M08(D2A?&&A2Y<
M2\3<,,B#.FPR.UK8P_Q%K?4<A"&U$<X8UD4@=`X$!:0+)G7J>88?'/")T9G.
M4JS#!,$DZT&#L2$(EN#`-91H(R"("`V"N*LJZ%`*17!B3BRT+_^T84:JZ0T=
M(B.<T)S!#&G`0]7:9T8'T88P]5L/%!"DH$`Z"$+<;(.%O-F89H;*1D=*$D,<
M>9$[J&4-[7K//;5RG!.M):R9'(PO+32%O<!!"*:;@Q0&1`>#;&0(;X&#%!H9
M(;MP<7=+!9[PB&<\Y-6%-Z]+0^RH(D$ZH#-4+I005D$`(`)2I3!UQ*N!IC"Q
MJ5P!C4,"P8GVI*\W)'5#:[&31AYI(2($<'RXA1X*8I`#E62.2D$0C;3D(%2<
M6"@C&X$02$1"$I-8]R1I>>ZS`H-'C\"D!MC]*)>HLAY*GB`,0E)68>A"6K.)
MP;94:4&;PG#22K6`!C&0`0AP`(.!'.%9E`F-'!:#DDK=838,^4D5IA"\(E"!
M234(0TA&`@0R[&D-+MAD7AI3*!>$A4K-(8E-L:JB!/AV*FL`@1;"@(:2%!B;
M:^'2K>Z#U_<8X3MH\,X<4IP#&\AM"`WR3,2FDH`7RY1+ATN.W/X$@A;8I@P'
M"5"1"RQ3)@<J@Q]AK5O8(#<FH(@C4IPR2H[LG"&XZZ@1[5,-7`"#0R6@"1<I
M@F+>$BW"]&J3?%JR&]P0AO`2I`T7.8.3V!"Z#TE(;F#T\T!DFI5V%68]855`
M0`#<I\3]`@``````````````````````````````````````````````````
-``````````````#\@P``
`
end
Technical Details
Message-ID: <1497@mathrt0.math.chalmers.se>
Path: arc1-ca.pugleaf.net!utzoo!attcan!utgpu!jarvis.csri.toronto.edu!mailrus!wuarchive!cs.utexas.edu!uunet!mcsun!sunic!chalmers!mathrt0.math.chalmers.se!hacke7!d5adria

Show Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!utzoo!attcan!utgpu!jarvis.csri.toronto.edu!mailrus!wuarchive!cs.utexas.edu!uunet!mcsun!sunic!chalmers!mathrt0.math.chalmers.se!hacke7!d5adria
From: d5adria@dtek.chalmers.se. (Martin Adrian)
Newsgroups: comp.sys.amiga.tech
Subject: PopUpMenus (Binary)
Message-ID: <1497@mathrt0.math.chalmers.se>
Date: 30 Oct 89 19:08:33 GMT
Sender: news@mathrt0.math.chalmers.se
Reply-To: d5adria@dtek.chalmers.se (Martin Adrian)
Organization: Chalmers Univ. of Technology, Gothenburg, Sweden
Lines: 143