Changeset 1651 for branches/blt4/gui/scripts/postern.tcl

Timestamp:

Feb 2, 2010 2:33:08 PM (14 years ago)

Author:

gah

Message:

 

File:

• branches/blt4/gui/scripts/postern.tcl (modified) (1 diff)

branches/blt4/gui/scripts/postern.tcl

@@ -82 +82 @@
     set inner [$itk_component(hull).popup component inner]
 
-    Rappture::Scroller $inner.area
+    blt::scrollset $inner.area  -window $inner.area.text
     pack $inner.area -expand yes -fill both
     text $inner.area.text
-    $inner.area contents $inner.area.text
 
     $inner.area.text tag configure error -foreground red \