Changeset 26 for trunk/gui/scripts/groupentry.tcl

Timestamp:

Jul 19, 2005, 1:15:04 AM (19 years ago)

Author:

mmc

Message:

Fixed the rendering of groups, and groups within groups.
If groups are mixed in with other elements, then they are
drawn with a gray outline/heading, with the title taken
from the <group><about><label>. However, if a group
contains only other groups, then it is treated as a tabbed
notebook, and each group within is put on a separate page.

WARNING: There are many bad interactions between the
blt::tabset, the Rappture::Scroller, and the Rappture::Pager.
Pages shake violently when all are in play. The only way I
could get them to settle down was by putting the tabs above
the pages they control. Have to revisit this some time to
make it look better...

File:

• trunk/gui/scripts/groupentry.tcl (modified) (5 diffs)

trunk/gui/scripts/groupentry.tcl

@@ -12 +12 @@
 package require Itk
 
+option add *GroupEntry.headingBackground #cccccc widgetDefault
+option add *GroupEntry.headingForeground white widgetDefault
+option add *GroupEntry.font -*-helvetica-medium-r-normal-*-*-120-* widgetDefault
+
 itcl::class Rappture::GroupEntry {
     inherit itk::Widget
+
+    itk_option define -heading heading Heading 1
 
     constructor {owner path args} { # defined below }
@@ -21 +27 @@
     public method label {}
     public method tooltip {}
+
+    protected method _fixheading {}
 
     private variable _owner ""    ;# thing managing this control
@@ -42 +50 @@
     set _owner $owner
     set _path $path
+
+    itk_component add heading {
+        ::label $itk_interior.heading -anchor w
+    } {
+        usual
+        rename -background -headingbackground headingBackground Background
+        rename -foreground -headingforeground headingForeground Foreground
+    }
+
+    $itk_component(heading) configure \
+        -text [$_owner xml get $_path.about.label]
+    Rappture::Tooltip::for $itk_component(heading) \
+        [$_owner xml get $_path.about.description]
+
+    itk_component add outline {
+        frame $itk_interior.outline -borderwidth 1
+    } {
+        usual
+        ignore -borderwidth
+        rename -background -headingbackground headingBackground Background
+    }
+    pack $itk_component(outline) -expand yes -fill both
+
+    itk_component add inner {
+        frame $itk_component(outline).inner -borderwidth 3
+    } {
+        usual
+        ignore -borderwidth
+    }
+    pack $itk_component(inner) -expand yes -fill both
 
     eval itk_initialize $args
@@ -67 +105 @@
 # ----------------------------------------------------------------------
 itcl::body Rappture::GroupEntry::label {} {
-    return [$_owner xml get $_path.about.label]
+    return ""  ;# manage the label inside this group
 }
 
@@ -81 +119 @@
     return [$_owner xml get $_path.about.description]
 }
+
+# ----------------------------------------------------------------------
+# CONFIGURATION OPTION: -heading
+# Turns the heading bar at the top of this group on/off.
+# ----------------------------------------------------------------------
+itcl::configbody Rappture::GroupEntry::heading {
+    if {![string is boolean -strict $itk_option(-heading)]} {
+        error "bad value \"$itk_option(-heading)\": should be boolean"
+    }
+
+    set str [$itk_component(heading) cget -text]
+    if {$itk_option(-heading) && "" != $str} {
+        eval pack forget [pack slaves $itk_component(hull)]
+        pack $itk_component(heading) -side top -fill x
+        pack $itk_component(outline) -expand yes -fill both
+        $itk_component(outline) configure -borderwidth 1
+        $itk_component(inner) configure -borderwidth 3
+    } else {
+        pack forget $itk_component(heading)
+        $itk_component(outline) configure -borderwidth 0
+        $itk_component(inner) configure -borderwidth 0
+    }
+}