Changeset 371

Timestamp:

Dec 4, 2009 5:05:03 PM (14 years ago)

Author:

toby

Message:

# on 2000/12/22 21:31:48, toby did:
show sample font sizes

File:

• trunk/lstview (modified) (1 diff, 3 props)

trunk/lstview

@@ -399 +399 @@
 
 if {$tcl_version >= 8.0} {
-    .a.options.menu add cascade -label Font -menu .a.options.menu.font
-    menu .a.options.menu.font
-    foreach size {5 6 7 8 9 10 11 12 13 14 15 16} {
-        .a.options.menu.font add command -label "Courier $size" \
-                -command "set txtvw(font) \"Courier $size\"; \
+    pack [label .a.fontl -text "  Font:"] -side left
+    set fontbut [tk_optionMenu .a.fontb txtvw(font) ""]
+    pack .a.fontb -side left
+    $fontbut delete 0 end
+    foreach f {5 6 7 8 9 10 11 12 13 14 15 16} {
+        $fontbut add command -label "Courier $f" -font "Courier $f"\
+                -command "set txtvw(font) \"Courier $f\"; \
                 .txt config -font \$txtvw(font)"
     }