* tkinspect.tcl: Merged in patch for paned views suppplied by

	Alexander Caldwell <alcald@psnw.com>.
	* lists.tcl: Also from AC's patch - added a horizontal scroll bar
	to the view windows.
	* tkinspect.tcl: Flattened various GUI items to improve the appearence

diff --git a/ChangeLog b/ChangeLog
index 1df1091bc2a412ab602ecb9827d1fe76224ae567..95b7d173cdefd92a330ea381f2ed0e23306e9d91 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+Sat Jun 21 22:35:03 2003  Pat Thoyts  <patthoyts@users.sourceforge.net>
+
+       * tkinspect.tcl: Merged in patch for paned views suppplied by
+       Alexander Caldwell <alcald@psnw.com>.
+       * lists.tcl: Also from AC's patch - added a horizontal scroll bar
+       to the view windows.
+       * tkinspect.tcl: Flattened various GUI items to improve the appearence
+       
 Fri Jun 20 23:59:01 2003  Pat Thoyts  <patthoyts@users.sourceforge.net>
 
        * tkinspect.tcl: Fix for bug #757926 to fix traces.

diff --git a/lists.tcl b/lists.tcl
index 58533fa2785fcdb152b89f5ad6d12377c2410496..b189bdf006ec5190e055d3b6a520ebce3a0c2952 100644 (file)
--- a/lists.tcl
+++ b/lists.tcl
@@ -142,15 +142,20 @@ widget tkinspect_list {
     member contents {}
     member search_index 0
     method create {} {
-       $self config -bd 2 -relief raised
-       pack [label $self.title -anchor w] -side top -fill x
-       scrollbar $self.sb -command "$self.list yview" -relief sunken -bd 1
-       listbox $self.list -relief sunken -exportselection 0 \
-           -yscroll "$self.sb set" -selectmode single
-       bind $self.list <1> "$self click %x %y; continue"
-       bind $self.list <Key-space> "$self trigger; continue"
-       pack $self.sb -side right -fill y
-       pack $self.list -side right -fill both -expand yes
+        $self config -bd 0 -relief raised
+        pack [label $self.title -anchor w] -side top -fill x
+        frame $self.frame  
+        pack $self.frame -side top -fill x
+        scrollbar $self.sb -command "$self.list yview" -relief sunken -bd 1
+        scrollbar $self.sb2 -command "$self.list xview" -relief sunken -bd 1 -orient horizontal
+        listbox $self.list -bd 2 -relief groove -exportselection 0 \
+            -yscroll "$self.sb set" -selectmode single \
+            -xscroll "$self.sb2 set"
+        bind $self.list <1> "$self click %x %y; continue"
+        bind $self.list <Key-space> "$self trigger; continue"
+        pack $self.sb -in $self.frame -side right -fill y
+        pack $self.list -in $self.frame -side right -fill both -expand yes
+        pack $self.sb2 -side bottom -fill x
        set slot(menu) [$slot(main) add_menu $slot(title)]
        bind $self.list <3> "tk_popup $slot(menu) %X %Y"
        $slot(menu) add command \

diff --git a/tkinspect.tcl b/tkinspect.tcl
index 3a287f8591b5f5dc26403d9ff44f2698b0478be7..51ebb2373298ec1722922d5366eee6b4e98f9ca8 100644 (file)
--- a/tkinspect.tcl
+++ b/tkinspect.tcl
@@ -36,7 +36,7 @@ set tkinspect(help_topics) {
 if {[info commands itcl_info] != ""} {
        set tkinspect(default_lists) "object_list procs_list globals_list windows_list"
 } else {
-       set tkinspect(default_lists) "namespaces_list procs_list globals_list"
+       set tkinspect(default_lists) "namespaces_list procs_list globals_list windows_list"
 }
 
 wm withdraw .
@@ -148,8 +148,8 @@ dialog tkinspect_main {
     member cmdlines ""
     member windows_info
     method create {} {
-       global tkinspect
-       pack [frame $self.menu -bd 2 -relief raised] -side top -fill x
+        global tkinspect 
+       pack [frame $self.menu -bd 2 -relief flat] -side top -fill x
        menubutton $self.menu.file -menu $self.menu.file.m -text "File" \
            -underline 0
        pack $self.menu.file -side left
@@ -195,6 +195,13 @@ dialog tkinspect_main {
            $m add command -label $topic -command [list $self help $topic] \
                -underline 0
        }
+
+        foreach w [winfo children $self.menu] {
+            $w configure -relief flat -bd 1
+            bind $w <Enter> {%W configure -relief raised -bd 1}
+            bind $w <Leave> {%W configure -relief flat -bd 1}
+        }
+
        pack [set f [frame $self.buttons -bd 0]] -side top -fill x
        label $f.cmd_label -text "Command:"
        pack $f.cmd_label -side left
@@ -206,7 +213,14 @@ dialog tkinspect_main {
        button $f.send_value -text "Send Value" \
            -command "$self.value send_value"
        pack $f.send_command $f.send_value -side left
-       pack [frame $self.lists -bd 0] -side top -fill both
+
+        # change to use a panedwindow instead of a frame - Alex Caldwell
+        if {[package vcompare [package provide Tk] 8.3] == 1} {
+            pack [panedwindow $self.lists -showhandle 1] -side top -fill both
+        } else { 
+            pack [frame $self.lists -bd 0] -side top -fill both
+        } 
+    
        value $self.value -main $self
        pack $self.value -side top -fill both -expand 1
        foreach list_class $tkinspect(default_lists) {
@@ -214,7 +228,7 @@ dialog tkinspect_main {
            set slot(${list_class}_is_on) 1
        }
        pack [frame $self.status] -side top -fill x
-       label $self.status.l -bd 2 -relief sunken -anchor w
+       label $self.status.l -anchor w -bd 0 -relief sunken
        pack $self.status.l -side left -fill x -expand 1
        set slot(windows_info) [object_new windows_info]
        wm iconname $self $tkinspect(title)
@@ -353,15 +367,27 @@ dialog tkinspect_main {
        lappend slot(lists) $list
        $list_class $list -command "$self select_list_item $list" \
            -main $self
-       pack $list -side left -fill both -expand 1
+        # change to use panedwindow widget instead of frame
+        if {[package vcompare [package provide Tk] 8.3] == 1} {
+            $self.lists add $list -width 150
+        } else {
+            pack $list -side left -fill both -expand 1
+        }
     }
     method delete_list {list} {
+       global tk_patchLevel
        set ndx [lsearch -exact $slot(lists) $list]
        set slot(lists) [lreplace $slot(lists) $ndx $ndx]
-       pack forget $list
-       # for some reason if all the lists get unpacked the
-       # .lists frame doesn't collapse unless we force it
-       $self.lists config -height 1
+        # changed to use a panedwindow widget instead of a frame
+        if {[package vcompare [package provide Tk] 8.3] == 1} {
+            $self.lists forget $list
+        } else {
+            pack forget $list
+        
+            # for some reason if all the lists get unpacked the
+            # .lists frame doesn't collapse unless we force it
+            $self.lists config -height 1
+        }
        set list_class [lindex [split $list .] 3]
        set slot(${list_class}_is_on) 0
     }
@@ -377,7 +403,9 @@ dialog tkinspect_main {
     }
     method add_menu {name} {
        set w $self.menu.[string tolower $name]
-       menubutton $w -menu $w.m -text $name -underline 0
+       menubutton $w -menu $w.m -text $name -underline 0 -bd 1 -relief flat
+        bind $w <Enter> {%W configure -relief raised -bd 1}
+        bind $w <Leave> {%W configure -relief flat -bd 0}
        pack $w -side left
        menu $w.m
        return $w.m

diff --git a/value.tcl b/value.tcl
index 771d068255c776a62c5e3091553e73da3607e625..9141f405f0f25f6f8ae676a1c215766704f6d175 100644 (file)
--- a/value.tcl
+++ b/value.tcl
@@ -18,7 +18,7 @@ widget value {
     member hist_no 0
     member send_filter value_no_filter
     method create {} {
-       $self config -bd 2 -relief raised -highlightthickness 0
+       $self config -bd 0 -relief flat -highlightthickness 0
        pack [frame $self.title] -side top -fill x
        pack [label $self.title.l -text "Value:  "] -side left
        menubutton $self.title.vname -anchor w -menu $self.title.vname.m \