Changeset 3286


Ignore:
Timestamp:
Feb 7, 2013 7:16:30 AM (8 years ago)
Author:
gah
Message:

sync with trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/blt4/gui/scripts/sidebarframe.tcl

    r3160 r3286  
    88# ======================================================================
    99#  AUTHOR:  George Howlett, Michael McLennan, Purdue University
    10 #  Copyright (c) 2004-2009  Purdue Research Foundation
     10#  Copyright (c) 2004-2012  HUBzero Foundation, LLC
    1111#
    1212#  See the file "license.terms" for information on usage and
     
    4545    itk_option define -sashcursor sashCursor Cursor ""
    4646
     47    public variable resizeframe 1
    4748    constructor {args} { # defined below }
    4849
     
    572573    set x1 [expr {$w - $sbarw - $sashw}]
    573574    set x2 [expr {$w - $sbarw}]
    574     place $itk_component(frame) -x 0 -y 0 -anchor nw -width $w -height $h
     575    if { $resizeframe } {
     576        set framew $x1
     577    } else {
     578        set framew [expr $w - $ctrlw - $sashw]
     579    }
     580    place $itk_component(frame) -x 0 -y 0 -anchor nw -width $framew -height $h
    575581    place $itk_component(sashbg) -x $x1 -y 0 -anchor nw -width $sashw -height $h
    576     place $itk_component(sidebar) -x $x2 -y 0 -anchor nw -width $sbarw -height $h
     582    place $itk_component(sidebar) -x $x2 -y 0 -anchor nw \
     583        -width $sbarw -height $h
    577584}
    578585
Note: See TracChangeset for help on using the changeset viewer.