| ︙ | | | ︙ | |
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
#----------------------------------------------------------------------
# $Revision$
#----------------------------------------------------------------------
# Silly experiment...
proc makeNuisance {top {str {Hi there!}}} {
if {[lsearch [image names] nuisance] < 0} {
set file [file join $::thisDir .. Nuisance.gif]
if {![file exists $file]} return
image create photo nuisance -file $file
}
destroy $top.nui
toplevel $top.nui
wm transient $top.nui $top
|
|
|
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
#----------------------------------------------------------------------
# $Revision$
#----------------------------------------------------------------------
# Silly experiment...
proc makeNuisance {top {str {Hi there!}}} {
if {[lsearch [image names] nuisance] < 0} {
set file [file join $::eskil(thisDir) .. Nuisance.gif]
if {![file exists $file]} return
image create photo nuisance -file $file
}
destroy $top.nui
toplevel $top.nui
wm transient $top.nui $top
|
| ︙ | | | ︙ | |
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
|
pack $w.b -side bottom -pady 2
pack $w.f -side top -expand y -fill both -padx 2 -pady 2
focus $w
return $w.f
}
proc makeAboutWin {} {
global diffver
$w.t insert end "$diffver\n\n"
$w.t insert end "Made by Peter Spjuth\n"
$w.t insert end "E-Mail: peter.spjuth@gmail.com\n"
$w.t insert end "\nURL: http://eskil.berlios.de\n"
$w.t insert end "\nTcl version: [info patchlevel]\n"
set du [package provide DiffUtil]
if {[info procs DiffUtil::LocateDiffExe] ne ""} {
|
<
<
|
|
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
|
pack $w.b -side bottom -pady 2
pack $w.f -side top -expand y -fill both -padx 2 -pady 2
focus $w
return $w.f
}
proc makeAboutWin {} {
set w [helpWin .ab "About Eskil"]
set bg [ttk::style configure . -background]
text $w.t -width 45 -height 11 -wrap none -relief flat \
-background $bg
pack $w.t -side top -expand y -fill both
$w.t insert end "A graphical frontend to diff\n\n"
$w.t insert end "$::eskil(diffver)\n\n"
$w.t insert end "Made by Peter Spjuth\n"
$w.t insert end "E-Mail: peter.spjuth@gmail.com\n"
$w.t insert end "\nURL: http://eskil.berlios.de\n"
$w.t insert end "\nTcl version: [info patchlevel]\n"
set du [package provide DiffUtil]
if {[info procs DiffUtil::LocateDiffExe] ne ""} {
|
| ︙ | | | ︙ | |
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
|
}
}
}
proc makeHelpWin {} {
global Pref
set doc [file join $::thisDir .. doc/eskil.txt]
if {![file exists $doc]} return
set w [helpWin .he "Eskil Help"]
set t [Scroll y text $w.t -width 85 -height 35]
pack $w.t -side top -expand 1 -fill both
configureDocWin $t
|
|
|
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
|
}
}
}
proc makeHelpWin {} {
global Pref
set doc [file join $::eskil(thisDir) .. doc/eskil.txt]
if {![file exists $doc]} return
set w [helpWin .he "Eskil Help"]
set t [Scroll y text $w.t -width 85 -height 35]
pack $w.t -side top -expand 1 -fill both
configureDocWin $t
|
| ︙ | | | ︙ | |
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
|
proc makeDocWin {fileName} {
set w [helpWin .doc "Eskil Help"]
set t [Scroll y text $w.t -width 80 -height 25]
pack $w.t -side top -expand 1 -fill both
configureDocWin $t
if {![file exists $::thisDir/../doc/$fileName]} {
$t insert end "ERROR: Could not find doc file "
$t insert end \"$fileName\"
return
}
insertTaggedText $t $::thisDir/../doc/$fileName
#focus $t
$t configure -state disabled
}
proc makeTutorialWin {} {
global Pref
set doc [file join $::thisDir .. doc/tutorial.txt]
if {![file exists $doc]} return
if {[catch {cd [file join $::thisDir .. examples]}]} {
tk_messageBox -icon error -title "Eskil Error" -message \
"Could not locate examples directory." \
-type ok
return
}
#set ::diff(tutorial) 1
|
|
|
|
|
|
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
|
proc makeDocWin {fileName} {
set w [helpWin .doc "Eskil Help"]
set t [Scroll y text $w.t -width 80 -height 25]
pack $w.t -side top -expand 1 -fill both
configureDocWin $t
if {![file exists $::eskil(thisDir)/../doc/$fileName]} {
$t insert end "ERROR: Could not find doc file "
$t insert end \"$fileName\"
return
}
insertTaggedText $t $::eskil(thisDir)/../doc/$fileName
#focus $t
$t configure -state disabled
}
proc makeTutorialWin {} {
global Pref
set doc [file join $::eskil(thisDir) .. doc/tutorial.txt]
if {![file exists $doc]} return
if {[catch {cd [file join $::eskil(thisDir) .. examples]}]} {
tk_messageBox -icon error -title "Eskil Error" -message \
"Could not locate examples directory." \
-type ok
return
}
#set ::diff(tutorial) 1
|
| ︙ | | | ︙ | |