;; ***************************************; * *; * BBGadTools Library *; * *; ***************************************; 17/10/93; fixed immediate/relverify constants (they were bloody wrong!); added gtsetsting getsetinteger gtgetsting getgetinteger; so no more attatching a dummy Blitz gadget list for users; 18/10/93; added optional values for scroll,slider,cycle,mx,string&palette; added optional listview parameters and flag$1000 for readonly; fixed setattr to find correct gadget; 13/11/93; fixed id bug where d1 parameter was getting trashed in stdsetup; 19/11/93; fixed attachgtlist to not corrupt a4; 24/11/93; added gtshape for gtbutton using an shape image,; it seems that it isn' t possible to add text anymore...; error checking (gtshape) added; March 1994 (BUM6); GTGetAttrs (GTList#,id,Tag); GTEnable GTList#,Id; GTDisable GTList#,Id; GTToggle GTList#,Id [,On|Off]#_BUTTON=1:#_CHECKBOX=2:#_INTEGER=3:#_LISTVIEW=4:#_MX=5:#_NUMBER=6#_CYCLE=7:#_PALETTE=8:#_SCROLLER=9:#_SLIDER=11:#_STRING=12:#_TEXT=13#_LEFT=1:#_RIGHT=2:#_ABOVE=4:#_BELOW=8#_IN=$10:#_High=$20:#_Disable=$40:#_Immediate=$80#_BoolValue=$100:#_Scaled=$200:#_Vertical=$400#_Arrows=$800:#_ReadOnly=$1000:#_Toggle=$2000А .NewGadget ng_LeftEdge.w ;0 ng_TopEdge.w ;2 ; gadget position ng_Width.w ;4 ng_Height.w ;6 ; gadget size ng_GadgetText.l ;8 ; gadget label ng_TextAttr.l ;12 ; desired font for gadget label ng_GadgetID.w ;16 ; gadget ID ng_Flags.l ;18 ; see below ng_VisualInfo.l ;22 ; Set to retval of GetVisualInfo() ng_UserData.l ;26 ; gadget UserDataА А#tag=$80080000#TAG_MORE=2#GA_Disabled=$8003000e#GA_Immediate=$80030015#GA_RelVerify=$80030016#GTCB_Checked=#tag+4 ; State of checkbox#GTLV_Top=#tag+5 ; Top visible one in listview#GTLV_Labels=#tag+6 ; List to display in listview#GTLV_ReadOnly=#tag+7 ; TRUE if listview is to be#GTLV_ScrollWidth=#tag+8 ; Width of scrollbar#GTMX_Labels=#tag+9 ; NULL-terminated array of labels#GTMX_Active=#tag+10 ; Active one in mx gadget#GTTX_Text=#tag+11 ; Text to display#GTTX_CopyText=#tag+12 ; Copy text label instead of#GTNM_Number=#tag+13 ; Number to display#GTCY_Labels=#tag+14 ; NULL-terminated array of labels#GTCY_Active=#tag+15 ; The active one in the cycle gad#GTPA_Depth=#tag+16 ; Number of bitplanes in palette#GTPA_Color=#tag+17 ; Palette color#GTPA_ColorOffset=#tag+18 ; First color to use in palette#GTPA_IndicatorWidth=#tag+19 ; Width of current-color indicator#GTPA_IndicatorHeight=#tag+20 ; Height of current-color indicator#GTSC_Top=#tag+21 ; Top visible in scroller#GTSC_Total=#tag+22 ; Total in scroller area#GTSC_Visible=#tag+23 ; Number visible in scroller#GTSC_Overlap=#tag+24 ; Unused#GTSL_Min=#tag+38 ; Slider min value#GTSL_Max=#tag+39 ; Slider max value#GTSL_Level=#tag+40 ; Slider level#GTSL_MaxLevelLen=#tag+41 ; Max length of printed level#GTSL_LevelFormat=#tag+42 ; Format string for level#GTSL_LevelPlace=#tag+43 ; Where level should be placed#GTSL_DispFunc=#tag+44 ; Callback for number calculation#GTST_String=#tag+45 ; String gadget's displayed string#GTST_MaxChars=#tag+46 ; Max length of string#GTIN_Number=#tag+47 ; Number in integer gadget#GTIN_MaxChars=#tag+48 ; Max number of digits#GTBB_Recessed=#tag+51 ; Make BevelBox recessed#GT_VisualInfo=#tag+52 ; result of VisualInfo call#GTLV_ShowSelected=#tag+53 ; show selected entry beneath#GTLV_Selected=#tag+54 ; Set ordinal number of selected#GTTX_Border=#tag+57 ; Put a border around#GTNM_Border=#tag+58 ; Put a border around#GTSC_Arrows=#tag+59 ; Specify size of arrows for#GTMN_Menu=#tag+60 ; Pointer to Menu for use by#GTMX_Spacing=#tag+61 ; Added to font height to#GT_Underscore=#tag+64 ;ti_Data points To the symbol#GTCB_Scaled=#tag+68 ;bool#GTMX_Scaled=#tag+69 ;bool#PGA_Freedom=$80031001#_CreateGadget=-30 ;(kind,gad,ng,taglist)(d0/a0/a1/a2)#_FreeGadgets=-36 ;(gad)(a0)#_SetGadgetAttrs=-42 ;(gad,win,req,taglist)(a0/a1/a2/a3)#_GetIMsg=-72 ;(iport)(a0)#_ReplyIMsg=-78 ;(imsg)(a1)#_RefreshWindow=-84 ;(win,req)(a0/a1)#_BeginRefresh=-90 ;(win)(a0)#_EndRefresh=-96 ;(win,complete)(a0,d0)#_FilterIMsg=-102 ;(imsg)(a1)#_PostFilterIMsg=-108 ;(imsg)(a1)#_CreateContext=-114 ;(glistptr)(a0)#_DrawBevelBox=-120 ;(rport,left,top,width,height,taglist)(a0,d0/d1/d2/d3/a1)#_GetVisualInfo=-126 ;(screen,taglist)(a0/a1)#_FreeVisualInfo=-132 ;(vi)(a0);;#_GetGadgetAttrs=-42 ;(gad,win,req,taglist)(a0/a1/a2/a3);;August 28th (BUM 5);!libheader{#mygadtoolslib,init,0,finit,errors}!dumtoke{"GTList","A GadgTools GadgetList",_toke}!astatement!args{#word,#word,#word,#word,#word,#word,#string,#long}!libs{#mygadtoolslib,$1380,#intuifontlib,#la0,#screenslib,$1102}!subs{_gtbutton+1,0,0}!name{"GTButton","GTList#,id,x,y,w,h,Text$,flags"}!astatement!args{#word,#word,#word,#word,#word,#word,#string,#long}!libs{#mygadtoolslib,$1380,#intuifontlib,#la0,#screenslib,$1102}!subs{_gtcheckbox+1,0,0}!name{"GTCheckBox","GTList#,id,x,y,w,h,Text$,flags"}!astatement!args{#word,#word,#word,#word,#word,#word,#string,#long,#string}!libs{#mygadtoolslib,$1380,#intuifontlib,#la0,#screenslib,$1102}!subs{_gtcycle+1,0,0}!args{#word,#word,#word,#word,#word,#word,#string,#long,#string,#word|#push}!libs{#mygadtoolslib,$1380,#intuifontlib,#la0,#screenslib,$1102}!subs{_gtcycle2+1,0,0}!name{"GTCycle","GTList#,id,x,y,w,h,Text$,flags,Options$[,active]"}!astatement!args{#word,#word,#word,#word,#word,#word,#string,#long,#long}!libs{#mygadtoolslib,$1380,#intuifontlib,#la0,#screenslib,$1102}!subs{_gtinteger+1,0,0}!name{"GTInteger","GTList#,id,x,y,w,h,Text$,flags,default"}!astatement;!args{#word,#word,#word,#word,#word,#word,#string,#long,#array|#push,#word|push}!libs{#mygadtoolslib,$1380,#intuifontlib,#la0,#screenslib,$1102}!subs{_gtlistview1+1,0,0};!args{#word,#word,#word,#word,#word,#word,#string,#long,#array|#push,#word|push,#word|push}!libs{#mygadtoolslib,$1380,#intuifontlib,#la0,#screenslib,$1102}!subs{_gtlistview2+1,0,0};!args{#word,#word,#word,#word,#word,#word,#string,#long,#array|#push}!libs{#mygadtoolslib,$1380,#intuifontlib,#la0,#screenslib,$1102}!subs{_gtlistview+1,0,0};!name{"GTListView","GTList#,id,x,y,w,h,Text$,flags,list()[,selected[,top]]"}!astatement!args{#word,#word,#word,#word,#word,#word,#string,#long,#string}!libs{#mygadtoolslib,$1380,#intuifontlib,#la0,#screenslib,$1102}!subs{_gtmx+1,0,0}!args{#word,#word,#word,#word,#word,#word,#string,#long,#string,#word|#push}!libs{#mygadtoolslib,$1380,#intuifontlib,#la0,#screenslib,$1102}!subs{_gtmx2+1,0,0}!name{"GTMX","GTList#,id,x,y,w,h,Text$,flags,Options$[,active]"}!astatement!args{#word,#word,#word,#word,#word,#word,#string,#long,#long}!libs{#mygadtoolslib,$1380,#intuifontlib,#la0,#screenslib,$1102}!subs{_gtnumber+1,0,0}!name{"GTNumber","GTList#,id,x,y,w,h,Text$,flags,value"}!astatement!args{#word,#word,#word,#word,#word,#word,#string,#long,#long}!libs{#mygadtoolslib,$1380,#intuifontlib,#la0,#screenslib,$1102}!subs{_gtpalette+1,0,0}!args{#word,#word,#word,#word,#word,#word,#string,#long,#long,#word|#push}!libs{#mygadtoolslib,$1380,#intuifontlib,#la0,#screenslib,$1102}!subs{_gtpalette2+1,0,0}!name{"GTPalette","GTList#,id,x,y,w,h,Text$,flags,depth[,Color]"}!astatement!args{#word,#word,#word,#word,#word,#word,#string,#long,#word,#word}!libs{#mygadtoolslib,$1380,#intuifontlib,#la0,#screenslib,$1102}!subs{_gtscroller+1,0,0}!args{#word,#word,#word,#word,#word,#word,#string,#long,#word,#word,#word|#push}!libs{#mygadtoolslib,$1380,#intuifontlib,#la0,#screenslib,$1102}!subs{_gtscroller2+1,0,0}!name{"GTScroller","GTList#,id,x,y,w,h,Text$,flags,Visible,Total[,Top]"}!astatement!args{#word,#word,#word,#word,#word,#word,#string,#long,#word,#word}!libs{#mygadtoolslib,$1380,#intuifontlib,#la0,#screenslib,$1102}!subs{_gtslider+1,0,0}!args{#word,#word,#word,#word,#word,#word,#string,#long,#word,#word,#word|#push}!libs{#mygadtoolslib,$1380,#intuifontlib,#la0,#screenslib,$1102}!subs{_gtslider2+1,0,0}!name{"GTSlider","GTList#,id,x,y,w,h,Text$,flags,Min,Max[,Level]"}!astatement;!args{#word,#word,#word,#word,#word,#word,#string,#long,#word}!libs{#mygadtoolslib,$1380,#intuifontlib,#la0,#screenslib,$1102}!subs{_gtstring+1,0,0};!args{#word,#word,#word,#word,#word,#word,#string,#long,#word,#string|#push}!libs{#mygadtoolslib,$1380,#intuifontlib,#la0,#screenslib,$1102}!subs{_gtstring2+1,0,0};!name{"GTString","GTList#,id,x,y,w,h,Text$,flags,MaxChars [,default$]"}!astatement!args{#word,#word,#word,#word,#word,#word,#string,#long,#string}!libs{#mygadtoolslib,$1380,#intuifontlib,#la0,#screenslib,$1102}!subs{_gttext+1,0,0}!name{"GTText","GTList#,id,x,y,w,h,Text$,flags,Display$"}!astatement!args{#word,#word}!libs{#mygadtoolslib,$1180,#windowslib,$1081}!subs{_attachgtlist+1,0,0}!name{"AttachGTList","GTList#,Window#"}!astatement!repargs {0,2,#long|#push,#long|#push}!libs!subs {_gttags+1,0,0}!name {"GTTags","Tag,Value [,Tag,Value...]"}!afunction {#long}!args {#word,#word}!libs {#mygadtoolslib,$1180}!subs {_gtptr+1,0,0}!name {"GTGadPtr","(GTList#,id)"}!astatement!args {#word,#long,#long,#long,#long,#long}!libs {#mygadtoolslib,$1080}!subs {_gtbevel+1,0,0}!name {"GTBevelBox","GTList#,x,y,w,h,flags"}!astatement!args {#word,#word,#array|#push}!libs {#mygadtoolslib,$1180}!subs {_gtchnglist1+1,0,0}!args {#word,#word}!libs {#mygadtoolslib,$1180}!subs {_gtchnglist2+1,0,0}!name {"GTChangeList","GTList#,id [ ,List() ]"}!astatement!repargs {2,2,#word,#word,#long|#push,#long|#push}!libs {#mygadtoolslib,$1180}!subs {_gtsetattrs+1,0,0}!name {"GTSetAttrs","GTList#,id [,Tag,Value...]"}!astatement!args {#word,#word,#string}!libs {#mygadtoolslib,$1180}!subs {_gtsetstring+1,0,0}!name {"GTSetString","GTList#,id,string$"}!astatement!args {#word,#word,#long}!libs {#mygadtoolslib,$1180}!subs {_gtsetint+1,0,0}!name {"GTSetInteger","GTList#,id,value"}!afunction {#string}!args {#word,#word}!libs {#mygadtoolslib,$1180}!subs {_gtgetstring+1,0,0}!name {"GTGetString","GTList#,id"}!afunction {#long}!args {#word,#word}!libs {#mygadtoolslib,$1180}!subs {_gtgetint+1,0,0}!name {"GTGetInteger","GTList#,id"}!astatement!args{#word,#word,#word,#word,#long,#word}!libs{#mygadtoolslib,$1380,#intuifontlib,#la0,#screenslib,$1102,#shapeslib,#ia6|#pd5}!subs{_gtshape+1,sgchk,0};!args{#word,#word,#word,#word,#long,#word,#word}!libs{#mygadtoolslib,$1380,#intuifontlib,#la0,#screenslib,$1102,#shapeslib,#ia6|#pd5,#shapeslib,#ia2|#pd6}!subs{_gtshape2+1,sgchk2,0};!name{"GTShape","GTList#,id,x,y,flags,Shape#[,Shape#]"} ; Andre was here :)!afunction {#long}!args {#word,#word,#long}!libs {#mygadtoolslib,$1180}!subs {_gtgetattrs+1,0,0}!name {"GTGetAttrs","(GTList#,id,Tag)"}!astatement ; need a Redraw...!args{2,2}!libs{#mygadtoolslib,$1180}!subs{doenable,0,0}!name{"GTEnable","GTList#,Id"}!astatement ; need a Redraw...!args{2,2}!libs{#mygadtoolslib,$1180}!subs{dodisable,0,0}!name{"GTDisable","GTList#,Id"}!astatement ; need a Redraw...;!args{2,2,2}!libs{#mygadtoolslib,$1180}!subs{doselect,0,0};!args{2,2} ;simon was here!libs{#mygadtoolslib,$1180} ;andre too...!subs{doselect2,0,0};!name{"GTToggle","GTList#,Id [,On|Off]"}init:!nullsub{_codeinit,0,0}finit:!nullsub{_codefinit,0,0}_load:!nullsub{0,0,0}_save:!nullsub{0,0,0}_use:!nullsub{0,0,0}_free:!nullsub{_freecontext,0,0}!libfin{_toke,_load,_save,_use,_free,5,4} ;don't change!!!(cludged);----------------------------------------------------------------А .gtcontext mycontext.l ;0 points to context visualinfo.l ;4 our visual info from current screen current.l ;8 current gadget gtwindow.l ;12 window gadgetlist is attached toА АА s А/ .Screen`1(a1):А А ._codeinit: Аz gtname(pc),a1:АБ#0,d0:А~.l 4,a6:Аy _OpenLibrary(a6) А~.l d0,gtbase:АH failinit А~.l #_prehandler,d0:А~.l #_posthandler,d1 А8 ┼: failinit:АФ._codefinit: А~.l gtbase(pc),d0:АH noclose:А~.l d0,a1:А~.l 4,a6 Аy _CloseLibrary(a6):А[.l gtbase:noclose:АФgtname:А%.b "gadtools.library",0,0gtbase:А%.l 0._prehandler А~.l d0,a1:А~.l gtbase(pc),a6:Аy _FilterIMsg(a6) А~.l 4,a6:АФ._posthandler А~.l d0,a1:А~.l gtbase(pc),a6:Аy _PostFilterIMsg(a6) А~.l 4,a6:АФ._attachgtlist АВ.l a3-a4,-(a7) А~.l (a0),a0:А~.l a0,12(a1) А~.l (a1),a1:А~.l a0,a3:А~.l a1,a4 АБ#-1,d0:А~.ld0,d1:Аз.l a2,a2:Аy _AddGList(a6) А~.l a4,a0:А~.l a3,a1:Аз.l a2,a2:АБ#-1,d0 Аy _RefreshGList(a6):А~.l a3,a0:Аз.l a1,a1 А~.l gtbase(pc),a6:Аy _RefreshWindow(a6) АВ.l (a7)+,a3-a4:АФ._gtbevel Аz beveltags(pc),a1:А~.l 4(a0),4(a1) ;get vinfo А~.l 12(a0),a0:А~.l 50(a0),a0 ;get rport А~.l d1,d0:А~.l d2,d1:А~.l d3,d2:А~.l d4,d3 А░.l d5:АH nashit:А~.l #GTBB_Recessed,d5:nashit А~.l d5,8(a1):А~.l gtbase(pc),a6:Аy _DrawBevelBox(a6):АФbeveltags: А%.l GT_VisualInfo,0 А%.l GTBB_Recessed,0 А%.l 0._gtptr А~.l (a1),a0 'loop:А~.l (a0),d0:АH 'fail:А~.l d0,a0:А\ 38(a0),d1:АP 'loop 'poop:А~.l (a0),d2:АH 'goop:А~.l d2,a0:А\ 38(a0),d1:АP 'goop А~.l d2,d0:АX 'poop:'goop:АФ 'fail:АБ#0,d0:АФ;#_SetGadgetAttrs=-42 ;(gad,win,req,taglist)(a0/a1/a2/a3)._gtchnglist2 АБ.l#-1,d2:А~.l d2,gatchtags+4:А~.l (a1),a0:АX gcloop._gtchnglist1 А~.l -(a2),a2:Аz -28(a2),a2:А~.l a2,gatchtags+4:А~.l (a1),d0:А░.l d0:АH gafail:А~.l d0,a0 gcloop:А~.l (a0),d0:АH gafail:А~.l d0,a0:А\ 38(a0),d1:АP gcloop gdloop:А~.l (a0),d0:А░.l d0:АH gdok:А~.l d0,a2:А\ 38(a2),d1:АP gdok:А~.l a2,a0:АX gdloop:gdok А~.l 12(a1),a1:Аз.l a2,a2:Аz gatchtags(pc),a3:А~.l gtbase(pc),a6 Аy _SetGadgetAttrs(a6):gafail:АФgatchtags: А%.l GTLV_Labels,0 А%.l 0._gtsetattrs А~.l (a1),a0:А~.l (a1),d0:А░.l d0:АH fattr 'foop:А~.l (a0),d0:А░.l d0:АH fattr:А~.l d0,a0:А\ 38(a0),d1:АP 'foop 'soop:А~.l (a0),a3:А~.l (a3),d0:А░.l d0:АH 'koop:А\ 38(a3),d1:АP 'koop:А~.l a3,a0:АX 'soop 'koop:АY _gttags:А~.l 12(a1),a1:Аз.l a2,a2:Аz usertags(pc),a3 А~.l gtbase(pc),a6:Аy _SetGadgetAttrs(a6):fattr:АФ._gtsetstring А~.l (a1),a0 'loop:А~.l (a0),d0:А░.l d0:АH sattr:А~.l d0,a0:А\ 38(a0),d1:АP 'loop А~.l #GTST_String,d0:А\ #260,16(a0):АH m1 А~.l #GTTX_Text,d0:m1:Аz onetag(pc),a3:АВ.l d0/d2,(a3): А~.l 12(a1),a1:Аз.l a2,a2 А~.l gtbase(pc),a6:Аy _SetGadgetAttrs(a6):sattr:АФ._gtsetint А~.l (a1),a0 'loop:А~.l (a0),d0:АH iattr:А~.l d0,a0:А\ 38(a0),d1:АP 'loop А~.l #GTIN_Number,d0:А\ #260,16(a0):АH m2 А~.l #GTNM_Number,d0:m2:Аz onetag(pc),a3:АВ.l d0/d2,(a3) А~.l 12(a1),a1:Аз.l a2,a2 А~.l gtbase(pc),a6:Аy _SetGadgetAttrs(a6):iattr:АФonetag:А%.l 0,0,0._gtgetstring А~.l (a1),a0 'loop:А~.l (a0),d0:АH iattr:А~.l d0,a0:А\ 38(a0),d1:АP 'loop А~.l 34(a0),a0:А~.l (a0),a0:АБ #-1,d0 'sloop:А@.l #1,d0:А~.b (a0)+,(a3)+:АP 'sloop Ак #1,a3:АФ._gtgetint А~.l (a1),a0 'loop:А~.l (a0),d0:АH iattr:А~.l d0,a0:А\ 38(a0),d1:АP 'loop А~.l 34(a0),a0:А~.l 28(a0),d0:АФ#_GetGadgetAttrs=-174._gtgetattrs А~.l (a1),a0 'loop:А~.l (a0),d0:АH gattr:А~.l d0,a0:А\ 38(a0),d1:АP 'loop А~.l d2,gettag:А~.l 12(a1),a1:Аз.l a2,a2:Аz gettag(pc),a3 А~.l gtbase(pc),a6:Аy _GetGadgetAttrs(a6) А~.l value(pc),d0:АФ:gattr:АБ#0,d0:АФgettag:А%.l 0,value,0value:А%.l 0;----------------------------------------------------------------._handlestd А~ d1,wrkgadget+16:А~.l gtbase(pc),a6 А~.l (a0),a0:А~.l (a1),a1:АВ.l a0-a1,ufont ;ufont & uscreen АБ#0,d0:А~.b !s{\WBorLeft},d0:А= d0,d2 АБ#0,d0:А~.b !s{\WBorTop},d0:А= d0,d3 А= 142(a1),d3 ;RP\TxHeight А@#1,d3:АY _getcontext:Аz wrkgadget(pc),a1 АВ d2-d5,(a1):А~.l ufont(pc),12(a1) ;:MOVE d1,16(a1) А~.l -(a2),d1:А~.l -(a2),d0:А8 $cf01:А~.l d0,8(a1) А~.l 4(a3),22(a1):АФ._handlestd2 ; Andre was here :) А~ d1,wrkgadget+16:А~.l gtbase(pc),a6 А~.l (a0),a0:А~.l (a1),a1:АВ.l a0-a1,ufont ;ufont & uscreen АБ#0,d0:А~.b !s{\WBorLeft},d0:А= d0,d2 АБ#0,d0:А~.b !s{\WBorTop},d0:А= d0,d3 А= 142(a1),d3 ;RP\TxHeight А@#1,d3:АY _getcontext:Аz wrkgadget(pc),a1 АВ d2-d3,(a1):А~.l ufont(pc),12(a1) ;:MOVE d1,16(a1) А~.w Width,4(a1) : А~.w Height,6(a1); MOVE.l -(a2),d1:MOVE.l d4,d0:ALibJsr $cf01:MOVE.l d0,8(a1) ; might be remove the text !?! А~.l 4(a3),22(a1):АФ._getcontext: А░.l (a3):АP gotcontext:А~.l a3,a0:Аy _CreateContext(a6) А~.l d0,(a3):А~.l d0,8(a3) А~.l uscreen(pc),a0:Аz nulltags(pc),a1:Аy _GetVisualInfo(a6) А~.l d0,4(a3):gotcontext:АФ._freecontext: А░.l (a3):АH donefree А~.l (a3),a0 ; We have to remove the image pointers !?! 'loop:А~.l (a0),d0:АH 'fail:А~.l d0,a0:А~.l #0,18(a0):А~.l #0,22(a0) :АX 'loop 'fail А~.l gtbase(pc),a6:А~.l 4(a3),a0:Аy _FreeVisualInfo(a6) А~.l (a3),a0:Аy _FreeGadgets(a6):А[.l (a3) donefree:АФ;----------------------------------------------------------------._gttags А~.l a0,-(a7):Аz usertags(pc),a0:АX gettags tagloop:А~.l -(a2),d0:А~.l -(a2),d1:АВ.l d0-d1,(a0):А@#8,a0 gettags:Аo d7,tagloop:А~.l #0,(a0)+:А~.l (a7)+,a0:АФusertags:А&.l 32._gtbutton АВ.l a4-a5,-(a7):АY _handlestd:А~.l -(a2),d0:Аz buttags(pc),a2 А~.l d0,-(a7) АW #6,d0:Аа d1:Аv d1:Аv.l d1:А~.l d1,4(a2) АW #7,d0:Аа d1:Аv d1:Аv.l d1:А~.l d1,12(a2) АB#$3f,d0:А~ d0,20(a1) А~.l usertags(pc),d0:АH notg1:АБ#2,d0:notg1:А~.l d0,bt1 А~.l #_BUTTON,d0:А~.l 8(a3),a0:Аy _CreateGadget(a6) А~.l (a7)+,d3:А~.l d0,a0 АW #13,d3:АH 'notog:АV #0,14(a0):'notog А~.l d0,8(a3):АВ.l (a7)+,a4-a5:А[.l usertags:АФbuttags: А%.l GA_Disabled,0 А%.l GA_Immediate,0 А%.l GT_Underscore,95bt1:А%.l 0,usertags._gtcheckbox АВ.l a4-a5,-(a7):АY _handlestd:А~.l -(a2),d0:Аz boxtags(pc),a2 АW #6,d0:Аа d1:Аv d1:Аv.l d1:А~.l d1,4(a2) АW #8,d0:Аа d1:Аv d1:Аv.l d1:А~.l d1,12(a2) АW #9,d0:Аа d1:Аv d1:Аv.l d1:А~.l d1,20(a2) АB#$3f,d0:А~ d0,20(a1) А~.l usertags(pc),d0:АH notg2:АБ#2,d0:notg2:А~.l d0,bt2 А~.l #_CHECKBOX,d0:А~.l 8(a3),a0:Аy _CreateGadget(a6) А~.l d0,8(a3):АВ.l (a7)+,a4-a5:А[.l usertags:АФboxtags: А%.l GA_Disabled,0 А%.l GTCB_Checked,0 А%.l GTCB_Scaled,0 А%.l GT_Underscore,95bt2:А%.l 0,usertags_gtcycle2 А~ -22(a2),cycletags+22._gtcycle АВ.l a4-a5,-(a7):АY _handlestd:А~.l -(a2),d7 АY getoptions:А~.l d0,cycletags+12:Аz cycletags(pc),a2 АW #6,d7:Аа d1:Аv d1:Аv.l d1:А~.l d1,4(a2) АB#$3f,d7:А~ d7,20(a1) А~.l usertags(pc),d0:АH notg3:АБ#2,d0:notg3:А~.l d0,bt3 А~.l #_CYCLE,d0:А~.l 8(a3),a0:Аy _CreateGadget(a6) А~.l d0,8(a3):АВ.l (a7)+,a4-a5:А[.l usertags:АФcycletags: А%.l GA_Disabled,0 А%.l GTCY_Labels,0 А%.l GTCY_Active,0 А%.l GT_Underscore,95bt3:А%.l 0,usertags_gtmx2 А~ -22(a2),mxtags+30._gtmx АВ.l a4-a5,-(a7):АY _handlestd:А~.l -(a2),d7 АY getoptions:А~.l d0,mxtags+12:Аz mxtags(pc),a2 АW #6,d7:Аа d1:Аv d1:Аv.l d1:А~.l d1,4(a2) АW #9,d7:Аа d1:Аv d1:Аv.l d1:А~.l d1,20(a2) АB#$3f,d7:А~ d7,20(a1) А~.l usertags(pc),d0:АH notg6:АБ#2,d0:notg6:А~.l d0,bt6 А~.l #_MX,d0:А~.l 8(a3),a0:Аy _CreateGadget(a6) А~.l d0,8(a3):АВ.l (a7)+,a4-a5:А[.l usertags:АФmxtags: А%.l GA_Disabled,0 А%.l GTMX_Labels,0 А%.l GTMX_Scaled,0 А%.l GTMX_Active,0 А%.l GT_Underscore,95bt6:А%.l 0,usertagsgetoptions: А~.l -(a2),d2:А~.l -(a2),a0 А~.l d2,d0:А=.l #258,d0:АБ#0,d1:А8 $c002 А~.l d0,a2:Аz 256(a2),a4:А~.l a4,(a2)+:Аo d2,nxt1:АX duntnxt1:А~.b (a0)+,d1:А\.b#"|",d1:АH nxt2 А~.b d1,(a4)+:Аo d2,nxt1:АX duntnxt2:А~.b #0,(a4)+:А~.l a4,(a2)+:Аo d2,nxt1dunt:А~.b #0,(a4):А~.l #0,(a2):АФ._gttext АВ.l a4-a5,-(a7):АY _handlestd:А~.l -(a2),d7 А~.l -(a2),d1:А~.l -(a2),d0:А8 $cf01:А~.l d0,texttags+4 Аz texttags(pc),a2:АB#$3f,d7:А~ d7,20(a1) А~.l usertags(pc),d0:АH notgC:АБ#2,d0:notgC:А~.l d0,btC А~.l #_TEXT,d0:А~.l 8(a3),a0:Аy _CreateGadget(a6) А~.l d0,8(a3):АВ.l (a7)+,a4-a5:А[.l usertags:АФtexttags: А%.l GTTX_Text,0 А%.l GTTX_Border,-1btC:А%.l 0,usertags._gtinteger АВ.l a4-a5,-(a7):АY _handlestd А~.l -(a2),d0:А~.l -(a2),inttags+20:Аz inttags(pc),a2 АW #6,d0:Аа d1:Аv d1:Аv.l d1:А~.l d1,4(a2) АW #7,d0:Аа d1:Аv d1:Аv.l d1:А~.l d1,12(a2) АB#$3f,d0:А~ d0,20(a1) А~.l usertags(pc),d0:АH notg4:АБ#2,d0:notg4:А~.l d0,bt4 А~.l #_INTEGER,d0:А~.l 8(a3),a0:Аy _CreateGadget(a6) А~.l d0,8(a3):АВ.l (a7)+,a4-a5:А[.l usertags:АФinttags: А%.l GA_Disabled,0 А%.l GA_Immediate,0 А%.l GTIN_Number,0 А%.l GT_Underscore,95bt4:А%.l 0,usertags_gtlistview1 А~ -18(a2),listtags+22:А~ -18(a2),listtags+30:АX _gtlistview_gtlistview2 А~ -18(a2),listtags+30:А~ -22(a2),listtags+22:АX _gtlistview._gtlistview АВ.l a4-a5,-(a7):АY _handlestd:А~.l -(a2),d0 А~.l -(a2),a2:Аz -28(a2),a2:А~.l a2,listtags+12 Аz listtags(pc),a2 АW #6,d0:Аа d1:Аv d1:Аv.l d1:А~.l d1,4(a2) АW #12,d0:Аа d1:Аv d1:Аv.l d1:А~.l d1,44(a2) АB#$3f,d0:А~ d0,20(a1) А~.l usertags(pc),d0:АH notg5:АБ#2,d0:notg5:А~.l d0,bt5 А~.l #_LISTVIEW,d0:А~.l 8(a3),a0:Аy _CreateGadget(a6) А~.l d0,8(a3):АВ.l (a7)+,a4-a5:А[.l usertags:АФlisttags: А%.l GA_Disabled,0 А%.l GTLV_Labels,0 А%.l GTLV_Top,0 А%.l GTLV_Selected,-1 А%.l GTLV_ShowSelected,0 А%.l GTLV_ReadOnly,0 А%.l GT_Underscore,95bt5:А%.l 0,usertags._gtnumber АВ.l a4-a5,-(a7):АY _handlestd А~.l -(a2),d0:А~.l -(a2),numbertags+4:Аz numbertags(pc),a2 АB#$3f,d0:А~ d0,20(a1) А~.l usertags(pc),d0:АH notg7:АБ#2,d0:notg7:А~.l d0,bt7 А~.l #_NUMBER,d0:А~.l 8(a3),a0:Аy _CreateGadget(a6) А~.l d0,8(a3):АВ.l (a7)+,a4-a5:А[.l usertags:АФnumbertags: А%.l GTNM_Number,0 А%.l GTNM_Border,-1bt7:А%.l 0,usertags_gtpalette2 А~ -18(a2),palettetags+38._gtpalette АВ.l a4-a5,-(a7):АY _handlestd А~.l -(a2),d0:А~.l -(a2),palettetags+12:Аz palettetags(pc),a2 АW #6,d0:Аа d1:Аv d1:Аv.l d1:А~.l d1,4(a2) АB#$3f,d0:А~ d0,20(a1) А~.l usertags(pc),d0:АH notg8:АБ#2,d0:notg8:А~.l d0,bt8 А~.l #_PALETTE,d0:А~.l 8(a3),a0:Аy _CreateGadget(a6) А~.l d0,8(a3):АВ.l (a7)+,a4-a5:А[.l usertags:АФpalettetags: А%.l GA_Disabled,0 А%.l GTPA_Depth,0 А%.l GTPA_IndicatorWidth,2 А%.l GTPA_IndicatorHeight,2 А%.l GTPA_Color,0 А%.l GT_Underscore,95bt8:А%.l 0,usertags_gtscroller2 А~ -18(a2),scrollertags+54._gtscroller АВ.l a4-a5,-(a7):АY _handlestd А~.l -(a2),d0:А~ -(a2),scrollertags+30:А~ -(a2),scrollertags+38 Аz scrollertags(pc),a2 АW #6,d0:Аа d1:Аv d1:Аv.l d1:А~.l d1,4(a2) АW #7,d0:Аа d1:Аv d1:Аv.l d1:А~.l d1,12(a2) АБ#1,d1:АW #10,d0:АH notv:АБ#2,d1:notv:А~.l d1,20(a2) АБ#0,d1:АW #11,d0:АH noarr:АБ#16,d1:noarr:А~.l d1,44(a2) АB#$3f,d0:А~ d0,20(a1) А~.l usertags(pc),d0:АH notg9:АБ#2,d0:notg9:А~.l d0,bt9 А~.l #_SCROLLER,d0:А~.l 8(a3),a0:Аy _CreateGadget(a6) А~.l d0,8(a3):АВ.l (a7)+,a4-a5:А[.l usertags:АФscrollertags: А%.l GA_Disabled,0 А%.l GA_Immediate,0 А%.l PGA_Freedom,0 А%.l GTSC_Visible,0 А%.l GTSC_Total,0 А%.l GTSC_Arrows,16 А%.l GTSC_Top,0 А%.l GT_Underscore,95 А%.l GA_RelVerify,-1bt9:А%.l 0,usertags_gtslider2 А~ -18(a2),slidertags+46._gtslider АВ.l a4-a5,-(a7):АY _handlestd А~.l -(a2),d0:А~ -(a2),slidertags+30:А~ -(a2),slidertags+38 Аz slidertags(pc),a2 АW #6,d0:Аа d1:Аv d1:Аv.l d1:А~.l d1,4(a2) АW #7,d0:Аа d1:Аv d1:Аv.l d1:А~.l d1,12(a2) АБ#1,d1:АW #10,d0:АH notv2:АБ#2,d1:notv2:А~.l d1,20(a2) АB#$3f,d0:А~ d0,20(a1) А~.l usertags(pc),d0:АH notgA:АБ#2,d0:notgA:А~.l d0,btA А~.l #_SLIDER,d0:А~.l 8(a3),a0:Аy _CreateGadget(a6) А~.l d0,8(a3):АВ.l (a7)+,a4-a5:А[.l usertags:АФslidertags: А%.l GA_Disabled,0 А%.l GA_Immediate,1 А%.l PGA_Freedom,0 А%.l GTSL_Min,0 А%.l GTSL_Max,0 А%.l GTSL_Level,0 А%.l GT_Underscore,95 А%.l GA_RelVerify,-1btA:А%.l 0,usertags._gtstring2 А~.l -22(a2),stringtags+28._gtstring АВ.l a4-a5,-(a7):АY _handlestd А~.l -(a2),d0:А~ -(a2),stringtags+22:Аz stringtags(pc),a2 АW #6,d0:Аа d1:Аv d1:Аv.l d1:А~.l d1,4(a2) АW #7,d0:Аа d1:Аv d1:Аv.l d1:А~.l d1,12(a2) АB#$3f,d0:А~ d0,20(a1) А~.l usertags(pc),d0:АH notgB:АБ#2,d0:notgB:А~.l d0,btB А~.l #_STRING,d0:А~.l 8(a3),a0:Аy _CreateGadget(a6) А~.l d0,8(a3):АВ.l (a7)+,a4-a5:А[.l usertags:АФstringtags: А%.l GA_Disabled,0 А%.l GA_Immediate,0 А%.l GTST_MaxChars,0 А%.l GTST_String,0 А%.l GT_Underscore,95btB:А%.l 0,usertags._gtshape2 ; Two images А~.w (a2),Width2 А~.w 2(a2),Height2 А~.w 4(a2),Depth2 А~.l 14(a2),ImageData2 А=.w #GFLG_GADGHIMAGE,gflags._gtshape ; Only one image А~.w (a6),Width А~.w 2(a6),Height А~.w 4(a6),Depth А~.l 14(a6),ImageData А=.w #GFLG_GADGIMAGE,gflags .doshape: АВ.l a4-a5,-(a7):АY _handlestd2:А~.l d4,d0:Аz shapetags(pc),a2 АW #6,d0:Аа d1:Аv d1:Аv.l d1:А~.l d1,4(a2) АW #7,d0:Аа d1:Аv d1:Аv.l d1:А~.l d1,12(a2) АB#$3f,d0:А~ d0,20(a1) А~.l usertags(pc),d0:АH nots1:АБ#2,d0:nots1:А~.l d0,sht1 А~.l #_BUTTON,d0:А~.l 8(a3),a0:Аy _CreateGadget(a6) А~.l d0,a0:А~.l Image(pc),18(a0):А~.l Image2(pc),22(a0) А~.w gflags,12(a0):А~.w #GACT_RELVERIFY,14(a0) А~.w 16(a0),d1:А=.w #GTYP_BOOLGADGET,d1:Ак #1,d1:А~.w d1,16(a0) А~.l d0,8(a3):АВ.l (a7)+,a4-a5:А[.l usertags:А[.w gflags:АФshapetags: ; What flags/tags are to use now ? А%.l GA_Disabled,0 А%.l GA_Immediate,0 А%.l GT_Underscore,95sht1:А%.l 0,usertags.doenable:АY findgadget:АU #0,12(a0):АФ.dodisable:АY findgadget:АV #0,12(a0):АФ.doselect:;select a gadget!;АY findgadget:А░ d2:АH 'skip:АV #7,13(a0):АФ'skip:АU #7,13(a0):АФ.doselect2:;toggle a gadget!;АY findgadget:АT #7,13(a0):АФ.findgadget:;gadget list a1, id in d1, return a0, gadget struct;А~.l a1,a0'loop:А~.l (a0),a0:А\ 38(a0),d1:АP 'loop:А░ 16(a0):АO 'loopАФ;--------------------------------------------------------------gflags: А%.w 0;Image: Dcb.b SizeOf .Image,0Image: А%.l LeftEdge ; Image oneLeftEdge: А%.w 0TopEdge: А%.w 0Width: А%.w 0Height: А%.w 0Depth: А%.w 0ImageData: А%.l 0PlanePick: А%.b 3PlaneOnOff: А%.b 0NextImage: А%.l 0Image2: А%.l LeftEdge2 ; Image twoLeftEdge2: А%.w 0TopEdge2: А%.w 0Width2: А%.w 0Height2: А%.w 0Depth2: А%.w 0ImageData2: А%.l 0PlanePick2: А%.b 3PlaneOnOff2: А%.b 0NextImage2: А%.l 0ufont:А%.l 0uscreen:А%.l 0wrkgadget:А(.b А/ .NewGadget,0gadgetptr:А%.l nullgadgetnullgadget:А(.b А/ .Gadget,0nulltags:А%.l 0,0,0,0;----------------------------------------------------------------;******************** Error Checking ******************;errorserr1:АБ.l #1,d0:Ао #0err2:А~.l #mess2,d0:Ао #0err3:А~.l #mess3,d0:Ао #0err4:А~.l #mess4,d0:Ао #0mess2:А%.b "Not enough space in PATH string",0mess3:А%.b "Not enough space in NAME string",0mess4:А%.b "Uninitialized Shape",0А'freqchk:А░.l d1:АH err1:А░.l d2:АH err1;А~.l d1,a0:А\.l #160,-8(a0):АG err2А~.l d2,a0:А\.l #64,-8(a0):АG err3;АФsgchk2:А░ (a2):АH err4;sgchk:А░ (a6):АH err4:АФ