home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 2 / MECOMP-CD-II.iso / amiga / programmieren / basic / guitoolkit / examples / eg1.asc next >
Encoding:
Text File  |  1998-01-24  |  940 b   |  22 lines
  1. ; Code generated by GUIToolBox - by Tony Docker
  2. ; * Example project *
  3. #_DispayID=$80000032: #_Depth=$80000025: #_Pens=$8000003A
  4. ; Set up default pens
  5. Dim pens.w(10): For n=0 to 10: pens(n)=$FFFF: Next n: *p.w=&pens(0)
  6. ScreenTags 1,"Example screen",#_DispayID,167936,#_Depth,3,#_Pens,*p
  7. ; Default IDCMP flags.
  8. GTButton 1,1,138,8,190,22,"Press me..",16
  9. GTCheckBox 1,2,405,36,15,8,"option1",1
  10. GTCheckBox 1,3,405,51,15,8,"option2",1
  11. GTCycle 1,4,140,35,186,16,"Cycle me",1," LEFT| RIGHT| ABOVE| BELOW",0
  12. GTTags #GTMX_Spacing,2
  13. GTMX 1,5,410,74,17,44,"",1," selection 1| selection 2| selection 3| selection 4",0
  14. GTTags #GTLV_ScrollWidth,16,#LAYOUTA_Spacing,1
  15. GTListView 1,6,14,62,276,50,"Heres a list",8,MyList(),1,1
  16. Window 1,77,35,474,169,$1 |$2 |$4 |$8 |$400 |$1000 ,"Example1 window",1,2,0
  17. AttachGTList 1,1
  18. Wcolour 1,0: Wjam 0
  19. LoadFont 1,"topaz.font",8: WindowFont 1
  20. WLocate 146,141: Print "and here's some text...."
  21. GTBevelBox 1,5,57,294,71,0
  22.