#pragma TextEncoding="UTF-8" #pragma rtGlobals=3 function demo() NewPanel /W=(150,50,332,179) SetVariable setvar0,pos={25,50},size={80,20},fsize=16,help={"this is the help for the setvariable"},value=_Num:123 Button button0,pos={120,50},size={20,20},title="",help={"click for more help"},picture=ProcGlobal#help,proc=PopText end function PopText(STRUCT WMButtonAction &s) if(s.eventcode!=2) return 0 endif string str="Here are some lines;of text;in a popupmenu;" popupContextualMenu str end Picture help ASCII85Begin M,6r;%14!\!!!!.8Ou6I!!!"&!!!!?#R18/!3BT8GQ7^D&TgHDFAm*iFE_/6AH5;7DfQssEc39jTBQ =U$_U'Z5u_NKc'iEa<7c<6J*/gFHcB[q(lTKsP2OuZ!63XqY$+7gCZPqY+CCR08_&\f'`tJl<)")Aj eYSrOu-oA+sj7XOqoRa&lRg6Wi:;C2-#G=`n2,LM0[!t).S^jIZ.o%F6;h<)#H:64_#"fM!pLmI.l6 /XoI((X]\tWT-FdS%C)G!;F6nc5/k(K8Ho5P"NG'lM'`6OF_OejgK7hIV"%#8gT(]Z'M2I\k3CKtQc 8@Zm1hQtgu-tuEsrHc&-rCU)&Z$+QBkEO=ipO5lY10OADOh>eCE)$M^pCZBTGQW?ndsh1)`rFNjGLf T7+N=*3m[YM+cmJ?^1*$^F6p0=)tIDU7riEN5!"iEVfQ_%9oZ"Sa*cnlCj",,Td`Y/:5q+B`*>2bo-CGPf??G%[Mqs6+6Sid=0a5`l)\s cX"U-56eA1GaYl(cWKF]O!7VQ'L!<[PY,uKL-ib?+ZEBII9+%H0#e+lg$.XPp0BH64'>(DeF_D]n5_Pk ,KtlKT-JL?Gq<+C1p\V5KCt-tai-)^e9f%bj43Pm<2ecu?Ts_9ChqiqN=!.Oq1,^A\^BR%Honn(n6+fDQBBoo;+I\k[BnRcJ`K9u5KC%%eNlbkfB8=T_C=%"@kF ]`c=a*4fn@T8FNa&=Of289"?jO3tTh?*gT3WW5#-r4%"Mp".SJNU#eDh!TmkVJ.eD2T>tDI"7q>=`I 0bjHEA'+V4q;E&\VPVl'7JLEB&6P8lc6R([k@9!E=R/IN_X``(m\kl@_qUWVo>A_0J@=?8W/bJ3si9 *WMeEJ)Z\KheGZTlOu,Aoq0dpc<7Aj5YO bn])LmcY'hs!*SI"JHP,IT&K!W3iT-Z6<.%BJ,ar.]=S4s.'aD90>AMN1+Q5[d.')nT[SOP8UrQ k=uH'Y].AQjr<0)o1e(disebR3+9c<6LaQh0/)njGWZZU((uHlkj7[6$#*ZrZ=0,pj81O!DPtEi-RG QW\nh2[k2P!@@F"M"XguW+)?0$<(L"bSlJem"]P]g"DPuOl&IcPkrVc\hUS@ocdjQXoaiMJID/O7"i f9(\F6:[aC[UcTbFCeHhO=37Hs's(]jh+4DkU&W+KUPir khk.?[98dUh@q_loe#"iS.Im@r..[-J,*<-PNsAD.81#-kLf15%!q',s/[Dp9rAmYI9gH;`ArE?s)G [2oM2;Nk?bW%qKV(T\F4[qp`B,lkK&(N":=GEgep&T*Rkp)RVA%Kr FBtA&\T&*Z81_Y*)N.O$WU\0h?YJ3nUN\h5**JTT1n?/5)"PHBR\lp$IoM1ZE8PqrVk/3l>ISK]f L2K3lKdb=]6:GgJYEm0,[m))en7hb,[_`S1H.j#`oFDT=)*,/YTA) 8iG*=dp2hpN &.\Ld_d!,Ur;!#UE=>RCLJU$m>a2jYEGLX@JaAo*@dJ]_\h@M'`@eX&kQ_ MHa#C6*ao9]`%QY7&/-UI2,30_1MuYN?QJ<5M)YGea$*f"W/H`#C1bs0r:K6Z8Hoa%- nEZ[lbt^*]SO"8T79&"]Gs+_QofN[jQ.nFTWG6=3YhRl7J=8lKLd90Eo(!oZ\9E/qu;[s1Ru\D=-t< u[u/Mp6O<4$\92p0mY)#b\9[[XrjY;QoD)F=@fYTD$9L^d(0QgllP!%QnL1]EjK4u$1JH#[>e3"d-Mem5j7+OWCRo:t\s7M&r_R-J G'9To)QKf$1sti&1bHJ[rNh,de@)4.Xs3=L*0,V^4OTBJP.6_ZooIjaQe1 /9\M+Eo:",DP#0rf'bF(/!d^V_7)5hUMihfV`>V9c+C@\Z['I$25OEPOp,!$Ue4$0lNUq#pN1L,1n) 7EQ+?_=5C7bLf)6'79J)B,F-]6=pJ7e=[V[LL"/O5KD=gU:tpj%`=RCY(2-R[R:>N0Lk2Ts`"%Ssgp e9H_I"Z?l;lIa74YG#kfPo65]`FC%.fA-+nOae#UU$bWmT'j]E_,SEY2[&i]M\'I+'gV85f?9X36!a XF2ZY.TVE=C&3P<*hXCAYm]7ROXNR!E5a_YJ/^p+C3C&<)?]F5U1S:0j%FO#J!r)PjgM2X=(]52!Js S"K*3kU6ZG*2'"!@E#Mik(jd>n4]r_C0>Ifq#5,l,U?O&!)e;r^GR^!&4\cOkmAo)= $DJ8W(XWQ04r?L'Y)F(T>=aD9/Bo"55k-&QJJB1Qc,"28*K7'U:e-$kA.-2ED;Wn.)_E'>BoJ9\(J3 1j,1UAc.L1\OsD(%=[M]nK#"Jh'!j;<8cF3R@Q)6>>6?]H+Vp42B2JgJ"s3X=Y M.=Sd+b[)VNoYn`9G.hjOX,dl[^M^f@`?(Ikj.QX3>nAF`MrH-SA#[`Y.,m%HZ;"Qd<%J8>gI74'-n 62@P^qV9nopNU?pOrU:%6;QVCd9Mf[m,pYC&Qe>ZB:5(/lE4AKB+uXc8%AL?t^b+BJb.E=lN>Xn7YdfldS(0UZ#j/e3#p8>`.` jl07FEh;-oZp@^7$369InOO^%hPa#!A;*f>I20F%a1c.%"Hmk2"_(.qGrrE1??RUrA8#lUi!!#SZ:. 26O@"J ASCII85End End