home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / util / wb / picticon / source / mod / gadgets.e < prev    next >
Encoding:
Text File  |  1995-06-08  |  2.0 KB  |  62 lines
  1. OPT MODULE
  2. OPT EXPORT
  3.  
  4. MODULE    'gadtools','libraries/gadtools'
  5. MODULE    'intuition/intuition','intuition/gadgetclass'
  6. MODULE    'graphics/gfx','graphics/rastport'
  7.  
  8. MODULE    'mod/macros'
  9.  
  10. PROC createslider(gad,x,y,w,h,id,min,max,level,vis,orient=LORIENT_HORIZ)
  11.     gad:=CreateGadgetA(SLIDER_KIND,gad,
  12.     [x,y,w,h,0,0,id,0,vis,0]:newgadget,
  13.         [GTSL_MIN,min,GTSL_MAX,max,GTSL_LEVEL,level,
  14.             PGA_FREEDOM,orient,
  15.             NWAY_KIND,TRUE,GTVI_NWTAGS,TRUE,NIL,NIL])
  16. ENDPROC gad,gad
  17.  
  18. PROC createbool(gad,x,y,w,h,id,string,textattr,vis)
  19.     gad:=CreateGadgetA(BUTTON_KIND,gad,
  20.     [x,y,w,h,string,textattr,id,0,vis,0]:newgadget,[NIL,NIL])
  21. ENDPROC gad,gad
  22.  
  23. PROC drawbevelbox(vis,rast:PTR TO rastport,x,y,w,h,ft=0,rec=0,pencol=-1)
  24.     DEF olddm,oldafpt,oldafptsz
  25.     DEF inw,inh
  26.     IF rast=0 THEN RETURN
  27.     olddm:=GetDrMd(rast)
  28.     oldafpt:=rast.areaptrn
  29.     oldafptsz:=rast.areaptsz
  30.     IF ft=4 THEN ft:=0
  31.     IF pencol>=0
  32.         SELECT ft
  33.         CASE 1;inw:=2;inh:=1
  34.         CASE 2;inw:=4;inh:=2
  35.         CASE 3;inw:=6;inh:=3
  36.         DEFAULT;inw:=1;inh:=1
  37.         ENDSELECT
  38.         SetAPen(rast,pencol)
  39.         IF (((w-inw-inw)>0) AND ((h-inh-inh)>0)) THEN RectFill(rast,x+inw,y+inh,x+w-1-inw,y+h-1-inh)
  40.     ENDIF
  41.     SetDrMd(rast,RP_JAM2)
  42.     IF rec=0
  43.         DrawBevelBoxA(rast,x,y,w,h,[GT_VISUALINFO,vis,
  44.                 GTBB_FRAMETYPE,ft,NIL,NIL])
  45.     ELSE
  46.         DrawBevelBoxA(rast,x,y,w,h,[GT_VISUALINFO,vis,
  47.                 GTBB_RECESSED,rec,GTBB_FRAMETYPE,ft,NIL,NIL])
  48.     ENDIF
  49.     SetDrMd(rast,olddm)
  50.     setafpt(rast,oldafpt,oldafptsz)
  51. ENDPROC
  52.  
  53. PROC bottomedge(win:PTR TO window) IS (win.height-win.borderbottom)
  54. PROC rightedge(win:PTR TO window) IS (win.width-win.borderright)
  55. PROC insidewidth(win:PTR TO window) IS (win.width-win.borderleft-win.borderright)
  56. PROC insideheight(win:PTR TO window) IS (win.height-win.bordertop-win.borderbottom)
  57.  
  58. PROC disablegadget(x,win);IF ((x) AND (win)) THEN Gt_SetGadgetAttrsA(x,win,NIL,[GA_DISABLED,TRUE,NIL,NIL]);ENDPROC
  59. PROC enablegadget(x,win);IF ((x) AND (win)) THEN Gt_SetGadgetAttrsA(x,win,NIL,[GA_DISABLED,FALSE,NIL,NIL]);ENDPROC
  60.  
  61. PROC extractmessage(mes:PTR TO intuimessage);RETURN mes.class,mes.iaddress,mes.code;ENDPROC
  62.