home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #6 / amigaacscoverdisc1998-061998.iso / w_acs / blitz / okno_acs.bb2
Text File  |  1998-06-08  |  2KB  |  86 lines
  1.  
  2. ;
  3. ; Przyklad na tworzenie i obsluge
  4. ; gadzetow wykorzystujacych biblioteke
  5. ; gadtools, oraz ich obslugi.
  6. ;
  7. ;
  8. ;                    Maciej Matyka'98
  9.  
  10.  
  11. WbToScreen 0
  12. Use Screen 0
  13.  
  14. NEWTYPE.lv
  15.   nr.w
  16.   name.s
  17. End NEWTYPE ; lv
  18.  
  19. Dim List MyList.lv(8)
  20. AddItem MyList() : MyList()\name="Poz 1"
  21. AddItem MyList() : MyList()\name="Poz 2"
  22. AddItem MyList() : MyList()\name="Poz 3"
  23. AddItem MyList() : MyList()\name="Poz 4"
  24. AddItem MyList() : MyList()\name="Poz 5"
  25. AddItem MyList() : MyList()\name="Poz 6"
  26. AddItem MyList() : MyList()\name="Poz 7"
  27. AddItem MyList() : MyList()\name="Poz 8"
  28. AddItem MyList() : MyList()\name="Poz 9"
  29.  
  30. GTListView 0,7,147,5,87,56,"",0,MyList()
  31. GTText 0,8,146,64,92,15,"Poz",1,"1"
  32.  
  33. GTPalette 0,0,19,6,48,57,"",0,3,1
  34. GTText 0,1,59,64,40,13,"Kolor",1,"0"
  35. GTString 0,2,325,5,106,13,"Tekst",1,256,"-"
  36. GTText 0,3,330,27,123,12,"Wpisales",1,"-"
  37. cy_Cycle$="Pozycja 1|Pozycja 2|Pozycja 3|Pozycja 4"
  38. GTCycle 0,4,56,108,116,16,"Cycle",1,cy_Cycle$,2
  39. GTSlider 0,5,64,87,216,9,"Slider",1,1,45,13
  40. GTText 0,6,289,86,61,11,"",0,"13"
  41. GTButton 0,9,389,81,113,53,"Koniec",0
  42. GTCheckBox 0,10,352,122,26,11,"Wyjscie ON/OFF",257
  43.  
  44. AddIDCMP $10
  45.  
  46. Window 0,73,67,517,151,$0001100E,"Okno",1,0
  47. AttachGTList 0,0
  48. GTBevelBox 0,254,13,231,41,0
  49.  
  50. Repeat
  51. ev.l=WaitEvent
  52. ec.l=EventCode
  53. gh.l=GadgetHit
  54.  
  55.  
  56. Select ev
  57.   Case 64
  58.     Select gh
  59.       Case 0
  60.         GTSetString 0,1,Str$(ec)
  61.       Case 2
  62.         GTSetString 0,3,GTGetString(0,2)
  63.       Case 5
  64.         GTSetString 0,6,Str$(ec)
  65.       Case 7
  66.         GTSetString 0,8,Str$(ec+1)
  67.       Case 9
  68.         ev.l=$200
  69.       Case 10
  70.         a=GTStatus(0,10)
  71.         Select a
  72.           Case 0
  73.             GTDisable 0,9
  74.             Redraw 0,9
  75.           Case 1
  76.             GTEnable 0,9
  77.             Redraw 0,9
  78.         End Select
  79.     End Select
  80. End Select
  81.  
  82.  
  83. Until ev.l=$200
  84. End
  85.  
  86.