# Copyright (C) 2000 - Martin Strauss - under terms of GPL ################################################################################## # version info proc InitVersion {} { global T Tcltexed_Version if ![winfo exists .wversion] then { toplevel .wversion wm title .wversion $T(wversion-titel) label .wversion.version -text $T(wversion-text) pack .wversion.version } } ################################################################################## # latex - command - listing proc InitListen {} { global I_befehl I_back T wlatex_max if ![winfo exists .wlatex] then { toplevel .wlatex wm title .wlatex $T(wlatex-titel) frame .wlatex.e scrollbar .wlatex.e.scroll -command {.wlatex.e.list yview} pack .wlatex.e.scroll -side right -fill y listbox .wlatex.e.list -yscroll ".wlatex.e.scroll set" -relief sunken -width 20 -height $wlatex_max -setgrid yes pack .wlatex.e.list -fill both -expand yes set LISTE [lsort [array names I_befehl]] foreach i $LISTE {.wlatex.e.list insert end $i} button .wlatex.butQ -text $T(quit) -command {destroy .wlatex} pack .wlatex.e .wlatex.butQ -fill x wm minsize . 1 1 bind .wlatex <> { if {[.wlatex.e.list curselection] != ""} then { Help [selection get] } else { Help $T(wlatex-Help) } } bind .wlatex { set ksp [.wlatex.e.list curselection] if {$ksp != ""} then { Help [selection get] focus .wlatex if {$ksp < [.wlatex.e.list size]} then {incr ksp} .wlatex.e.list selection clear 0 end .wlatex.e.list selection set $ksp $ksp .wlatex.e.list see $ksp } } bind .wlatex { if {[.wlatex.e.list curselection] != ""} then { Help [selection get] focus .wlatex } } bind .wlatex { if {[.wlatex.e.list curselection] != ""} then { if $FocusEditorFlag then { focus $FocusEditor.te.edit1 switch_Undo $FocusEditor.te.edit1 UndoBegin $FocusEditor.te.edit1 insert insert $I_befehl([selection get]) switch_Undo $FocusEditor.te.edit1 UndoEnd switch_undo $FocusEditor.te.edit1 insert $FocusEditor.te.edit1 mark set insert "insert - $I_back([selection get]) chars" event generate $FocusEditor.te.edit1 <> } } } bind .wlatex { set ksp [.wlatex.e.list curselection] if {$ksp != ""} then { if {$ksp > $wlatex_max} then {set ksp [expr $ksp - $wlatex_max]} .wlatex.e.list selection clear 0 end .wlatex.e.list selection set $ksp $ksp .wlatex.e.list see $ksp } } bind .wlatex { set ksp [.wlatex.e.list curselection] if {$ksp != ""} then { if {$ksp < [expr $wlatex_max + [.wlatex.e.list size]]} then {set ksp [expr $ksp + $wlatex_max]} .wlatex.e.list selection clear 0 end .wlatex.e.list selection set $ksp $ksp .wlatex.e.list see $ksp } } bind .wlatex { set ksp [.wlatex.e.list curselection] if {$ksp != ""} then { if {$ksp > 0} then {set ksp [expr $ksp - 1]} .wlatex.e.list selection clear 0 end .wlatex.e.list selection set $ksp $ksp .wlatex.e.list see $ksp } } bind .wlatex { set ksp [.wlatex.e.list curselection] if {$ksp != ""} then { if {$ksp < [.wlatex.e.list size]} then {incr ksp} .wlatex.e.list selection clear 0 end .wlatex.e.list selection set $ksp $ksp .wlatex.e.list see $ksp } } bind .wlatex { set ksp [lsearch -exact $ABC %A] if {$ksp != -1} { set ksp [lindex $wlatex_LISTE $ksp] .wlatex.e.list selection clear 0 end .wlatex.e.list selection set $ksp $ksp .wlatex.e.list see $ksp } } bind .wlatex { destroy .wlatex } COLOR .wlatex } else {focus .wlatex} } ################################################################################## # Tcltexed - manual - listing proc InitTcltexed {} { global Tcltexed_help T wTcltexed_max if ![winfo exists .wTcltexed] then { toplevel .wTcltexed wm title .wTcltexed $T(wTcltexed-titel) frame .wTcltexed.e scrollbar .wTcltexed.e.scroll -command {.wTcltexed.e.list yview} pack .wTcltexed.e.scroll -side right -fill y listbox .wTcltexed.e.list -yscroll ".wTcltexed.e.scroll set" -relief sunken -width 20 -height $wTcltexed_max -setgrid yes pack .wTcltexed.e.list -fill both -expand yes foreach {i f} $T(wTcltexed-manual) { .wTcltexed.e.list insert end $i set Tcltexed_help($i) $f } button .wTcltexed.butQ -text $T(quit) -command {destroy .wTcltexed} pack .wTcltexed.e .wTcltexed.butQ -fill x wm minsize . 1 1 bind .wTcltexed <> { if {[.wTcltexed.e.list curselection] != ""} then { Help $Tcltexed_help([selection get]) } else { Help $T(wTcltexed-Help) } } bind .wTcltexed { set ksp [.wTcltexed.e.list curselection] if {$ksp != ""} then { Help $Tcltexed_help([selection get]) focus .wTcltexed if {$ksp < [.wTcltexed.e.list size]} then {incr ksp} .wTcltexed.e.list selection clear 0 end .wTcltexed.e.list selection set $ksp $ksp .wTcltexed.e.list see $ksp } } bind .wTcltexed { if {[.wTcltexed.e.list curselection] != ""} then { Help $Tcltexed_help([selection get]) focus .wTcltexed } } bind .wTcltexed { if {[.wTcltexed.e.list curselection] != ""} then { Help $Tcltexed_help([selection get]) focus .wTcltexed } } bind .wTcltexed { set ksp [.wTcltexed.e.list curselection] if {$ksp != ""} then { if {$ksp > $wTcltexed_max} then {set ksp [expr $ksp - $wTcltexed_max]} .wTcltexed.e.list selection clear 0 end .wTcltexed.e.list selection set $ksp $ksp .wTcltexed.e.list see $ksp } } bind .wTcltexed { set ksp [.wTcltexed.e.list curselection] if {$ksp != ""} then { if {$ksp < [expr $wTcltexed_max + [.wTcltexed.e.list size]]} then {set ksp [expr $ksp + $wTcltexed_max]} .wTcltexed.e.list selection clear 0 end .wTcltexed.e.list selection set $ksp $ksp .wTcltexed.e.list see $ksp } } bind .wTcltexed { set ksp [.wTcltexed.e.list curselection] if {$ksp != ""} then { if {$ksp > 0} then {set ksp [expr $ksp - 1]} .wTcltexed.e.list selection clear 0 end .wTcltexed.e.list selection set $ksp $ksp .wTcltexed.e.list see $ksp } } bind .wTcltexed { set ksp [.wTcltexed.e.list curselection] if {$ksp != ""} then { if {$ksp < [.wTcltexed.e.list size]} then {incr ksp} .wTcltexed.e.list selection clear 0 end .wTcltexed.e.list selection set $ksp $ksp .wTcltexed.e.list see $ksp } } bind .wTcltexed { destroy .wTcltexed } COLOR .wTcltexed } else {focus .wTcltexed} }