334 lines
14 KiB
Tcl
334 lines
14 KiB
Tcl
|
#########################################################
|
|||
|
|
# 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><3E><><EFBFBD><EFBFBD> $file <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD></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
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|