chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.db-live.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
cc7a886
)
where-vessels: break out info-toplevel-create
author
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Sun, 19 Feb 2012 15:01:43 +0000
(15:01 +0000)
committer
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Sun, 19 Feb 2012 15:01:43 +0000
(15:01 +0000)
yarrg/where-vessels
patch
|
blob
|
history
diff --git
a/yarrg/where-vessels
b/yarrg/where-vessels
index eacde3aa7eda581375a39ea13281259f0abdf120..6b1b0e2de61213b2f565458e32e6bac85ce83956 100755
(executable)
--- 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} {
#---------- 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
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
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
frame $eb.emsg -bd 2 -relief groove
label $eb.emsg.lab -anchor nw -text "Error:"
text $eb.emsg.text -height 1