WidGet file, version 1.1, created: Wed Jul 30 11:52:06 PDT 1997 Widget label#1 other {} {} geometry row 2 other error {} other type label other master {} configure text resizable other pathname label#1 other tags {} other level {} other help {} other comments {} configure borderwidth 4 geometry column 5 geometry sticky nes other item_name resizeLabel other tabbing {} configure relief groove Widget button#1 geometry row 1 other error {} other type button configure anchor w other master .frame#1 configure text {+ 5} configure default normal other pathname button#1 other tags {} other level {} other help {} geometry column 2 other comments {} geometry sticky nsw other item_name button#1 other tabbing {} configure command {set x [%B.scale#1 get]; %B.scale#1 set [expr $x + 5]} Widget scale#1 geometry columnspan 4 configure orient h configure to 50.0 configure tickinterval 10.0 other error {} other tags {} other level {} other help {} configure command {ShowVal %B.resizeLabel [%B.scale#1 get];set x } configure label {Width property of "resizable"} configure length 25 other master {} other pathname scale#1 configure borderwidth 4 other tabbing {} other item_name scale#1 geometry sticky ew geometry row 3 other type scale other comments {} geometry column 2 configure relief groove Widget button#2 geometry row 1 other error {} other type button configure anchor w other master .frame#1 configure text {- 5} configure default normal other pathname button#2 other tags {} other level {} other help {} geometry column 1 other comments {} geometry sticky nsw other item_name button#2 other tabbing {} configure command {s0et x [%B.scale#1 get]; %B.scale#1 set [expr $x - 5]} Widget f other generic_options {button { } canvas { } checkbutton { } entry { } frame { } label { } listbox { } menubutton { } message { } radiobutton { } scale { } scrollbar { } text { } } other panel {} other resize_row {0 3 3 0} other type frame other code {# The exScale.ui example shows the following: # -- That moving the scale changes the value. # -- That changing the value (by clicking on the # +5 or -5 buttons) causes the scale to move. # -- That when you tie the scale value to a widget # (the width of the "resizable" label), that # a width of 0 (which means "resize yourself" is # actually wider than, say a width of 5. proc ShowVal { w val } { $w config -width $val } } other min_row {10 30 30 9} other master {} other pathname f other resize_column {0 3 1 1 3 0} other tags {} other level 0 configure background #e9e9e9 other min_column {10 2 30 19 45 10} other help {} other Colors {black white bisque grey red green blue magenta yellow #AE00B200C300} other comments {} other item_name f other tabbing {} Widget frame#1 other panel {} geometry row 2 other resize_row 0 other error {} other type frame other min_row 28 other master {} other pathname frame#1 other resize_column {0 0} other tags {} other level 1 other help {} other min_column {30 30} geometry column 2 other comments {} other item_name frame#1 other tabbing {}