From 4bdb3efc9169123174bcd519fd8a15e84fe047f0 Mon Sep 17 00:00:00 2001 From: "N.N." Date: Sun, 17 May 2009 00:20:47 +0000 Subject: use correct font for console labels; use 32x32 icon as app icon svn path=/trunk/; revision=11407 --- desiredata/src/desire.tk | 16 ++++++++++++---- 1 file changed, 12 insertions(+), 4 deletions(-) (limited to 'desiredata/src') diff --git a/desiredata/src/desire.tk b/desiredata/src/desire.tk index 13e9e7ba..f213b588 100644 --- a/desiredata/src/desire.tk +++ b/desiredata/src/desire.tk @@ -935,7 +935,7 @@ def Client init_controls {} { if {$::cmdline(console)} {set ::console [Console new .log]} . configure -menu .mbar wm title . "DesireData" - catch {wm iconphoto . icon_pd} + catch {wm iconphoto . icon_pd_32} regexp {\d\d\d\d-\d\d-\d\d} $::svnid date regsub -all "/" $date "." date regexp {desire.tk (\d+)} $::svnid blah revision @@ -6686,12 +6686,13 @@ def Listener init {serf name command} { set @command $command set @expanded 0 set @serf $serf + set font $::look(View:font) frame $serf pack [frame $serf.1] -side left -fill y pack [frame $serf.1.1] -side bottom pack [button $serf.1.1.expander -image icon_plus -command "$self toggle_expand"] -side left - pack [label $serf.1.1.label -width 11 -text "$name: " -font {Courier 10}] -side left - pack [entry $serf.entry -width 40 -font $::look(View:font)] -side left -fill x -expand yes + pack [label $serf.1.1.label -width 11 -font $font -text "$name: "] -side left + pack [entry $serf.entry -width 40 -font $font] -side left -fill x -expand yes pack $serf -fill x -expand no bind $serf.entry "$self scroll_history +1" bind $serf.entry "$self scroll_history -1" @@ -6793,7 +6794,7 @@ proc button_bar_add {x y} { if {$tk} { set dir $cmdline(icons) - foreach icon {mode_edit mode_run pd} {image create photo icon_$icon -file $dir/$icon.gif} + foreach icon {mode_edit mode_run pd_32} {image create photo icon_$icon -file $dir/$icon.gif} foreach b $butt {mset {icon name cmd} $b; image create photo icon_$icon -file $dir/$icon.gif} } @@ -9011,4 +9012,11 @@ def Canvas graphviz_sort {} { } } +proc widget_tree {w {indent 0}} { + foreach element [winfo children $w] { + puts [format "%*s%s" [expr 2*$indent] "" $element] + widget_tree $element [expr 2+$indent] + } +} + -- cgit v1.2.1