Changeset 837 for trunk

Timestamp:

Dec 4, 2009 5:12:53 PM (12 years ago)

Author:

toby

Message:

# on 2005/03/24 21:43:24, toby did:
fix bug in save options
Add unix capability to print selected text
(should work on OS X if lpr points to desired printer -- I think)

File:

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

trunk/lstview

@@ -21 +21 @@
 set txtvw(sum) 0
 set txtvw(hideplot) 0
+set txtvw(printcommand) lpr
 # maximum characters to read initially from a .LST file
 set txtvw(maxchars) 1000000
@@ -360 +361 @@
         set fp [open [file join ~ .gsas_config] a]
     }
-    puts $fp "# LSTVIEW saved options from [clock format [clock ticks]]"
-    puts $fp "set txtvw(followcycle) [list $txtvw(followcycle)]"
-    puts $fp "set txtvw(font) [list $txtvw(font)]"
+    puts $fp "# LSTVIEW saved options from [clock format [clock seconds]]"
+    foreach var {followcycle font printcommand} {
+        puts $fp "set txtvw($var) [list $txtvw($var)]"
+    }
     close $fp
 }
@@ -448 +450 @@
 
 # windows copy command. Should not be needed in X windows
+pack [menubutton .a.edit -text Edit -underline 0 -menu .a.edit.menu] \
+    -side left
+menu .a.edit.menu
 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]}}
+} else {
+    .a.edit.menu add command -label "Print Selection" \
+            -command {catch PrintSelection}
 }
 
@@ -490 +495 @@
 }
 
+if {$tcl_platform(platform) != "windows"} {
+    .a.options.menu add command -label "Set print command" -underline 1 \
+        -command SetPrintCommand
+}
 .a.options.menu add command -label "Save Options" -underline 1 \
         -command "SaveOptions"
@@ -695 +704 @@
     .txt see $loc
 }
+
+proc PrintSelection {} {
+    global txtvw
+    if {[catch {
+        set fp [open "| $txtvw(printcommand)" w]
+        puts $fp [selection get]
+        close $fp
+    } errmsg]} {
+        MyMessageBox -parent . -title "Print error" \
+            -message "Error trying to print: $errmsg" \
+            -icon warning -type Ignore -default ignore
+        # -helplink "expguierr.html Customizewarning"
+    }
+    catch {close $fp}
+}
+
+proc SetPrintCommand {} {
+    set bx .opt
+    catch {destroy $bx}
+    toplevel $bx
+    wm iconname $bx "Print options"
+    wm title $bx "Print options"
+
+    pack [label $bx.0 -text "Set Print Command" ] -side top
+    pack [frame $bx.c] -side top
+    pack [frame $bx.b] -side top
+    pack [label $bx.c.a -text "Command:"] -side left
+    pack [entry $bx.c.b -textvariable txtvw(printcommand) -width 40] \
+            -side left
+    pack [button $bx.b.c -command "destroy $bx" -text Close ] -side right
+}
+
 
 pack [menubutton .a.help -text Help -underline 0 -menu .a.help.menu] -side right