2 wm geometry . 500x200
\r\r
3 wm title . "VMDemo"
\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
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
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
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
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
27 #wm resizable .win1 0 0
\r\r
28 #wm resizable .win2 0 0
\r\r
29 #wm resizable .win3 0 0
\r\r