[brlcad-commits] SF.net SVN: brlcad:[38664] brlcad/trunk/src/tclscripts/archer/Archer.tcl

[<sta...@us...>]

Revision: 38664
          http://brlcad.svn.sourceforge.net/brlcad/?rev=38664&view=rev
Author:   starseeker
Date:     2010-04-20 19:33:15 +0000 (Tue, 20 Apr 2010)

Log Message:
-----------
Switch html help viewer to using hv3 megawidget, point it to Vol1  for intro page, conditionalize drawing html windows on presence of the Vol1 html file.

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-20 19:29:48 UTC (rev 38663)
+++ brlcad/trunk/src/tclscripts/archer/Archer.tcl	2010-04-20 19:33:15 UTC (rev 38664)
@@ -2927,6 +2927,9 @@
 
     set tlparent [$itk_component(archerHelp) childsite]
 
+
+    if {[file exists [file join [bu_brlcad_data "html/books/en"] BRL-CAD_Tutorial_Series-VolumeI.html]]} {
+
     # Table of Contents
     itk_component add archerHelpToC {
 	::tk::frame $tlparent.archerManToc
@@ -2961,33 +2964,24 @@
     set sfcs $itk_component(archerHelpF)
     pack $sfcs -expand yes -fill both 
 
-    # List of available help documents
-    set helplist [list [file join [bu_brlcad_data "html/manuals/mged"] mged.html]]
-
-    #set articleslist [glob -directory [bu_brlcad_data "html/articles/en"] *.html]
     # HTML widget
-    set htmlviewer [html $sfcs.htmlview]
-    $sfcs.htmlview configure -parsemode html 
-    $sfcs.htmlview configure -imagecmd Archer::mkHelpTkImage
-    $sfcs.htmlview handler node title title_node_handler
-    set help_fd [lindex $helplist 0]
+    set hv3htmlviewer [::hv3::hv3 $sfcs.htmlview]
+    set htmlviewer [$hv3htmlviewer html]
+    $htmlviewer configure -parsemode html
+    $htmlviewer configure -imagecmd Archer::mkHelpTkImage
+    set help_fd [lindex [list [file join [bu_brlcad_data "html/books/en"] BRL-CAD_Tutorial_Series-VolumeI.html]] 0]
     get_html_data $help_fd
-    $sfcs.htmlview parse $archer_help_data
+    $htmlviewer parse $archer_help_data
 
-    itk_component add archerHelpS {
-	::ttk::scrollbar $tlparent.archerHelpS \
-		-command "$sfcs.htmlview yview"
-    } {}
+    grid $hv3htmlviewer -sticky nsew -in $sfcs
 
-    $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 left -expand yes -fill both
 
+    } 
+
     wm geometry $itk_component(archerHelp) "1100x800"
 }
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.