set work [frame .work -relief raised -bd 2] pack $work -side top -fill both -expand 1 foreach f {cd fl} { frame $work.$f -relief raised -bd 2 pack $work.$f -side top \ -fill both -expand 1} label $work.cd.image -image $cdromUImage pack $work.cd.image -side left -padx 3 -pady 3 button $work.cd.but -textvariable cdromText pack $work.cd.but -side left -padx 3 -pady 3 -fill both -expand 1 label $work.fl.image -image $floppyUImage pack $work.fl.image -side left -padx 3 -pady 3 button $work.fl.but -textvariable floppyText pack $work.fl.but -side left -padx 3 -pady 3 -fill both -expand 1
| Previous slide | Next slide | Back to the index | View Graphic Version |
No notes for slide 42