576 lines
23 KiB
Tcl
576 lines
23 KiB
Tcl
|
######################################################
|
||
|
|
# TkTeXeditor
|
||
|
|
# Distributed under GNU Public License
|
||
|
|
# Author: Sergey Kalinin (BanZaj) banzaj@lrn.ru
|
||
|
|
# Copyright (c) "CONERO lrn", 2000, http//conero.lrn.ru
|
||
|
|
######################################################
|
||
|
|
|
||
|
|
######################################################
|
||
|
|
# #
|
||
|
|
# Programms main interface window #
|
||
|
|
# #
|
||
|
|
######################################################
|
||
|
|
|
||
|
|
|
||
|
|
## MAIN INTERFACE WINDOW ##
|
||
|
|
wm geometry . $gui(geometry)
|
||
|
|
set activeFile ""
|
||
|
|
wm title . "TkLaTeXEditor $ver$release"
|
||
|
|
wm iconname . "TkTeXEditor $ver$release"
|
||
|
|
wm protocol . WM_DELETE_WINDOW Quit
|
||
|
|
wm overrideredirect . 0
|
||
|
|
wm positionfrom . user
|
||
|
|
#wm resizable . 0 0
|
||
|
|
|
||
|
|
## main frames
|
||
|
|
frame .frmMenu -border 1 -relief raised -background $color(bg)
|
||
|
|
frame .frmTool -border 1 -relief raised -background $color(bg)
|
||
|
|
frame .frmToolEdit -border 1 -relief raised -background $color(bg)
|
||
|
|
frame .frmBody -border 1 -relief raised -background $color(bg)
|
||
|
|
frame .frmStatus -border 1 -relief sunken -background $color(bg)
|
||
|
|
pack .frmMenu -side top -padx 1 -fill x
|
||
|
|
pack .frmTool -side top -padx 1 -fill x
|
||
|
|
pack .frmToolEdit -side top -padx 1 -fill x
|
||
|
|
pack .frmBody -side top -padx 1 -fill both -expand true
|
||
|
|
pack .frmStatus -side top -padx 1 -fill x
|
||
|
|
|
||
|
|
## MENU ##
|
||
|
|
menubutton .frmMenu.mnuFile -text [::msgcat::mc "File"] -menu .frmMenu.mnuFile.m -font $font(normal) -background $color(bg)
|
||
|
|
set m [menu .frmMenu.mnuFile.m -background $color(bg)]
|
||
|
|
$m add cascade -label [::msgcat::mc "New"] -menu $m.new -font $font(normal)
|
||
|
|
set mn [menu $m.new -background $color(bg)]
|
||
|
|
$mn add command -label [::msgcat::mc "New file"] -command {FileDialog new}\
|
||
|
|
-font $font(normal) -accelerator "Ctrl+N"
|
||
|
|
$mn add command -label [::msgcat::mc "Create from template"] -command {FileDialog new_templ}\
|
||
|
|
-font $font(normal)
|
||
|
|
$mn add command -label [::msgcat::mc "New project"] -command {NewProj add ""}\
|
||
|
|
-font $font(normal) -state disable
|
||
|
|
$m add command -label [::msgcat::mc "Open"] -command {FileDialog open}\
|
||
|
|
-font $font(normal) -accelerator "Ctrl+O"
|
||
|
|
$m add command -label [::msgcat::mc "Save"] -command {FileDialog save}\
|
||
|
|
-font $font(normal) -accelerator "Ctrl+S"
|
||
|
|
$m add command -label [::msgcat::mc "Save as"] -command {FileDialog save_as}\
|
||
|
|
-font $font(normal) -accelerator "Ctrl+A"
|
||
|
|
$m add command -label [::msgcat::mc "Save all"] -command {FileDialog save_all}\
|
||
|
|
-font $font(normal)
|
||
|
|
$m add command -label [::msgcat::mc "Close"] -command {FileDialog close}\
|
||
|
|
-font $font(normal) -accelerator "Ctrl+W"
|
||
|
|
$m add command -label [::msgcat::mc "Close all"] -command {FileDialog close_all}\
|
||
|
|
-font $font(normal)
|
||
|
|
$m add command -label [::msgcat::mc "Delete"] -command {FileDialog delete}\
|
||
|
|
-font $font(normal) -accelerator "Ctrl+D"
|
||
|
|
$m add separator
|
||
|
|
$m add command -label [::msgcat::mc "Print"] -command {PrintDialog print}\
|
||
|
|
-font $font(normal) -accelerator "Ctrl+P" -state normal
|
||
|
|
#$m add separator
|
||
|
|
#$m add command -label [::msgcat::mc "Settings"] -command Settings -font $font(normal)
|
||
|
|
$m add separator
|
||
|
|
$m add command -label [::msgcat::mc "Exit"] -command Quit -font $font(normal) -accelerator "Ctrl+Q"
|
||
|
|
|
||
|
|
### DOCUMENT MENU ####
|
||
|
|
menubutton .frmMenu.mnuDoc -text [::msgcat::mc "Document"] -menu .frmMenu.mnuDoc.m -font $font(normal) -background $color(bg)
|
||
|
|
|
||
|
|
set m [menu .frmMenu.mnuDoc.m -background $color(bg)]
|
||
|
|
#$m add command -label [::msgcat::mc "Included packages"] -command {PackageDialog}\
|
||
|
|
#-font $font(normal) -state disable
|
||
|
|
# "convert to" submenu ##
|
||
|
|
$m add cascade -label "[::msgcat::mc "Convert to"] ..." -menu $m.convert -font $font(normal) -state normal
|
||
|
|
set mn [menu $m.convert -background $color(bg)]
|
||
|
|
$mn add command -label [::msgcat::mc "DVI"] -font $font(normal) -accelerator "F5" -state normal\
|
||
|
|
-command {ConvertDialog dvi}
|
||
|
|
$mn add command -label [::msgcat::mc "PS"] -font $font(normal) -accelerator "F6" -state normal\
|
||
|
|
-command {ConvertDialog ps}
|
||
|
|
$mn add command -label [::msgcat::mc "PDF"] -font $font(normal) -accelerator "F7" -state normal\
|
||
|
|
-command {ConvertDialog pdf}
|
||
|
|
$mn add command -label "HTML" -font $font(normal) -command {ConvertDialog html}\
|
||
|
|
|
||
|
|
$mn add separator
|
||
|
|
## "preview" submenu ##
|
||
|
|
$m add cascade -label [::msgcat::mc "Preview"] -menu $m.preview -font $font(normal) -state normal
|
||
|
|
set mn [menu $m.preview -background $color(bg)]
|
||
|
|
$mn add command -label "DVI" -command {Preview dvi} -font $font(normal)
|
||
|
|
$mn add command -label "PS" -command {Preview ps} -font $font(normal)
|
||
|
|
$mn add command -label "PDF" -command {Preview pdf} -font $font(normal)
|
||
|
|
$mn add command -label "HTML" -command {Preview html} -font $font(normal)
|
||
|
|
|
||
|
|
$m add separator
|
||
|
|
$m add command -label [::msgcat::mc "Spell check"] -font $font(normal) -state normal\
|
||
|
|
-command {
|
||
|
|
SpellCheck $nb.f[$nb raise].f.text
|
||
|
|
}
|
||
|
|
$m add command -label [::msgcat::mc "Encoding"] -font $font(normal) -state normal\
|
||
|
|
-command {EncodeDialog file}
|
||
|
|
|
||
|
|
$m add command -label [::msgcat::mc "Syntax check"] -command {DoModule syntax}\
|
||
|
|
-font $font(normal) -state disable
|
||
|
|
|
||
|
|
##.frmMenu 'EDIT' ##
|
||
|
|
menubutton .frmMenu.mnuEdit -text [::msgcat::mc "Edit"] -menu .frmMenu.mnuEdit.m -font $font(normal) -background $color(bg)
|
||
|
|
set m [menu .frmMenu.mnuEdit.m -background $color(bg)]
|
||
|
|
$m add command -label [::msgcat::mc "Undo"] -font $font(normal) -accelerator "Ctrl+Z"\
|
||
|
|
-state normal -command "CutPast undo"
|
||
|
|
$m add separator
|
||
|
|
$m add command -label [::msgcat::mc "Copy"] -font $font(normal) -accelerator "Ctrl+C"\
|
||
|
|
-command "CutPast copy"
|
||
|
|
$m add command -label [::msgcat::mc "Paste"] -font $font(normal) -accelerator "Ctrl+V"\
|
||
|
|
-command "CutPast paste"
|
||
|
|
$m add command -label [::msgcat::mc "Cut"] -font $font(normal) -accelerator "Ctrl+X"\
|
||
|
|
-command "CutPast cut"
|
||
|
|
$m add separator
|
||
|
|
$m add command -label [::msgcat::mc "Select All"] -command {Select all} -font $font(normal) -accelerator "Ctrl+/"
|
||
|
|
$m add command -label [::msgcat::mc "Remove selection"] -command {Select remove} -font $font(normal)\
|
||
|
|
-accelerator "Ctrl+\\"
|
||
|
|
$m add separator
|
||
|
|
$m add command -label [::msgcat::mc "Goto line"] -command GoToLine -font $font(normal)\
|
||
|
|
-accelerator "Ctrl+G"
|
||
|
|
$m add command -label [::msgcat::mc "Find"] -command Find -font $font(normal) -accelerator "Ctrl+F"
|
||
|
|
$m add command -label [::msgcat::mc "Replace"] -command ReplaceDialog -font $font(normal)\
|
||
|
|
-accelerator "Ctrl+R"
|
||
|
|
$m add separator
|
||
|
|
$m add cascade -label "[::msgcat::mc "Custom operations"] ..." -menu $m.hotkeys -font $font(normal) -state normal
|
||
|
|
menu $m.hotkeys -background $color(bg)
|
||
|
|
|
||
|
|
## MENU for selected text ##
|
||
|
|
set m [menu .frmMenu.mnuEdit.m.selection -background $color(bg)]
|
||
|
|
$m add command -label [::msgcat::mc "Select All"] -command {Select all} -font $font(normal) -accelerator "Ctrl+/"
|
||
|
|
$m add command -label [::msgcat::mc "Remove selection"] -command {Select remove} -font $font(normal)\
|
||
|
|
-accelerator "Ctrl+\\"
|
||
|
|
$m add separator
|
||
|
|
$m add command -label [::msgcat::mc "Copy"] -font $font(normal) -accelerator "Ctrl+C"\
|
||
|
|
-command "CutPast copy"
|
||
|
|
$m add command -label [::msgcat::mc "Paste"] -font $font(normal) -accelerator "Ctrl+V"\
|
||
|
|
-command "CutPast paste"
|
||
|
|
$m add command -label [::msgcat::mc "Cut"] -font $font(normal) -accelerator "Ctrl+X"\
|
||
|
|
-command "CutPast cut"
|
||
|
|
$m add separator
|
||
|
|
$m add command -label [::msgcat::mc "Preview formula"] -command {GenerateFormula math} -font $font(normal)\
|
||
|
|
-accelerator "Alt+F"
|
||
|
|
$m add command -label [::msgcat::mc "Preview text"] -command {GenerateFormula text} -font $font(normal)\
|
||
|
|
-accelerator "Alt+T"
|
||
|
|
$m add separator
|
||
|
|
$m add command -label [::msgcat::mc "Remove to file"] -command {SaveToFile remove} -font $font(normal)
|
||
|
|
$m add command -label [::msgcat::mc "Save as file"] -command {SaveToFile file} -font $font(normal)
|
||
|
|
$m add command -label [::msgcat::mc "Save as image"] -command {SaveToFile image} -font $font(normal)
|
||
|
|
|
||
|
|
|
||
|
|
## VIEW MENU ##
|
||
|
|
menubutton .frmMenu.mnuView -text [::msgcat::mc "View"] -menu .frmMenu.mnuView.m -font $font(normal) -state normal -background $color(bg)
|
||
|
|
set m [menu .frmMenu.mnuView.m -background $color(bg)]
|
||
|
|
$m add cascade -label [::msgcat::mc "Toolbar"] -menu $m.tool -font $font(normal)
|
||
|
|
set mn [menu $m.tool]
|
||
|
|
|
||
|
|
#$mn add command -label [::msgcat::mc "Create from template"] -command {FileDialog new_templ}\
|
||
|
|
#-font $font(normal)
|
||
|
|
|
||
|
|
$m add separator
|
||
|
|
$m add command -label [::msgcat::mc "Split window"] -font $font(normal) -accelerator "F2" -state disable\
|
||
|
|
-command {SplitWindow}
|
||
|
|
$m add command -label [::msgcat::mc "Encoding"] -font $font(normal) -state normal\
|
||
|
|
-command {EncodeDialog view}
|
||
|
|
|
||
|
|
## MODULES MENU ##
|
||
|
|
menubutton .frmMenu.mnuModule -text [::msgcat::mc "Modules"] -menu .frmMenu.mnuModule.m \
|
||
|
|
-underline 0 -font $font(normal) -background $color(bg)
|
||
|
|
|
||
|
|
## HELP MENU ##
|
||
|
|
menubutton .frmMenu.mnuHelp -text [::msgcat::mc "Help"] -menu .frmMenu.mnuHelp.m \
|
||
|
|
-underline 0 -font $font(normal) -background $color(bg)
|
||
|
|
set m [menu .frmMenu.mnuHelp.m -background $color(bg)]
|
||
|
|
$m add command -label [::msgcat::mc "Help"] -command ShowHelp \
|
||
|
|
-accelerator F1 -font $font(normal)
|
||
|
|
$m add command -label [::msgcat::mc "About ..."] -command AboutDialog \
|
||
|
|
-font $font(normal)
|
||
|
|
|
||
|
|
pack .frmMenu.mnuFile .frmMenu.mnuEdit .frmMenu.mnuDoc .frmMenu.mnuView .frmMenu.mnuModule -side left
|
||
|
|
pack .frmMenu.mnuHelp -side right
|
||
|
|
|
||
|
|
|
||
|
|
###############################################
|
||
|
|
frame .frmBody.frmList -background $color(bg)
|
||
|
|
frame .frmBody.frmEditor -background $color(bg)
|
||
|
|
pack .frmBody.frmList .frmBody.frmEditor -side left -fill both
|
||
|
|
|
||
|
|
## SPLIT BAR ##
|
||
|
|
pane::create .frmBody.frmList .frmBody.frmEditor
|
||
|
|
|
||
|
|
## TREE FRAME ##
|
||
|
|
|
||
|
|
set nbTree [NoteBook .frmBody.frmList.nBook -font $font(normal) -side $gui(tabsLabel) -background $color(bg)]
|
||
|
|
pack $nbTree -fill both -expand true -padx 2 -pady 2
|
||
|
|
|
||
|
|
set f [$nbTree insert end fileTree -text [::msgcat::mc "Files"] -background $color(bg)]
|
||
|
|
set fTree [ScrolledWindow $f.f -background $color(bg)]
|
||
|
|
pack $fTree -side top -fill both -expand yes -padx 0 -pady 0
|
||
|
|
set tree [Tree $fTree.tree \
|
||
|
|
-relief sunken -borderwidth 1 -width 1 -height 1 -highlightthickness 1\
|
||
|
|
-redraw 0 -dropenabled 1 -dragenabled 1 -dragevent 3 \
|
||
|
|
-background $color(editBg) -selectbackground $color(selectbg) \
|
||
|
|
-droptypes {TREE_NODE {copy {} move {} link {}}
|
||
|
|
LISTBOX_ITEM {copy {} move {} link {}}} -opencmd {} -closecmd {}]
|
||
|
|
$fTree setwidget $tree
|
||
|
|
#pack $tree -side left -fill both -expand yes
|
||
|
|
###############################################
|
||
|
|
set fStruct [$nbTree insert end fileStruct -text [::msgcat::mc "Document"] -background $color(bg)]
|
||
|
|
set fTreeStruct [ScrolledWindow $fStruct.fs -background $color(bg)]
|
||
|
|
pack $fTreeStruct -side top -fill both -expand yes
|
||
|
|
set treeStruct [Tree $fTreeStruct.treeStruct \
|
||
|
|
-relief sunken -borderwidth 1 -width 1 -height 1 -highlightthickness 1\
|
||
|
|
-redraw 0 -dropenabled 0 -dragenabled 0 -dragevent 3 \
|
||
|
|
-background $color(editBg) -selectbackground $color(selectbg) \
|
||
|
|
-showlines 1 -droptypes {
|
||
|
|
TREE_NODE {copy {} move {} link {}}
|
||
|
|
LISTBOX_ITEM {copy {} move {} link {}}
|
||
|
|
}]
|
||
|
|
$fTreeStruct setwidget $treeStruct
|
||
|
|
#pack $treeStruct -side left -fill both -expand yes
|
||
|
|
###############################################
|
||
|
|
set f [$nbTree insert end lblList -text [::msgcat::mc "Labels"] -background $color(bg)]
|
||
|
|
set fList [ScrolledWindow $f.f -background $color(bg)]
|
||
|
|
set lblList [ListBox $fList.list -font $font(normal) -relief sunken -borderwidth 1 -width 1 -height 1 -highlightthickness 1 -background $color(editBg) -selectbackground $color(selectbg)]
|
||
|
|
#pack $lblList -side left -fill both -expand yes
|
||
|
|
$fList setwidget $lblList
|
||
|
|
pack $fList -side top -fill both -expand yes
|
||
|
|
###############################################
|
||
|
|
set nb [NoteBook .frmBody.frmEditor.noteBook -font $font(normal) -side $gui(tabsLabel) -background $color(bg)]
|
||
|
|
pack $nb -fill both -expand true -padx 2 -pady 2
|
||
|
|
###############################################
|
||
|
|
|
||
|
|
set m .popupTabs
|
||
|
|
menu $m -font $font(normal)
|
||
|
|
$m add command -label [::msgcat::mc "Close"] -command {FileDialog close}\
|
||
|
|
-font $font(normal) -accelerator "Ctrl+W"
|
||
|
|
$m add command -label [::msgcat::mc "Close all"] -command {FileDialog close_all}\
|
||
|
|
-font $font(normal)
|
||
|
|
|
||
|
|
## KEYS BINDINGS ##
|
||
|
|
|
||
|
|
$tree bindText <Button-1> "TreeOneClick [$tree selection get]"
|
||
|
|
$tree bindImage <Button-1> "TreeOneClick [$tree selection get]"
|
||
|
|
$tree bindText <Shift-Button-1> {$tree selection add [$tree selection get]}
|
||
|
|
$tree bindImage <Shift-Button-1> {$tree selection add [$tree selection get]}
|
||
|
|
$treeStruct bindText <Button-1> "TreeStructOneClick [$treeStruct selection get]"
|
||
|
|
$treeStruct bindImage <Button-1> "TreeStructOneClick [$treeStruct selection get]"
|
||
|
|
|
||
|
|
$nb bindtabs <ButtonRelease> "ClickTab"
|
||
|
|
$nb bindtabs <Button-3> {catch [PopupMenuTab .popupTabs %X %Y]}
|
||
|
|
|
||
|
|
## MOUSE WHEEL BINDING ##
|
||
|
|
bind $fTree.tree.c <Button-4> "$tree yview scroll -3 units"
|
||
|
|
bind $fTree.tree.c <Button-5> "$tree yview scroll 3 units"
|
||
|
|
bind $fTree.tree.c <Shift-Button-4> "$tree xview scroll -2 units"
|
||
|
|
bind $fTree.tree.c <Shift-Button-5> "$tree xview scroll 2 units"
|
||
|
|
bind $fTree.tree.c <Button-3> {catch [tk_popup .frmMenu.mnuFile.m %X %Y]}
|
||
|
|
|
||
|
|
bind $fTreeStruct.treeStruct.c <Button-4> "$treeStruct yview scroll -3 units"
|
||
|
|
bind $fTreeStruct.treeStruct.c <Button-5> "$treeStruct yview scroll 3 units"
|
||
|
|
bind $fTreeStruct.treeStruct.c <Shift-Button-4> "$treeStruct xview scroll -2 units"
|
||
|
|
bind $fTreeStruct.treeStruct.c <Shift-Button-5> "$treeStruct xview scroll 2 units"
|
||
|
|
|
||
|
|
$lblList bindImage <ButtonRelease-1> "FindLabel [$lblList selection get]"
|
||
|
|
$lblList bindText <ButtonRelease-1> "FindLabel [$lblList selection get]"
|
||
|
|
|
||
|
|
bind $lblList.c <Button-4> "$lblList yview scroll -3 units"
|
||
|
|
bind $lblList.c <Button-5> "$lblList yview scroll 3 units"
|
||
|
|
bind $lblList.c <Shift-Button-4> "$lblList xview scroll -2 units"
|
||
|
|
bind $lblList.c <Shift-Button-5> "$lblList xview scroll 2 units"
|
||
|
|
|
||
|
|
bind . <Control-q> Quit
|
||
|
|
bind . <Control-Q> Quit
|
||
|
|
bind . <F1> ShowHelp
|
||
|
|
bind . <F5> {ConvertDialog dvi}
|
||
|
|
bind . <F6> {ConvertDialog ps}
|
||
|
|
bind . <F7> {ConvertDialog pdf}
|
||
|
|
|
||
|
|
bind . <Control-Next> {PageTab 1}
|
||
|
|
bind . <Control-Prior> {PageTab -1}
|
||
|
|
|
||
|
|
###############################################
|
||
|
|
## CREATE TOOLBARs ##
|
||
|
|
###############################################
|
||
|
|
set btnNum 0
|
||
|
|
proc CreateToolButton {frame command image hint keys} {
|
||
|
|
global dir btnNum color relief
|
||
|
|
if {$frame == "main"} {
|
||
|
|
set frm frmTool
|
||
|
|
} else {
|
||
|
|
set frm frmToolEdit
|
||
|
|
}
|
||
|
|
set comm [string trim $command "\""]
|
||
|
|
set btn [Button .$frm.$frame.btn_$btnNum -relief $relief(btn) -bd 1\
|
||
|
|
-command $comm -background $color(bg)]
|
||
|
|
image create photo img_$btnNum -format gif -file [file join $dir(img) $image]
|
||
|
|
$btn configure -image img_$btnNum
|
||
|
|
if {$keys != ""} {
|
||
|
|
set keys [string trim $keys "\""]
|
||
|
|
#puts "$keys - $comm"
|
||
|
|
bind . <$keys> "$comm"
|
||
|
|
}
|
||
|
|
|
||
|
|
pack $btn -side left
|
||
|
|
balloon $btn set [::msgcat::mc [string trim $hint "\""]]
|
||
|
|
incr btnNum
|
||
|
|
}
|
||
|
|
proc ReadToolBarFile {_dir} {
|
||
|
|
global dir font color file frm frame tool
|
||
|
|
foreach file [lsort [glob -nocomplain [file join $_dir toolbar *]]] {
|
||
|
|
puts "Found toolbar file - \'$file\'"
|
||
|
|
set frame [file tail $file]
|
||
|
|
if {$frame == "main"} {
|
||
|
|
set frm frmTool
|
||
|
|
} else {
|
||
|
|
set frm frmToolEdit
|
||
|
|
}
|
||
|
|
AddCheckBox .frmMenu.mnuView.m.tool $frame $file $frm
|
||
|
|
if {$tool($frame) == 1} {
|
||
|
|
ReadToolBar $file
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
proc AddCheckBox {m frame file frm} {
|
||
|
|
global font color tool
|
||
|
|
$m add checkbutton -label [::msgcat::mc "$frame"] -font $font(normal) -state normal\
|
||
|
|
-offvalue 0 -onvalue 1 -variable tool($frame) -selectcolor $color(selectbg)\
|
||
|
|
-command "ToolBar $frm $frame $file"\
|
||
|
|
-background $color(bg)
|
||
|
|
}
|
||
|
|
|
||
|
|
proc ReadToolBar {file} {
|
||
|
|
global dir font color
|
||
|
|
set frame [file tail $file]
|
||
|
|
puts "Create toolbar \'$frame\' from file \'$file\'"
|
||
|
|
|
||
|
|
if {$frame == "main"} {
|
||
|
|
set frm frmTool
|
||
|
|
} else {
|
||
|
|
set frm frmToolEdit
|
||
|
|
}
|
||
|
|
pack [frame .$frm.$frame -background $color(bg)] -side left -fill x
|
||
|
|
set fHandle [open $file]
|
||
|
|
while {[gets $fHandle line]>=0} {
|
||
|
|
set line [string trim $line]
|
||
|
|
set kw [string range $line 0 [expr [string first " " $line]-1]]
|
||
|
|
set l [string range $line [expr [string first " " $line] +1] end]
|
||
|
|
if {$kw == "button"} {
|
||
|
|
if [regexp -- {(\".*?\") (.*?) (\".*?\") (\".*?\")} $l m cmd img hint keys] {
|
||
|
|
#puts "$frame $cmd $img $hint"
|
||
|
|
CreateToolButton $frame $cmd $img $hint $keys
|
||
|
|
} elseif [regexp -- {(\".*?\") (.*?) (\".*?\")} $l m cmd img hint] {
|
||
|
|
CreateToolButton $frame $cmd $img $hint ""
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if {$l == "Separator"} {
|
||
|
|
CreateSeparator $frame
|
||
|
|
}
|
||
|
|
if {$kw == "menu"} {
|
||
|
|
if [regexp -- {(.*?) (\".*?\")} $l m img hint] {
|
||
|
|
set menu [CreateToolMenu $frame $img $hint]
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if {$kw == "cmd"} {
|
||
|
|
|
||
|
|
if [regexp -- {(\".*?\") (\".*?\") (\".*?\")} $l m cmd hint keys] {
|
||
|
|
InsertCommand $menu $cmd $hint "" $keys
|
||
|
|
} elseif [regexp -- {(\".*?\") (\".*?\")} $l m cmd hint] {
|
||
|
|
InsertCommand $menu $cmd $hint "" ""
|
||
|
|
}
|
||
|
|
|
||
|
|
if [regexp -- {separator} $l m] {
|
||
|
|
InsertSeparator $menu
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if {$kw == "imagecmd"} {
|
||
|
|
if [regexp -- {(\".*?\") (\".*?\") (.*?)\.gif} $l m cmd hint im] {
|
||
|
|
InsertCommand $menu $cmd $hint $im ""
|
||
|
|
}
|
||
|
|
if [regexp -- {(\".*?\") (\".*?\") (.*?)\.gif (\".*?\")} $l m cmd hint im keys] {
|
||
|
|
InsertCommand $menu $cmd $hint $im $keys
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
close $fHandle
|
||
|
|
}
|
||
|
|
|
||
|
|
set mnuNum 0
|
||
|
|
proc CreateToolMenu {frame image hint} {
|
||
|
|
global dir font mnuNum color relief
|
||
|
|
if {$frame == "main"} {
|
||
|
|
set frm frmTool
|
||
|
|
} else {
|
||
|
|
set frm frmToolEdit
|
||
|
|
}
|
||
|
|
image create photo img_mnu$mnuNum -format gif -file [file join $dir(img) $image]
|
||
|
|
menubutton .$frm.$frame.m$mnuNum -image img_mnu$mnuNum -border 0\
|
||
|
|
-menu .$frm.$frame.m$mnuNum.m -background $color(bg) -relief $relief(menu)
|
||
|
|
|
||
|
|
set menu [menu .$frm.$frame.m$mnuNum.m -background $color(bg)]
|
||
|
|
pack .$frm.$frame.m$mnuNum -side left
|
||
|
|
balloon .$frm.$frame.m$mnuNum set [::msgcat::mc [string trim $hint "\""]]
|
||
|
|
incr mnuNum
|
||
|
|
return $menu
|
||
|
|
}
|
||
|
|
set cmdNum 0
|
||
|
|
proc InsertCommand {m cmd hint image keys} {
|
||
|
|
global font dir cmdNum color
|
||
|
|
set comm [string trim $cmd "\""]
|
||
|
|
set hint [string trim $hint "\""]
|
||
|
|
#puts "Create cmd - $m - $cmd $hint $image"
|
||
|
|
|
||
|
|
if {$keys != ""} {
|
||
|
|
set keys [string trim $keys "\""]
|
||
|
|
#puts "$keys - $comm"
|
||
|
|
bind . <$keys> "$comm"
|
||
|
|
if {$image != ""} {
|
||
|
|
set image [string trim $image]
|
||
|
|
image create photo img_$cmdNum -format gif -file [file join $dir(img) $image.gif]
|
||
|
|
$m add command -label [::msgcat::mc $hint] -font $font(normal) -state normal\
|
||
|
|
-command $comm -image img_$cmdNum -background $color(bg) -accelerator "$keys"
|
||
|
|
} else {
|
||
|
|
$m add command -label [::msgcat::mc $hint] -font $font(normal) -state normal\
|
||
|
|
-command $comm -background $color(bg) -accelerator "$keys"
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
if {$image != ""} {
|
||
|
|
set image [string trim $image]
|
||
|
|
image create photo img_$cmdNum -format gif -file [file join $dir(img) $image.gif]
|
||
|
|
$m add command -label [::msgcat::mc $hint] -font $font(normal) -state normal\
|
||
|
|
-command $comm -image img_$cmdNum -background $color(bg)
|
||
|
|
} else {
|
||
|
|
$m add command -label [::msgcat::mc $hint] -font $font(normal) -state normal\
|
||
|
|
-command $comm -background $color(bg)
|
||
|
|
}
|
||
|
|
}
|
||
|
|
incr cmdNum
|
||
|
|
}
|
||
|
|
proc InsertSeparator {m} {
|
||
|
|
$m add separator
|
||
|
|
}
|
||
|
|
|
||
|
|
proc CreateSeparator {frame} {
|
||
|
|
global dir btnNum color relief
|
||
|
|
if {$frame == "main"} {
|
||
|
|
set frm frmTool
|
||
|
|
} else {
|
||
|
|
set frm frmToolEdit
|
||
|
|
}
|
||
|
|
set btn [frame .$frm.$frame.btn_$btnNum -width 10 -background $color(bg) -borderwidth 0]
|
||
|
|
#set btn [Button .$frm.$frame.btn_$btnNum -relief $relief(btn) -bd 2 -background $color(bg) -width 0 -state disable]
|
||
|
|
pack $btn -side left -fill y -expand 1
|
||
|
|
incr btnNum
|
||
|
|
}
|
||
|
|
|
||
|
|
proc ToolBar {frm frame file} {
|
||
|
|
global tool
|
||
|
|
if {$tool($frame) == 0} {
|
||
|
|
#set tool($frame) 0
|
||
|
|
if {$frame == "main"} {
|
||
|
|
destroy .$frm.$frame
|
||
|
|
.frmTool configure -height 1
|
||
|
|
} else {
|
||
|
|
destroy .$frm.$frame
|
||
|
|
.frmToolEdit configure -height 1
|
||
|
|
}
|
||
|
|
return
|
||
|
|
} elseif {$tool($frame) == 1} {
|
||
|
|
#set tool($frame) 1
|
||
|
|
ReadToolBar $file
|
||
|
|
return
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
###############################################
|
||
|
|
proc CutPast {action} {
|
||
|
|
global nb
|
||
|
|
set node [$nb raise]
|
||
|
|
if {$node == "newproj" || $node == "settings" || $node == "about" || $node == ""} {
|
||
|
|
return
|
||
|
|
}
|
||
|
|
|
||
|
|
set text $nb.f$node.f.text
|
||
|
|
switch -- $action {
|
||
|
|
"copy" {
|
||
|
|
tk_textCopy $text
|
||
|
|
}
|
||
|
|
"cut" {
|
||
|
|
tk_textCut $text
|
||
|
|
}
|
||
|
|
"paste" {
|
||
|
|
tk_textPaste $text
|
||
|
|
}
|
||
|
|
"undo" {
|
||
|
|
$text undo
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
proc Select {type} {
|
||
|
|
global nb activeFile
|
||
|
|
set text $nb.f$activeFile.f.text
|
||
|
|
if {$type == "all"} {
|
||
|
|
$text tag remove sel 1.0 end
|
||
|
|
$text tag add sel 1.0 end
|
||
|
|
} elseif {$type == "remove"} {
|
||
|
|
$text tag remove sel 1.0 end
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
proc PopupMenu {text x y} {
|
||
|
|
set selIndex [$text tag ranges sel]
|
||
|
|
if {$selIndex != ""} {
|
||
|
|
tk_popup .frmMenu.mnuEdit.m.selection $x $y
|
||
|
|
} else {
|
||
|
|
tk_popup .frmMenu.mnuEdit.m $x $y
|
||
|
|
}
|
||
|
|
}
|
||
|
|
proc PopupMenuTab {menu x y} {
|
||
|
|
tk_popup $menu $x $y
|
||
|
|
}
|
||
|
|
|
||
|
|
###########
|
||
|
|
## STATUS BAR ##
|
||
|
|
set frm1 [frame .frmStatus.frmFileAttr -background $color(bg)]
|
||
|
|
set frm2 [frame .frmStatus.frmActive -background $color(bg)]
|
||
|
|
set frm3 [frame .frmStatus.frmFileSize -relief sunken -background $color(bg)]
|
||
|
|
set frm4 [frame .frmStatus.frmPos -background $color(bg)]
|
||
|
|
set frm5 [frame .frmStatus.frmFile -background $color(bg)]
|
||
|
|
set frm6 [frame .frmStatus.frmOvwrt -background $color(bg)]
|
||
|
|
set frm7 [frame .frmStatus.frmOther -background $color(bg)]
|
||
|
|
pack $frm1 $frm4 $frm6 $frm2 $frm5 $frm3 -side left -fill x
|
||
|
|
pack $frm7 -side left -fill x -expand true
|
||
|
|
set status(fileAttr) [label $frm1.lblFileAttr -width 30 -relief sunken -font $font(normal) -anchor w -background $color(bg)]
|
||
|
|
pack $frm1.lblFileAttr -fill x
|
||
|
|
set status(pos) [label $frm4.lblPos -width 10 -relief sunken -font $font(bold) -anchor w -background $color(bg)]
|
||
|
|
pack $frm4.lblPos -fill x
|
||
|
|
set status(ovwrt) [label $frm6.lblOvwrt -width 10 -relief sunken -font $font(normal) -anchor center -background $color(bg)]
|
||
|
|
pack $frm6.lblOvwrt -fill x
|
||
|
|
set status(active) [label $frm2.lblActive -width 25 -relief sunken -font $font(normal) -anchor center -background $color(bg) ]
|
||
|
|
pack $frm2.lblActive -fill x
|
||
|
|
set status(fileSize) [label $frm3.lblFileSize -width 10 -relief sunken -font $font(normal) -anchor w -background $color(bg)]
|
||
|
|
pack $frm3.lblFileSize -fill x
|
||
|
|
set status(encode) [label $frm5.lblFile -width 10 -relief sunken -font $font(normal) -anchor w -background $color(bg)]
|
||
|
|
pack $frm5.lblFile -fill x
|
||
|
|
set status(other) [label $frm7.lblOther -width 10 -relief sunken -font $font(normal) -anchor w -background $color(bg)]
|
||
|
|
pack $frm7.lblOther -fill x
|
||
|
|
|
||
|
|
#######
|
||
|
|
bind . <Control-n> {FileDialog new}
|
||
|
|
bind . <Control-ograve> {FileDialog new}
|
||
|
|
bind . <Control-o> {FileDialog open}
|
||
|
|
bind . <Control-ugrave> {FileDialog open}
|
||
|
|
|
||
|
|
$nbTree raise fileTree
|
||
|
|
############
|
||
|
|
$status(ovwrt) configure -text [::msgcat::mc "Insert"]
|
||
|
|
|
||
|
|
ReadToolBarFile $dir(gui) ;# system toolbars
|
||
|
|
ReadToolBarFile $dir(work_gui) ;# user toolbars
|
||
|
|
ReadHotKeysFile $dir(gui) ;# system hotkeys
|
||
|
|
ReadHotKeysFile $dir(work_gui) ;# users hotkeys
|
||
|
|
|
||
|
|
## FINDE EXTERNAL MODULES ##
|
||
|
|
FindModule
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|