git.maemo.org Git - opencv/blob - apps/vmdemotk/interface.tcl

   1 \r\r
   2 wm geometry . 500x200\r\r
   3 wm title . "VMDemo"\r\r
   4 wm resizable . 0 0\r\r
   5 frame .top\r\r
   6 pack .top -side top -fill x -pady 2m\r\r
   7 label .top.l1 -text "Imaging Size"\r\r
   8 pack .top.l1 -side left -expand 1 -padx 0 -pady 0\r\r
   9 \r\r
  10 label .top.l2 -text " " -relief sunken -width 10\r\r
  11 pack .top.l2 -side left -expand 1 -padx 0 -pady 0\r\r
  12 button .top.b -text "Open Project" -command Cfileopen\r\r
  13 #Cfileopen\r\r
  14 pack .top.b -side left -expand 1 -padx 10 -pady 10\r\r
  15 scale .s -orient horizontal -command Cscale -from 0.0 -to 1.0 -resolution 0.01 -state disabled\r\r
  16 pack .s -anchor center\r\r
  17 label .l3 -text "Camera Position"\r\r
  18 pack .l3 -anchor center\r\r
  19 frame .bottom\r\r
  20 pack .bottom -side bottom -fill x -pady 2m\r\r
  21 button .bottom.b1 -text "Set Original Windows Position" -command CSetpos\r\r
  22 pack .bottom.b1 -side left -expand 1 -padx 10 -pady 10\r\r
  23 set chb 0.0\r\r
  24 checkbutton .bottom.cb1 -text "Show Scanlines" -command CShowScanlines -variable chb\r\r
  25 pack .bottom.cb1 -side left -expand 1 -padx 10 -pady 10\r\r
  26 \r\r
  27 #wm resizable .win1 0 0\r\r
  28 #wm resizable .win2 0 0\r\r
  29 #wm resizable .win3 0 0\r\r