home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / tls / tls089.ibmaix.Z / tls089.ibmaix / lib / vtcl / tests / rowtext.tcl < prev    next >
Encoding:
Text File  |  1995-07-20  |  513 b   |  24 lines
  1. # CVS $Id: rowtext.tcl,v 1.4 1995/02/17 11:16:59 zibi Exp $
  2. #
  3. # This tests a typical use of rowcolumns
  4. #
  5.  
  6. set app [VtOpen RowCol]
  7.  
  8. set dlog [VtFormDialog $app.form]
  9.  
  10. set rc [VtRowColumn $dlog.rc -packing TIGHT -vertical \
  11.        -rightSide FORM -leftSide FORM -xmArgs "XmNbackground red"]
  12.  
  13. foreach b  { Name Address Country Telephone } {
  14.     VtLabel $rc.$b  -label "$b:"
  15.     VtText $rc.Text$b
  16. }
  17.  
  18. VtPushButton $dlog.quit -label Quit -callback { VtClose ;exit 0 ;#} \
  19.     -bottomSide FORM
  20.  
  21. VtShow $dlog
  22.  
  23. VtMainLoop
  24.