home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / icon / historic / v941.tgz / icon.v941src.tar / icon.v941src / ipl / gpacks / vib / dlog.icn < prev    next >
Text File  |  2000-07-29  |  1KB  |  41 lines
  1. #  dlog.icn -- VIB dialog box demo and test program
  2.  
  3. procedure main(args)
  4.    Window("font=sans,bold,24", args)
  5.    WAttrib("fillstyle=textured", "pattern=grains")
  6.    FillRectangle()
  7.    WAttrib("fillstyle=solid")
  8.    CenterString(247, 102, "Dialog Box Test")
  9.    Fg("white")
  10.    CenterString(250, 100, "Dialog Box Test")
  11.    while dl() ~== "quit"
  12. end
  13.  
  14. link dsetup
  15.  
  16. #===<<vib:begin>>===    modify using vib; do not remove this marker line
  17. procedure dl(win, deftbl)
  18. static dstate
  19. initial dstate := dsetup(win,
  20.    [":Sizer::1:0,0,270,300:",],
  21.    ["checkbox:Button:check:1:29,52,83,20:checkbox",],
  22.    ["line:Line:::15,233,255,233:",],
  23.    ["ne:Button:regular:1:235,0,35,20:ne",],
  24.    ["nw:Button:regular:1:0,0,35,20:nw",],
  25.    ["quit:Button:regular::137,257,49,20:quit",],
  26.    ["radio:Choice::4:180,49,57,84:",,
  27.       ["KUAT","KUAZ","KMCI","KJZZ"]],
  28.    ["repeat:Button:regular:-1:70,256,49,20:repeat",],
  29.    ["scroller:Scrollbar:h:1:35,183,200,18:0.0,1.0,0.5",],
  30.    ["se:Button:regular:1:235,280,35,20:se",],
  31.    ["slider:Slider:h:1:35,154,200,18:0.0,1.0,0.5",],
  32.    ["sw:Button:regular:1:0,280,35,20:sw",],
  33.    ["text:Text::11:34,112,122,19:Text:\\=",],
  34.    ["title:Label:::73,17,105,13:Dialog Box Test",],
  35.    ["xbox:Button:xbox:1:30,80,25,25:",],
  36.    ["xlabel:Label:::65,85,28,13:xbox",],
  37.    )
  38. return dpopup(win, deftbl, dstate)
  39. end
  40. #===<<vib:end>>===    end of section maintained by vib
  41.