Changeset 77

Timestamp:

Dec 4, 2009 5:00:01 PM (14 years ago)

Author:

toby

Message:

# on 1999/04/06 21:37:19, toby did:
add Id

File:

• trunk/lstview (modified) (8 diffs, 3 props)

trunk/lstview

@@ -1 +1 @@
 #!/usr/local/bin/wish
+# $Id$
 set Revision {$Revision$ $Date$}
 # display a .LST file in a text box
@@ -6 +7 @@
 # start work on plotting variables change next line to use 
 set plotvars 0
+set txtvw(font) "Courier"
 set txtvw(menulength) 25
 set txtvw(stringcount) 0
@@ -232 +234 @@
 
 proc updatetext {fil {repeat 1}} {
-    global txtvw filename
-
+    global txtvw filename tcl_platform
     if $repeat {after 5000 updatetext $fil}
     set txt [read $fil]
@@ -247 +248 @@
         .txt insert end $txt
     }
-    .txt config -state disabled
+    # don't disable in Win as this prevents the highlighting of selected text
+    if {$tcl_platform(platform) != "windows"} {
+        .txt config -state disabled
+    }
     update idletasks
     findrun .txt .a.goto.menu.run $oldend
@@ -293 +297 @@
     set fp [open [file join ~ .gsas_config] a]
     puts $fp "set txtvw(followcycle) $txtvw(followcycle)"
+    puts $fp "set txtvw(font) [list $txtvw(font)]"
     close $fp
 }
@@ -343 +348 @@
         -yscrollcommand ".yscroll set" \
         -xscrollcommand ".xscroll set" 
-if {$tcl_version >= 8.0} {.txt config -font Courier}
+if {$tcl_version >= 8.0} {.txt config -font $txtvw(font)}
 scrollbar .yscroll -command ".txt yview"
 scrollbar .xscroll -command ".txt xview" -orient horizontal
@@ -359 +364 @@
 .a.file.menu add command -label Exit -command "destroy ."
 
+# windows copy command. Should not be needed in X windows
+if {$tcl_platform(platform) == "windows"} {
+    pack [menubutton .a.edit -text Edit -underline 0 -menu .a.edit.menu] \
+            -side left
+    menu .a.edit.menu
+    .a.edit.menu add command -label copy \
+            -command {catch {clipboard append [selection get]}}
+}
+
 pack [menubutton .a.goto -text "Go To" -underline 0 -menu .a.goto.menu] \
-            -side left
+        -side left
 menu .a.goto.menu
 .a.goto.menu add cascade -label "Cycle #"  -menu .a.goto.menu.cyc \
@@ -381 +395 @@
 menu .a.options.menu
 .a.options.menu  add checkbutton -label "Auto Advance" -variable txtvw(followcycle) 
+
+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\"; \
+                .txt config -font \$txtvw(font)"
+    }
+}
+
 .a.options.menu add command -label "Save Options" -underline 1 \
         -command "SaveOptions"