chiark
/
gitweb
/
~ian
/
chiark-tcl-applet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
8bb8186
)
reorg widgets wip
author
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Sat, 9 Jun 2012 20:06:47 +0000
(21:06 +0100)
committer
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Sat, 9 Jun 2012 20:06:47 +0000
(21:06 +0100)
applet.tcl
patch
|
blob
|
history
diff --git
a/applet.tcl
b/applet.tcl
index e225f8d5d842d0ecaaa3018f3e88c265c709b934..04d5813bebc6042d481fb2b3941333a0e766119a 100644
(file)
--- a/
applet.tcl
+++ b/
applet.tcl
@@
-210,17
+210,17
@@
proc innerwindow-resetup {} {
puts RESETUP
puts RESETUP
- uplevel #0 $subwindow_on_destroying
- catch { destroy .i.i.c }
if {![winfo exists .i.i]} return
destroy [frame .i.i.make-exist]
if {![winfo exists .i.i]} return
destroy [frame .i.i.make-exist]
+
+ uplevel #0 $subwindow_on_destroying
catch { destroy .i.i.b.c }
catch { destroy .i.i.b.c }
+
catch { destroy .i.i.b }
catch { destroy .i.i.b }
+
frame .i.i.b
pack .i.i.b -fill both -side left -expand 1
frame .i.i.b
pack .i.i.b -fill both -side left -expand 1
- frame .i.i.b.c -container 1 -background orange
- pack .i.i.b.c -fill both -side left -expand 1
#
global inner_lastw inner_lasth
#set w [winfo width .i.i]
#
global inner_lastw inner_lasth
#set w [winfo width .i.i]
@@
-278,6
+278,10
@@
proc subproc-destroying {} {
proc subproc-ready {} {
variable subproc
puts "READY $subproc"
proc subproc-ready {} {
variable subproc
puts "READY $subproc"
+
+ frame .i.i.b.c -container 1 -background orange
+ pack .i.i.b.c -fill both -side left -expand 1
+
switch -exact $subproc {
none {
run-child
switch -exact $subproc {
none {
run-child