#########################################################
#                Tk LaTeX Editor
#        Distributed under GNU Public License
# Author: Sergey Kalinin (BanZaj) banzaj@lrn.ru
# Copyright (c) "CONERO lab", 2002, http://conero.lrn.ru
#########################################################
proc ShowHelp {} {
    if {[winfo exists .help] == 1} {
        focus -force .help
        raise .help
    } else {
        TopLevelHelp
    }
    if {[catch {set word [selection get]} error] != 0} {
        set word " "
    } else {
        puts $word
        TopLevelHelp
        SearchWord $word
    }
}

proc HlpTreeOneClick {node} {
    global font(normal) hlpTree wordList hlpNoteBook findString dir(img) font
    global lstSearch nodeParent
    $hlpTree selection set $node
    set nodeParent [$hlpTree parent $node]
    set item [$hlpTree itemcget $node -data]
    set file [string range $item 4 end]
    #puts "$file" ;#debuf info
    if {[string range $item 0 2] == "toc"} {
        #        $hlpTree configure
    }
    if {[$hlpTree itemcget $node -open] == 1} {
        $hlpTree itemconfigure $node -open 0
    } elseif {[$hlpTree itemcget $node -open] == 0} {
        $hlpTree itemconfigure $node -open 1
    }
    if {[string range $item 0 2] == "doc"} {
        GetContent $file
    }
}
## GETTING TABLE OF CONTENT ##
proc GetTOC {} {
    global dir hlpTree dir font lstSearch arr help locale
    foreach dirHlp [lsort [glob -nocomplain [file join $dir(hlp) *]]] {
        if {[file isdirectory $dirHlp] == 1} {
            set dirHlp [file join $dir(hlp) $locale]
            puts $dirHlp
        } else {
            set dirHlp $dir(hlp)
        }
    }
    if {[info exists dirHlp] != 1} {set dirHlp $dir(hlp)}
    puts $dirHlp
    foreach file [lsort [glob -nocomplain [file join $dirHlp *toc.html]]] {
        set fileName [file join $file]
        set tocFile [open $fileName r]
        fconfigure $tocFile -encoding binary
        
        set dot "_"
        set nodeParent [file dirname $fileName]
        while {[gets $tocFile line]>=0} {
            set a ""
            set b ""
            set line [encoding convertfrom $help(encode) $line]
            if {[regexp -nocase "<title>.+\</title>" $line a]} {
                if {[regexp ">.+\<" $line a]} {
                    set length [string length $a]
                    set title [string range $a 1 [expr $length-2]]
                    #puts $nodeParent ;# debug info
                    $hlpTree insert end root $nodeParent -text "$title" -font $font(normal) \
                    -data "toc_$nodeParent" -open 0\
                    -image [Bitmap::get [file join $dir(img) books.gif]]
                }
            } elseif {[regexp "\".+\"" $line a]} {
                set data [string range $a 1 [expr [string last "\"" $a]-1]]
                if {[regexp ">.+\<" $line b]} {
                    set line [string range $b 1 [expr [string first "<" $b]-1]]
                    regsub -all {[ :]} $line "_" subNode
                    #regsub -all ":" $ubNode "_" node
                    set subNode "$nodeParent$dot$subNode"
                    if {[info exists arr($subNode)] == 0} {
                        set arr($subNode) [file join $dirHlp $data]
                    }
                    set data [file join $dirHlp $data]
                    #puts "$subNode" ;# debug info
                    $hlpTree insert end "$nodeParent" $subNode -text "$line"\
                    -font $font(normal) -data "doc_$data" -open 0\
                    -image [Bitmap::get [file join $dir(img) file.gif]]
                    $lstSearch insert end $line
                }        
            } else {
                break
            }
        }
    }
    $hlpTree configure -redraw 1
}
proc SearchWord {word} {
    global arr nBookTree
    set word [string tolower [string trim $word]]
    puts $word
    $nBookTree raise hlpSearch
    #    InsertEnt .help.frmBody.frmCat.nBookTree.fhlpSearch.frmScrhEnt.entSearch $word
    foreach wrd [array names arr] {
        set name "[file rootname [file tail $arr($wrd)]]"
        set file "$arr($wrd)"
        if {[string match "$word*" [string tolower $name]] == 1} {
            GetContent $file
        }
    }
}
## GETTING CONTENT FROM FILES ##
proc GetContent {file} {
    global dir hlpNoteBook font help
    $hlpNoteBook raise [$hlpNoteBook page 0]
    set node [$hlpNoteBook raise]
    if {$node != ""} {
        $hlpNoteBook delete hlpHTML
    }
    set nbTitle ""
    set html ""
    set file [open $file r]
    fconfigure $file -encoding binary
    while {[gets $file line]>=0} {
#        if {$line == ""} {
#            set html "<h1>Файл $file не содержит данных</h1>"
#        }
        set line [encoding convertfrom $help(encode) $line]
        if {[regexp -nocase "<title>.+\</title>" $line a]} {
            if {[regexp ">.+\<" $a a]} {
                set length [string length $a]
                set nbTitle [string range $a 1 [expr $length-2]]
                #puts $nbTitle
                #puts $a
            }
        }
        append html $line
    }
    set frmHTML [$hlpNoteBook insert end hlpHTML -text $nbTitle]
    set txt [text $frmHTML.txtHTML  -yscrollcommand "$frmHTML.yscroll set" \
            -relief sunken -wrap word -highlightthickness 0 -font $font(normal)\
            -selectborderwidth 0 -selectbackground #55c4d1 -width 10]
    scrollbar $frmHTML.yscroll -relief sunken -borderwidth {1} -width {10} -takefocus 0\
            -command "$frmHTML.txtHTML yview"
    
    pack $txt -side left -fill both -expand true
    pack $frmHTML.yscroll -side left -fill y
    $hlpNoteBook raise hlpHTML
    focus -force $txt
    HMinit_win $txt
    #HMlink_callback LinkCallback
    HMset_state $txt -size 0
    HMset_indent $txt 1.2
    HMparse_html $html "HMrender $txt"
    #HM::tag_title .help "Help - $nbTitle"
$txt configure -state disabled

}
## GOTO URL PROCEDURE ##
proc LinkCallback {w url} {
    global dir nodeParent
    set url "[file join $dir(hlp) $nodeParent $url]"
    if {[catch {open $url r} oHTML]} {
        tk_messageBox -title "[::msgcat::mc "Error open URL"]"\
        -message "[::msgcat::mc "Can't found file:"] $url"\
        -icon error -type ok
    } else {
        GetContent $url
    }
}


##   autor DEDERER    ##
proc LinkCallback_ {w url} {
    global dir
    set url "[file join $dir(hlp) $url]"
    if {[catch {open $url r} oHTML]} {
        tk_messageBox -title "[::msgcat::mc "Error open URL"]"\
        -message "[::msgcat::mc "Can't founf file: $url"]"\
        -icon error -type ok
    } else {
        set html [read $oHTML]
        $w configure -state normal
        HMreset_win $w
        HMparse_html $html "HMrender $w"
        $w configure -state disable
    }
    #HMrender [winfo toplevel $w] $url
}

## MAIN HELP WINDOW ##
proc TopLevelHelp {} {
    global font hlpTree hlpNoteBook nBookTree homeDir dir lstSearch w frmSrchList
    set w .help
    set w_exist [winfo exists $w]
    if !$w_exist  {
        toplevel $w
        #    wm resizable .help 0 0
        wm geometry $w 600x400+0+0
        wm title $w [::msgcat::mc "Help"]
        #    wm protocol $w WM_DELETE_WINDOW {destroy .msg .help}
        #wm geometry . 600x400+0+0
        wm title $w [::msgcat::mc "Help"]
        
        frame $w.frmMenu -border 1 -relief raised
        frame $w.frmTool -border 1 -relief raised
        frame $w.frmBody -border 1 -relief raised
        frame $w.frmStatus -border 1 -relief sunken
        pack $w.frmMenu -side top -padx 1 -fill x
        pack $w.frmTool -side top -padx 1 -fill x
        pack $w.frmBody -side top -padx 1 -fill both -expand true
        pack $w.frmStatus -side top -padx 1 -fill x
        
        
        button $w.frmTool.btnBack -relief groove -font $font(bold) -command Back -state disable
        button $w.frmTool.btnForward -relief groove -font $font(bold) -command Forward -state disable
        button $w.frmTool.btnRefresh -relief groove -font $font(bold) -command Refresh -state disable
        button $w.frmTool.btnPrint -relief groove -font $font(bold) -command Print -state disable
        image create photo imgBack -format gif -file [file join $dir(img) back.gif]
        image create photo imgForward -format gif -file [file join $dir(img) forward.gif]
        image create photo imgRefresh -format gif -file [file join $dir(img) refresh.gif]
        image create photo imgPrint -format gif -file [file join $dir(img) printer.gif]
        $w.frmTool.btnBack configure -image imgBack
        $w.frmTool.btnForward configure -image imgForward
        $w.frmTool.btnRefresh configure -image imgRefresh
        $w.frmTool.btnPrint configure -image imgPrint
        pack $w.frmTool.btnBack $w.frmTool.btnForward $w.frmTool.btnRefresh $w.frmTool.btnPrint\
                -side left -fill x
        
        
        set frmCat [frame $w.frmBody.frmCat -border 1 -relief sunken]
        pack $frmCat -side left -fill y
        set frmWork [frame $w.frmBody.frmWork -border 1 -relief sunken]
        pack $frmWork -side left -fill both -expand true
        
        set nBookTree [NoteBook $frmCat.nBookTree -font $font(normal)]
        pack $nBookTree -fill both -expand true -padx 2 -pady 2
        set frmTreeNb [$nBookTree insert end hlpTree -text "[::msgcat::mc "Contents"]"]
        set frmSearch [$nBookTree insert end hlpSearch -text "[::msgcat::mc "Search"]"]
        $nBookTree raise hlpTree
        
        set frmScrlX [frame $frmTreeNb.frmScrlX -border 0 -relief sunken]
        set frmTree [frame $frmTreeNb.frmTree -border 1 -relief sunken]
        set hlpTree [Tree $frmTree.tree \
                -relief sunken -borderwidth 1 -width 20 -highlightthickness 0\
                -redraw 0 -dropenabled 1 -dragenabled 1 -dragevent 3 \
                -yscrollcommand {.help.frmBody.frmCat.nBookTree.fhlpTree.frmTree.scrlY set} \
                -xscrollcommand {.help.frmBody.frmCat.nBookTree.fhlpTree.frmScrlX.scrlX set} \
                -background "#d3d3d3" -selectbackground "#55c4d1" \
                -droptypes {
            TREE_NODE    {copy {} move {} link {}}
            LISTBOX_ITEM {copy {} move {} link {}}
        } -opencmd   "" -closecmd  ""]
        
            pack $frmTree -side top -fill y -expand true
            pack $frmScrlX -side top -fill x
            
            scrollbar $frmTree.scrlY -command {$hlpTree yview} \
                    -borderwidth {1} -width {10} -takefocus 0
            pack $hlpTree $frmTree.scrlY -side left -fill y
            
            scrollbar $frmScrlX.scrlX -command {$hlpTree xview} \
                    -orient horizontal -borderwidth {1} -width {10} -takefocus 0
            pack $frmScrlX.scrlX -fill x -expand true
            
            set frmSrchList [frame $frmSearch.frmScrhList -border 0 -relief sunken]
            set frmSrchEnt [frame $frmSearch.frmScrhEnt -border 0 -relief sunken]
            set frmSrchScrollX [frame $frmSearch.frmScrhScrollX -border 0 -relief sunken]
            pack $frmSrchEnt -side top -fill x
            pack $frmSrchList -side top -fill both -expand true
            pack $frmSrchScrollX -side top -fill x
            
            entry $frmSrchEnt.entSearch
            set lstSearch [listbox $frmSrchList.lstSearch -font $font(normal)\
                    -yscrollcommand\
                    {.help.frmBody.frmCat.nBookTree.fhlpSearch.frmScrhList.scrListY set}\
                    -xscrollcommand\
                    {.help.frmBody.frmCat.nBookTree.fhlpSearch.frmScrhScrollX.scrListX set}\
                    -selectmode single -selectbackground #55c4d1\
                    -selectborderwidth 0]
            scrollbar $frmSrchList.scrListY -command\
                    {$frmSrchList.lstSearch yview} -borderwidth {1} -width {10} -takefocus 0
            
            pack $frmSrchEnt.entSearch -side top -fill x -expand true
            
            pack $frmSrchList.lstSearch -side left -fill both -expand true
            pack $frmSrchList.scrListY -side left -fill y
            
            scrollbar $frmSrchScrollX.scrListX -orient horizontal -command\
                    {$frmSrchList.lstSearch xview} -borderwidth {1} -width {10} -takefocus 0
            pack $frmSrchScrollX.scrListX -fill x
#            $hlpTree bindText <ButtonRelease-4> [puts %k]
#            $hlpTree bindText <ButtonRelease-3> [puts %k]
#            bind $frmTree <ButtonPress-4> {$frmSrchList.lstSearch xview}
    #        $hlpTree bindText  <Double-ButtonPress-1> "HlpTreeDoubleClick [$hlpTree selection get]"
    #        $hlpTree bindImage  <Double-ButtonPress-1> "HlpTreeDoubleClick [$hlpTree selection get]"
            $hlpTree bindText  <ButtonPress-1> "HlpTreeOneClick [$hlpTree selection get]"
            $hlpTree bindImage  <ButtonPress-1> "HlpTreeOneClick [$hlpTree selection get]"
            bind .help <Escape> "destroy .help"

#        bind $frmSrchEnt.entSearch <KeyRelease>\
#                {SearchWord [Text .help.frmBody.frmCat.nBookTree.fhlpSearch.frmScrhEnt.entSearch]}
        
        #bind $w <Escape> exit
        #bind $frmTree <Down> {TreeClick [$hlpTree selection get]}
        #bind $frmTree <Up> {TreeClick [$hlpTree selection get]}
        #bind $frmTree <Return> {TreeClick [$hlpTree selection get]}
        bind $frmTree.tree.c <Button-4> "$hlpTree yview scroll -3 units"
        bind $frmTree.tree.c <Button-5> "$hlpTree yview scroll  3 units"
        bind $frmTree.tree.c <Shift-Button-4> "$hlpTree xview scroll -2 units"
        bind $frmTree.tree.c <Shift-Button-5> "$hlpTree xview scroll  2 units"
        
        set hlpNoteBook [NoteBook $frmWork.hlpNoteBook -font $font(normal)]
        pack $hlpNoteBook -fill both -expand true -padx 2 -pady 2
        GetTOC
    }

}

##################################################
#TopLevelHelp
#GetTOC

#GetContent $dir(hlp)/tcl.toc.html