From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 15 Jun 2014 16:54:58 +0000 (+0100)
Subject: Merge remote-tracking branch 'mason/master'
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.web-test.git;a=commitdiff_plain;h=4c7c5b755bd3d4d4c2bc816b03f5521137e0f6ef;hp=938e38497928d3f0f4e32c0dcada210dffcac607

Merge remote-tracking branch 'mason/master'
---

diff --git a/yarrg/CommodsScrape.pm b/yarrg/CommodsScrape.pm
index 4b027f1..ccc2d98 100644
--- a/yarrg/CommodsScrape.pm
+++ b/yarrg/CommodsScrape.pm
@@ -55,7 +55,7 @@ sub yppedia_chart_parse ($$ $$$$ $) {
 	s/^\s*//; chomp; s/\s+$//; s/\s+/ /g;
 	s/\<\/?(?:b|em)\>//g;
 	s/\{\{(?:chart\ style|Chart league difficulty)\|[^{}]*\}\}//gi;
-	s/^\{\{testing\}\}//;
+	s/^\{\{(?:testing|current)\}\}//;
 	next unless m/\{\{/; # only interested in chart template stuff
 
 	if (($x,$y,$arch) =
diff --git a/yarrg/where-vessels b/yarrg/where-vessels
index eacde3a..045f5ad 100755
--- a/yarrg/where-vessels
+++ b/yarrg/where-vessels
@@ -1155,6 +1155,18 @@ proc draw {} {
 }
 
 
+#---------- info toplevel ----------
+
+proc info-toplevel-create {info title} {
+    toplevel $info
+    wm withdraw $info
+    wm title $info "where-vessels - $title"
+    wm protocol $info WM_DELETE_WINDOW [list wm withdraw $info]
+
+    button $info.close -text Close -command [list wm withdraw $info]
+    pack $info.close -side bottom
+}
+
 #---------- parser error reporting ----------
 
 proc parser-control-create {w base invokebuttontext etl_title} {
@@ -1171,17 +1183,11 @@ proc parser-control-create {w base invokebuttontext etl_title} {
     pack $w.resframe -side top -expand y -fill both
 
     set eb .err_$base
-    toplevel $eb
-    wm withdraw $eb
-    wm title $eb "where-vessels - $etl_title"
-    wm protocol $eb WM_DELETE_WINDOW [list wm withdraw $eb]
+    info-toplevel-create $eb $etl_title
 
     label $eb.title -text $etl_title
     pack $eb.title -side top
 
-    button $eb.close -text Close -command [list wm withdraw $eb]
-    pack $eb.close -side bottom
-
     frame $eb.emsg -bd 2 -relief groove
     label $eb.emsg.lab -anchor nw -text "Error:"
     text $eb.emsg.text -height 1
@@ -1322,6 +1328,29 @@ proc islandnames-handler {offset maxchars} {
 		$offset [expr {$offset+$maxchars-1}]]
 }
 
+#---------- print to postscript ----------
+
+proc print-to-postscript {} {
+    global canvas ocean
+    set postscript_fontmap(fixed) {Courier 12}
+    manyset [$canvas bbox all] xmin ymin xmax ymax
+    set file where-vessels.$ocean.ps
+    $canvas postscript -file $file -rotate 1 \
+	-width [expr {$xmax-$xmin}] \
+	-height [expr {$ymax-$ymin}] \
+	-fontmap postscript_fontmap
+    .printed.info configure -text "Printed to $file
+
+Usually, the next thing would be something like"
+    set text "epsffit 0 0 595.276 841.89 <$file >t.ps"
+    .printed.rune configure -state normal
+    .printed.rune delete 1.0 end
+    .printed.rune insert end $text
+    .printed.rune configure -width [string length $text] -state disabled
+    update idletasks
+    wm deiconify .printed
+}
+
 #---------- main user interface ----------
 
 proc widgets-setup {} {
@@ -1405,8 +1434,20 @@ proc widgets-setup {} {
 
     if {![have-notes]} {
 	.cp.ctrl.notes.do configure -state disabled
-    }	
+    }
+
+    button .cp.ctrl.print -text {Print to file} -command print-to-postscript
+    pack .cp.ctrl.print -side top
 	
+    #----- message saying we've printed -----
+
+    info-toplevel-create .printed "printed"
+
+    label .printed.info
+    text .printed.rune -state disabled -height 1 -borderwidth 0
+    pack .printed.info -side top
+    pack .printed.rune -side top
+
     #----- island name count and copy -----
 
     label .islands.count
diff --git a/ypp-chart-memshow b/ypp-chart-memshow
index 44b6fac..ccf26e5 100755
--- a/ypp-chart-memshow
+++ b/ypp-chart-memshow
@@ -118,7 +118,7 @@ sub watch_dir ($) {
 	    next unless $size;
 	    last if $size==$lastsize;
 	    $lastsize= $size;
-	    select undef,undef,undef, 0.100;
+	    select undef,undef,undef, 0.300;
 	}
 
 	$child= fork;  defined $child or die $!;