Check-in [3822ba9ca7]
Not logged in

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:resize tweaks in tkinspect
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 3822ba9ca73ae32d2bd55a1622118323a0697e06
User & Date: chw 2019-09-02 11:51:54
Context
2019-09-02
11:57
add selected tcl upstream changes check-in: 9bdbb7617c user: chw tags: trunk
11:51
resize tweaks in tkinspect check-in: 3822ba9ca7 user: chw tags: trunk
06:14
add tk upstream changes check-in: 7678860c7a user: chw tags: trunk
Changes

Changes to assets/tkinspect5.1.6/lists.tcl.

140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
    member menu
    member contents {}
    member search_index 0
    method create {} {
        $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
        ttk::scrollbar $self.sb -command [list $self.list yview]
        ttk::scrollbar $self.sb2 -command [list $self.list xview] \
	    -orient horizontal
        listbox $self.list -exportselection 0 \
            -yscroll [list $self.sb set] -selectmode single \
            -xscroll [list $self.sb2 set]
        bind $self.list <1> [subst {$self click %x %y ; continue}]







|







140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
    member menu
    member contents {}
    member search_index 0
    method create {} {
        $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 both -expand yes
        ttk::scrollbar $self.sb -command [list $self.list yview]
        ttk::scrollbar $self.sb2 -command [list $self.list xview] \
	    -orient horizontal
        listbox $self.list -exportselection 0 \
            -yscroll [list $self.sb set] -selectmode single \
            -xscroll [list $self.sb2 set]
        bind $self.list <1> [subst {$self click %x %y ; continue}]

Changes to assets/tkinspect5.1.6/tkinspect.tcl.

182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
...
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
...
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
	pack [set f [frame $self.buttons -bd 0]] -side top -fill x
	label $f.cmd_label -text " Command: "
	pack $f.cmd_label -side left
	ttk::entry $f.command
	bind $f.command <Return> [subst -nocommands {
	    $self send_command [%W get]
	}]
	pack $f.command -side left -fill x -expand 1
	ttk::button $f.send_command -text "Send Command" \
	    -command [subst -nocommands {
		$self send_command [$f.command get]
	    }]
	pack $f.send_command -side left -padx {4 2} -pady 4
	ttk::button $f.send_value -text "Send Value" \
	    -command [list $self.value send_value]
	pack $f.send_value -side left -padx {2 4} -pady 4

        pack [panedwindow $self.pane -showhandle 0 -orient vertical] \
	    -side top -fill both
        $self.pane add [panedwindow $self.lists -showhandle 0]
	$self.pane paneconfigure $self.lists -sticky nsew -stretch always \
	    -minsize 100

	value $self.value -main $self
	$self.pane add $self.value
	$self.pane paneconfigure $self.value -sticky nsew -stretch always \
................................................................................
	foreach topic $tkinspect(help_topics) {
	    $m add command -label $topic -command [list $self help $topic] \
		-underline 0
	}

	pack [frame $self.status] -side top -fill x
	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)
	wm title $self "$tkinspect(title): $slot(target)"
	$self status "Ready."
    }
    method reconfig {} {
    }
................................................................................
	frame $self.top
	pack $self.top -side top -fill x
	label $self.l -text "Connect to:"
	ttk::entry $self.e
	bind $self.e <Return> [list $self connect]
	bind $self.e <Escape> [list destroy $self]
	pack $self.l -in $self.top -side left
	pack $self.e -in $self.top -fill x -expand 1
	ttk::button $self.close -text "OK" -width 8 \
	    -command [list $self connect]
	ttk::button $self.cancel -text "Cancel" -width 8 \
	    -command [list destroy $self]
	pack $self.close $self.cancel -side left
	wm title $self "Connect to Interp.."
	wm iconname $self "Connect to Interp.."







|










|







 







|







 







|







182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
...
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
...
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
	pack [set f [frame $self.buttons -bd 0]] -side top -fill x
	label $f.cmd_label -text " Command: "
	pack $f.cmd_label -side left
	ttk::entry $f.command
	bind $f.command <Return> [subst -nocommands {
	    $self send_command [%W get]
	}]
	pack $f.command -side left -fill x -expand yes
	ttk::button $f.send_command -text "Send Command" \
	    -command [subst -nocommands {
		$self send_command [$f.command get]
	    }]
	pack $f.send_command -side left -padx {4 2} -pady 4
	ttk::button $f.send_value -text "Send Value" \
	    -command [list $self.value send_value]
	pack $f.send_value -side left -padx {2 4} -pady 4

        pack [panedwindow $self.pane -showhandle 0 -orient vertical] \
	    -side top -fill both -expand yes
        $self.pane add [panedwindow $self.lists -showhandle 0]
	$self.pane paneconfigure $self.lists -sticky nsew -stretch always \
	    -minsize 100

	value $self.value -main $self
	$self.pane add $self.value
	$self.pane paneconfigure $self.value -sticky nsew -stretch always \
................................................................................
	foreach topic $tkinspect(help_topics) {
	    $m add command -label $topic -command [list $self help $topic] \
		-underline 0
	}

	pack [frame $self.status] -side top -fill x
	label $self.status.l -anchor w -bd 0 -relief sunken
	pack $self.status.l -side left -fill x -expand yes
	set slot(windows_info) [object_new windows_info]
	wm iconname $self $tkinspect(title)
	wm title $self "$tkinspect(title): $slot(target)"
	$self status "Ready."
    }
    method reconfig {} {
    }
................................................................................
	frame $self.top
	pack $self.top -side top -fill x
	label $self.l -text "Connect to:"
	ttk::entry $self.e
	bind $self.e <Return> [list $self connect]
	bind $self.e <Escape> [list destroy $self]
	pack $self.l -in $self.top -side left
	pack $self.e -in $self.top -fill x -expand yes
	ttk::button $self.close -text "OK" -width 8 \
	    -command [list $self connect]
	ttk::button $self.cancel -text "Cancel" -width 8 \
	    -command [list destroy $self]
	pack $self.close $self.cancel -side left
	wm title $self "Connect to Interp.."
	wm iconname $self "Connect to Interp.."