WidGet file, version 1.1, created: Tue Jun 24 09:58:28 PDT 1997 Widget label#1 geometry row 1 other error {} other type label other master .frame#1 geometry ipadx 8 configure text { } geometry ipady 8 other pathname label#1 other tags {} configure background grey other level {} other help {} configure padx 0 configure borderwidth 0 other comments {} geometry column 1 configure pady 0 geometry sticky nesw other item_name imagelabel other tabbing {} Widget radiobutton#11 configure variable rv other error {} geometry ipadx 2 other tags {} other level {} other help {} configure value 3 configure command rproc other master .frame#2 other pathname radiobutton#11 configure background grey configure borderwidth 4 other tabbing {} other item_name radiobutton#11 geometry row 1 other type radiobutton configure text {Text justification} other comments {} geometry column 4 configure relief raised Widget radiobutton#6 configure variable rv other error {} geometry ipadx 2 other tags {} other level {} other help {} configure value 5 configure command rproc other master .frame#2 other pathname radiobutton#6 configure background grey configure borderwidth 4 other item_name radiobutton#6 other tabbing {} geometry row 1 other type radiobutton configure text {Border width} other comments {} geometry column 6 configure relief raised Widget frame#2 other {} {} other panel {} geometry row 2 other resize_row 0 other error {} other type frame other min_row 30 other master {} other pathname frame#2 other resize_column {0 0 0 0 0 0} other tags {} other level 1 other help {} other min_column {30 30 30 30 30 30} geometry pady 3 configure borderwidth 4 other comments {} geometry column 2 configure relief groove other tabbing {} other item_name frame#2 Widget label#3 other {} {} geometry row 1 other error {} other type label other master .frame#1 geometry ipadx 3 configure text { } geometry ipady 3 configure justify left other pathname label#3 other tags {} other level {} configure background grey other help {} configure wraplength 250 configure padx 0 configure borderwidth 0 other comments {} geometry column 2 configure pady 0 other tabbing {} other item_name textlabel geometry sticky nsw Widget radiobutton#8 configure variable rv other error {} geometry ipadx 2 other tags {} other level {} other help {} configure padx 0 configure value 0 configure command rproc other master .frame#2 other pathname radiobutton#8 configure background grey configure borderwidth 4 other tabbing {} other item_name radiobutton#8 geometry row 1 other type radiobutton configure text {Sticky property} other comments {} geometry column 1 configure relief raised Widget f other generic_options {button { } canvas { } checkbutton { } entry { } frame { } label { } listbox { } menubutton { } message { } radiobutton { } scale { } scrollbar { } text { } } other panel {} other resize_row {0 0 0 0} other type frame other code \nproc\ rproc\ {\ }\ {\n\nglobal\ rv\ \n\n#\ Build\ long\ strings\ by\ appending\n\nset\ sticky\ \"\"\;\ append\ sticky\ \\\n\ \ \ {Sticky\ property:\ specifies\ which\ widget\ sides\ and\ grid-cell\ }\ \\\n\ \ \ {sides\ should\ stay\ together:\ n\ s\ e\ w\ (or\ a\ combination,\ such\ }\ \\\n\ \ \ {as\ ew).}\n\nset\ tStyle\ \\\n\ \ \ {Specifies\ text\ is\ plain,\ bold,\ italic,\ or\ bold-italic.}\n\nset\ size\ \\\n\ \ \ {Specifies\ point\ sizes\ for\ text:\ from\ 8\ pt.\ to\ 35\ pt.}\n\nset\ bStyle\ \"\"\;\ append\ bStyle\ \\\n\ \ \ {Specifies\ a\ border\ style:\ flat,\ raised,\ sunken,\ ridge,\ and\ }\ \\\n\ \ \ {groove.\"\ \"Specifies\ the\ borderwidth,\ in\ pixels,\ from\ 0\ to\ 12.}\n\nset\ just\ \"\"\;\ append\ just\ \\\n\ \ \ {Justify:\ left,\ right,\ or\ center.\ Displays\ current\ }\ \\\n\ \ \ {justification\;\ cycles\ between\ left,\ right,\ and\ center.}\n\nset\ size\ \\\n\ \ \ {Specifies\ point\ sizes\ for\ text:\ from\ 8\ pt.\ to\ 35\ pt.}\n\nset\ bWidth\ \\\n\ \ \ {Specifies\ the\ borderwidth,\ in\ pixels,\ from\ 0\ to\ 12.}\n\n#\ A\ list\ of\ long\ strings\nset\ textlist\ \[\ list\ \"\$sticky\"\ \"\$tStyle\"\ \"\$size\"\ \"\$just\"\ \"\$bStyle\"\ \"\$bWidth\"\ \]\n\n#\ A\ list\ of\ image\ file\ names\nset\ giflist\ \[list\ sticky_c.gif\ justify_center.gif\ style.gif\ \\\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ size.gif\ relief_flat.gif\ borderwidth.gif\]\n\nset\ dir\ \\\n\ \ \ {/home/kcorey/hack/SpecTcl/SpecTcl/images}\n\n#\ And\ display\ the\ image\ file\ in\ the\ other\ label\nset\ wholeName\ \$dir/\[lindex\ \$giflist\ \$rv\ \]\nset\ iw\ \[image\ create\ photo\ -file\ \$wholeName\]\n.imagelabel\ config\ -image\ \$iw\n\n.textlabel\ config\ -text\ \[lindex\ \$textlist\ \$rv\]\n}\n\n\ \n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n other min_row {8 48 30 10} other master {} other pathname f other resize_column {0 0 0} other tags {} other level 0 configure background #e9e9e9 other min_column {9 30 9} 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 columnspan 2 geometry row 3 other resize_row 0 other error {} other type frame other min_row 30 other master {} other pathname frame#1 other resize_column {0 0} other tags {} other level 1 other help {} other min_column {30 30} geometry pady 3 configure borderwidth 4 other comments {} geometry column 2 configure relief ridge other tabbing {} other item_name frame#1 geometry sticky s Widget radiobutton#9 configure variable rv other error {} geometry ipadx 2 other tags {} other level {} other help {} configure padx 0 configure value 1 configure command rproc other master .frame#2 other pathname radiobutton#9 configure background grey configure borderwidth 4 other tabbing {} other item_name radiobutton#9 geometry row 1 other type radiobutton configure text {Text style} other comments {} geometry column 2 configure relief raised Widget radiobutton#10 configure variable rv other error {} geometry ipadx 2 other tags {} other level {} other help {} configure value 2 configure command rproc other master .frame#2 other pathname radiobutton#10 configure background grey configure borderwidth 4 other tabbing {} other item_name radiobutton#10 geometry row 1 other type radiobutton configure text {Text point size} other comments {} geometry column 3 configure relief raised Widget radiobutton#5 configure variable rv other error {} geometry ipadx 2 other tags {} other level {} other help {} configure value 4 configure command rproc other master .frame#2 other pathname radiobutton#5 configure background grey configure borderwidth 4 other tabbing {} other item_name radiobutton#5 geometry row 1 other type radiobutton configure text {Border style} other comments {} geometry column 5 configure relief raised