[brlcad-commits] SF.net SVN: brlcad:[38408] brlcad/trunk/src/tclscripts/archer/Archer.tcl
Open Source Solid Modeling CAD
Brought to you by:
brlcad
From: <sta...@us...> - 2010-04-09 14:45:14
|
Revision: 38408 http://brlcad.svn.sourceforge.net/brlcad/?rev=38408&view=rev Author: starseeker Date: 2010-04-09 14:44:59 +0000 (Fri, 09 Apr 2010) Log Message: ----------- OK, scrolling is working now. Modified Paths: -------------- brlcad/trunk/src/tclscripts/archer/Archer.tcl Modified: brlcad/trunk/src/tclscripts/archer/Archer.tcl =================================================================== --- brlcad/trunk/src/tclscripts/archer/Archer.tcl 2010-04-09 14:40:11 UTC (rev 38407) +++ brlcad/trunk/src/tclscripts/archer/Archer.tcl 2010-04-09 14:44:59 UTC (rev 38408) @@ -2840,10 +2840,10 @@ set tlparent [$itk_component(archerHelp) childsite] itk_component add archerHelpF { - ::iwidgets::scrolledframe $tlparent.archerHelpF + ::tk::frame $tlparent.archerHelpF } {} - set sfcs [$itk_component(archerHelpF) childsite] + set sfcs $itk_component(archerHelpF) pack $sfcs -expand yes -fill both # itk_component add archerHelpL { @@ -2862,10 +2862,20 @@ close $help_fd $sfcs.htmlview parse $help_data - pack $htmlviewer -expand yes -fill both + itk_component add archerHelpS { + ::ttk::scrollbar $tlparent.archerHelpS \ + -command "$sfcs.htmlview yview" + } {} - pack $itk_component(archerHelpF) -expand yes -fill both + $sfcs.htmlview configure -yscrollcommand "$itk_component(archerHelpS) set" + grid $htmlviewer $itk_component(archerHelpS) -sticky nsew -in $sfcs + + grid columnconfigure $sfcs 0 -weight 1 + grid rowconfigure $sfcs 0 -weight 1 + + pack $itk_component(archerHelpF) -side right -expand yes -fill both + wm geometry $itk_component(archerHelp) "800x600" } This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |