home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / dev / e / EasyGUI_v33b2.lha / Src / EasyGUI / tabs_test2.e < prev    next >
Text File  |  1997-02-10  |  786b  |  29 lines
  1. MODULE 'tools/easygui', 'tools/exceptions',
  2.        'gadgets/tabs',
  3.        'plugins/tabs'
  4.  
  5. DEF labels:PTR TO tablabel, gui:PTR TO LONG
  6.  
  7. PROC main()
  8.   DEF top, t=NIL:PTR TO tabs
  9.   labels:=['Slide',   -1,-1,-1,-1, NIL,
  10.            'Check',   -1,-1,-1,-1, NIL,
  11.            'Palette', -1,-1,-1,-1, NIL,
  12.             NIL]:tablabel
  13.   NEW t.tabs(labels)
  14.   top:=[PLUGIN,{tabsaction},t]
  15.   gui:=[
  16.          [ROWS,top,[SPACE],[SLIDE,{ignore},'Colors:',FALSE,1,8,3,5,'']],
  17.          [ROWS,top,[SPACE],[CHECK,{ignore},'Ignore case',TRUE,FALSE]],
  18.          [ROWS,top,[SPACE],[PALETTE,{ignore},'Palette:',3,5,2,0]]
  19.        ]
  20.   easyguiA('Tabs Test 2', gui[])
  21. ENDPROC
  22.  
  23. PROC ignore(i,x) IS EMPTY
  24.  
  25. PROC tabsaction(gh,t:PTR TO tabs)
  26.   changegui(gh,gui[t.current])
  27.   changetitle(gh,labels[t.current].label)
  28. ENDPROC
  29.