[GRASSweb-list]bob: web/gdp/nviz help.tcl,NONE,1.1 help_frame.tcl,1.1,1.2

[grass at intevation.de]

Author: bob

Update of /grassrepository/web/gdp/nviz
In directory doto:/tmp/cvs-serv31378

Modified Files:
	help_frame.tcl 
Added Files:
	help.tcl 
Log Message:
New TCL Help system

--- NEW FILE: help.tcl ---
################################################################################
#
#  Project       :  Help System
#
#  Developed by  :  Andrei A. Gratchev      <grand at midc.miem.edu.ru>
#                :                          <angra at intrinsix.com>
#
#  Filename      :  help.tcl
#  Version       :  1.4
#  Description   :  Help system based on HTML & HTML viewer
#
#  History       :
#    17/06/2000  :  The first public release
#    23/10/2000  :  Added support of new tag <$ ...>
#    06/12/2000  :  Corrected help's behavior while modal window exists
#    22/02/2001  :  Added many changes written by J.W.Schmitz-Hübsch
#                :     new parameter width and height in help:init
#                :         defaults are 450 and 400
#                :     align in section heading h1 ... h6;
[...3182 lines suppressed...]
  if {[catch {regexp -- "$val" {}}]} {
   error "Error in regular expression:\n\"$val\""
   return 0
  } else {
   return 1
  }
 } else {
  return 1
 }
}



#===============================================================================
# Initialization section
#===============================================================================
if {[lindex [split $::tcl_version "."] 0]<8 || ($::tcl_version=="8.0")} {
 error "Incompatible version of Tcl/Tk. Please update your Tcl/Tk."
 exit
}

Index: help_frame.tcl
===================================================================
RCS file: /grassrepository/web/gdp/nviz/help_frame.tcl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- help_frame.tcl	23 Jul 2002 08:44:18 -0000	1.1
+++ help_frame.tcl	26 Mar 2004 16:04:01 -0000	1.2
@@ -8,115 +8,27 @@
 set URL $argv
 puts "Using $URL"
 
-source $env(GISBASE)/documents/nviz/html_library.tcl
+source $env(GISBASE)/documents/nviz/help.tcl
 
 proc make_help_window { w } {
 
         frame $w
 	frame $w.f2
 	frame $w.f1
-        button $w.f2.quit  -command exit  -text Close -relief raised -bd 3
-        scrollbar $w.f1.scrollbar  -command "$w.f1.text yview"  -orient v
-        text $w.f1.text  -yscrollcommand "$w.f1.scrollbar set" \
-	-padx 3 -pady 3 -takefocus 0 \
-	-background white -foreground black
 
         pack $w -side top -expand 1 -fill both
 	pack $w.f1 -side top -expand 1 -fill both
 	pack $w.f2 -side bottom -expand 0 -fill both
-        pack $w.f2.quit -side bottom -fill x -expand 0
-	pack $w.f1.text -side right -fill both -expand 1
-	pack $w.f1.scrollbar -side left -expand 0 -fill y
-
-}
-
-proc render {file targ} {
-        global HM$targ Url
-        global Running message
-
-        set fragment ""
-        regexp {([^#]*)#(.+)} $file dummy file fragment
-        if {$file == "" && $fragment != ""} {
-                HMgoto $targ $fragment
-                return
-        }
-        HMreset_win $targ
-        set Running busy
-        set message "Displaying $file"
-        update idletasks
-        if {$fragment != ""} {
-                HMgoto $targ $fragment
-        }
-        set Url $file
-        HMparse_html [get_html $file] {HMrender .help_menu.f1.text}
-        set Running ready
-        HMset_state $targ -stop 1       ;# stop rendering previous page if busy
-        set message ""
-}
-
-proc get_html {file} {
-        global Home
-        if {[catch {set fd [open $file]} msg]} {
-                return "
-                        <title>Bad file $file</title>
-                        <h1>Error reading $file</h1><p>
-                        $msg<hr>
-                        <a href=$Home>Go home</a>
-                "
-        }
-        set result [read $fd]
-        close $fd
-        return $result
-}
-
-proc HMlink_callback {win href} {
-        global Url
-
-        if {[string match #* $href]} {
-                render $href $win
-                return
-        }
-        if {[string match /* $href]} {
-                set Url $href
-        } else {
-                set Url [file dirname $Url]/$href
-        }
-        update
-        render $Url $win
-}
-
-proc HMset_image {win handle src} {
-        global Url message
-        if {[string match /* $src]} {
-                set image $src
-        } else {
-                set image [file dirname $Url]/$src
-        }
-        set message "fetching image $image"
-        update
-        if {[string first " $image " " [image names] "] >= 0} {
-                HMgot_image $handle $image
-        } else {
-                set type photo
-                if {[file extension $image] == ".bmp"} {set type bitmap}
-                catch {image create $type $image -file $image} image
-                HMgot_image $handle $image
-        }
-}
-
 
-proc HMtag_base {win param text} {
-        global Url
-        upvar #0 HM$win var
-        HMextract_param $param href Url
 }
 
 
 
 set w .help_menu
 
+wm title . "Loading Files ... "
+
 catch {make_help_window $w}
-HMinit_win $w.f1.text
-HMset_state $w.f1.text -size 4
-HMset_indent $w.f1.text 1.2
-render $URL $w.f1.text
+help::init $URL "" $w.f1 500 400
+
+wm title . "NVIZ Help"
\ No newline at end of file