home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 91 / af091a.adf / af91a3.lzx / prgs / GUI / gadout.b < prev    next >
Text File  |  2019-03-24  |  1KB  |  45 lines
  1. {* 
  2. ** Demonstrates use of Gadget Output 
  3. ** command to get gadget values.
  4. **
  5. ** D Benn, 1995
  6. *}
  7.  
  8. SUB Test
  9. SHORTINT theGadget, n
  10.   WINDOW 9,"",(170,50)-(470,175),10
  11.   {* RENDER GADGETS, BEVEL-BOXES AND TEXT *}
  12.   GADGET 255,ON,10,(89,59)-(203,72),POTX
  13.   GADGET 254,ON,10,(242,22)-(259,97),POTY
  14.   GADGET 253,ON,"Gimme",(21,89)-(90,108),BUTTON
  15.   GADGET 252,ON,"Quit",(134,89)-(203,108),BUTTON
  16.   GADGET 251,ON,"123",(90,33)-(216,45),LONGINT
  17.   GADGET 250,ON,"One",(90,8)-(216,21),STRING
  18.   {* GADGET HANDLING CODE STARTS HERE *}
  19.   Repeat
  20.     GADGET WAIT 0
  21.     theGadget = GADGET(1)
  22.     If theGadget = 253 Then
  23.         msg$ = ""
  24.         Gadget Output 255
  25.     msg$ = msg$ + "x: "+Str$(Gadget(3))
  26.         Gadget Output 254
  27.     msg$ = msg$ + "  y: "+Str$(Gadget(3))
  28.         Gadget Output 251
  29.        n$ = Str$(Gadget(2))
  30.     n$ = Right$(n$,Len(n$)-1)
  31.     msg$ = msg$ + "  n: "+n$
  32.         Gadget Output 250
  33.     msg$ = msg$ + "  s: "+Cstr(Gadget(2))
  34.     MsgBox msg$,"Ok"
  35.     End If 
  36.   Until theGadget = 256 Or theGadget = 252
  37.   {* CLEAN UP *}
  38.   FOR n=255 TO 250 STEP -1
  39.     GADGET CLOSE n
  40.   NEXT
  41.   WINDOW CLOSE 9 
  42. END SUB
  43.  
  44. Test
  45.