[Tcl-bugs] [ tktoolkit-Bugs-548726 ] resizing problems

[<no...@so...>]

Bugs item #548726, was opened at 2002-04-25 11:14
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=112997&aid=548726&group_id=12997

Category: 21. [panedwindow]
Group: = 8.4a4
Status: Open
Resolution: None
Priority: 5
Submitted By: Sean Halliday (sean_halliday)
Assigned to: Jeffrey Hobbs (hobbs)
Summary: resizing problems

Initial Comment:
panedwindow .pw -orient v
label .pw.l1 -text 12345
label .pw.l2 -text ABCDE
pack .pw -fill both -expand 1
.pw add .pw.l1 -sticky nsew -minsize 1
.pw add .pw.l2 -sticky nsew -minsize 1
 
remember the configuration
 
now resize "." to be bigger.
now resze "." to be smaller (back to original size 
roughly)
things should look ok
 
now resize "." to be bigger.
drag the sash down and release
drag the sash back up and release
now resize "." to be smaller --- notice bottom pane 
does not behave as it did before --- it does not 
shrink.
 
One way that kind of gets around it to add a another 
sash
 
frame .phantom
.pw add .phantom
bind .pw <Configure> {
  .pw sash place 1 0 30000
}
 

----------------------------------------------------------------------

Comment By: Nobody/Anonymous (nobody)
Date: 2002-07-31 20:55

Message:
Logged In: NO 

I also found the resize problem on panedwindow. Espeically
if the last widget added is text.

After resizing the pane bigger than the text specified. Once
resize smaller than resize bigger, the text's xscrollbar no
longer have any meaning.

here is the program you can try it out:

proc T3P-setopts {args} {
        uplevel 1 [list array set opt $args]
        uplevel 1 {
                if [info exist args] {
                        array set opt $args
                }
        }
}

proc T3P-cr-window {top args} {
        T3P-setopts -destroy 0

        catch {destroy $top}
        toplevel $top

        global T3PCFG

        T3P-cr-menubar $top

        T3P-cr-workspace $top

        T3P-cr-status $top

        # wm geometry $top 600x400
}

proc T3P-cr-menubar {top args} {
        set menubar $top.menubar
        $top configure -menu $menubar

}

proc T3P-cr-workspace {top args} {
        T3P-setopts -destroy 0

        panedwindow $top.p -orient vertical
        pack $top.p -side top -expand yes -fill both -padx 2
-pady 2

        panedwindow $top.p.view -orient horizontal -height
200 -width 320
        pack $top.p.view -side left -expand yes -fill both
-padx 0 -pady 0

        set eframe [frame $top.p.entry -height 20]
        pack $eframe -side top -fill x -expand no -padx 0
-pady 0 -anchor n

        $top.p add $top.p.view $eframe

        set cmdpane [panedwindow $top.p.view.cmd -orient
horizontal]
        pack $cmdpane -fill y -padx 0 -pady 0
        set txtframe [frame $top.p.view.txt -width 200]
        pack $txtframe -fill both -expand 1 -padx 2 -pady 2
        set eptframe [frame $top.p.view.empty -width 2
-border 1 -bg lightyellow]
        pack $eptframe -fill y -side left

        # $top.p.view add $cmdpane $txtframe $eptframe
        $top.p.view add $cmdpane $txtframe 

        # change to tabbed notepad
        listbox $cmdpane.l1 -width 16
        pack $cmdpane.l1 -side top -fill both -expand yes
        listbox $cmdpane.l2 -width 16
        pack $cmdpane.l2 -side top -fill both -expand yes
        $cmdpane add $cmdpane.l1 $cmdpane.l2

        scrollbar $txtframe.xbar -orient horizontal -command
"$txtframe.text xview" -width 10
        scrollbar $txtframe.ybar -orient vertical   -command
"$txtframe.text yview" -width 10
        text $txtframe.text -background AliceBlue
-borderwidth 2 -foreground black \
                -selectbackground lightyellow
-selectforeground blue \
                -width 300 -wrap none -font {Courier 11
normal} \
                -xscrollcommand "$txtframe.xbar set"
-yscrollcommand "$txtframe.ybar set"
        if 0 {
                grid $txtframe.text -row 0 -column 0 -sticky
news
                grid $txtframe.ybar -row 0 -column 1 -sticky
news
                grid $txtframe.xbar -row 1 -column 0 -sticky
news
                grid rowconfig    $txtframe 0 -weight 1
-minsize 0
                grid columnconfig $txtframe 0 -weight 1
-minsize 0
        } else {
                grid $txtframe.ybar -row 0 -column 0 -sticky
news
                grid $txtframe.text -row 0 -column 1 -sticky
news
                grid $txtframe.xbar -row 1 -column 1 -sticky
news
                grid rowconfig    $txtframe 0 -weight 1
-minsize 0
                grid columnconfig $txtframe 1 -weight 1
-minsize 0
        }

        label $eframe.e_lbl -text "Command:" -anchor e
        set textvariable T3PVAR([winfo toplevel $top],command)
        entry $eframe.e_cmd -textvariable $textvariable
-width 60
        grid $eframe.e_lbl -row 0 -column 0 -sticky news
        grid $eframe.e_cmd -row 0 -column 1 -sticky news
        grid columnconfig $eframe 1 -weight 1 -minsize 0

        bind $eframe.e_cmd <KeyPress-Return>
"T3P-command-enterred %W command"
}

proc T3P-cr-command-enterred {widget refname} {
        global T3PVAR
        set cmdmsg [set T3PVAR([winfo topvar $widget],$refname)

        puts "Command enterred: $cmdmsg"
}

proc T3P-cr-status {top args} {
}



----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=112997&aid=548726&group_id=12997