tcl/wintest0.tcl

   1 set win_x 0
   2 set win_y 0
   3
   4 proc nw {} {
   5   set win [winsys window "red" "win0" $::win_x $::win_y 180 120 "title"]
   6   puts "win=$win"
   7   #
   8   set ok [$win button "ok" 2 $([$win geth]-9-12) -1 -1 "O&K" [lambda {me} {
   9     set win [$me window]
  10     puts "=== OK ==="
  11     puts [$me type]
  12     puts [$win type]
  13     #
  14     puts -nonewline "cb1: "
  15     puts [[$win "cb1"] getstate]
  16     #
  17     puts -nonewline "cb2: "
  18     puts [[$win "cb2"] getstate]
  19     #
  20     puts -nonewline "radiogroup 'rgroup1': "
  21     puts [$win getradioactive "rgroup1"]
  22     #
  23     puts -nonewline "rb1 group: "
  24     puts [[$win "g1r1"] getgroup]
  25     #
  26     puts -nonewline "rb1: "
  27     puts [[$win "g1r1"] getradioactive]
  28     #
  29     puts -nonewline "rb2: "
  30     puts [[$win "g1r2"] getradioactive]
  31     #
  32     puts -nonewline "edt: \["
  33     puts -nonewline [[$win "led0"] gettext]
  34     puts "\]"
  35   }]]
  36   $ok setdefault
  37   $ok activate
  38   #
  39   set cancel [$win button "cancel" $([$ok getx]+[$ok getw]+2) [$ok gety] -1 -1 "Cancel" [lambda {me} {
  40     #puts [winsys type $me]
  41     puts "Cancel"
  42     [$me window] close
  43   }]]
  44   $cancel setcancel
  45   #
  46   set st [$win static "static_name" 2 2 -1 -1 "&name:"]
  47   #
  48   set le [$win lineedit "led0" $([$st getx]+[$st getw]+2) [$st gety] 60 -1 "text"]
  49   $st setlinked $le
  50   #
  51   set cb1 [$win checkbox "cb1" [$st getx] $([$st gety]+[$st geth]+1) -1 -1 "checkbox &1"]
  52   $cb1 setstate 1
  53   #
  54   set cb2 [$win checkbox "cb2" [$cb1 getx] $([$cb1 gety]+[$cb1 geth]+1) -1 -1 "checkbox &2"]
  55   $cb2 setstate 2
  56   #
  57   set rb1 [$win radio "rgroup1" "g1r1" $([$cb2 getx]+4) $([$cb2 gety]+[$cb2 geth]+12) -1 -1 "r&adio 1"]
  58   #
  59   set rb2 [$win radio "rgroup1" "g1r2" [$rb1 getx] $([$rb1 gety]+[$rb1 geth]+1) -1 -1 "ra&dio 2"]
  60   $rb2 setradioactive
  61   #
  62   set frm [$win frame "frm" $([$rb1 getx]-3) $([$rb1 gety]-9) 61 31 "frame"]
  63   #
  64   set hsb [$win scrollbar horiz "hsb" [$rb1 getx] $([$frm gety]+[$frm geth]+4) 64]
  65   #
  66   set vsb [$win scrollbar vert "vsb" $([$hsb getx]+[$hsb getw]+4) $([$hsb gety]-32) 60]
  67   $vsb setmax 32
  68   #
  69   set lsb [$win listbox "lsb" 100 10 60 90]
  70   $lsb setvbar 1
  71   $lsb setmulti 1
  72   #
  73   loop ic 0 22 {
  74     $lsb additem "item $ic"
  75   }
  76   #
  77   set ::win_x $($::win_x + 16)
  78   set ::win_y $($::win_y + 16)
  79   if {$::win_x > 300} { set ::win_x 1 }
  80   if {$::win_y > 220} { set ::win_y 1 }
  81   #
  82   set ::win0 $win
  83 }
  84
  85 proc cw {} {
  86   $::win0 close
  87   unset ::win0
  88 }