52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
grid $l.new1 $l.new2 - -sticky "w" -padx 4 -pady 4
grid $l.delete - $l.change -sticky "w" -padx 4 -pady 4
grid $l.change -sticky "e"
grid columnconfigure $l 2 -weight 1
}
proc makeRegistryWin {} {
global thisScript
|
<
<
|
52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
grid $l.new1 $l.new2 - -sticky "w" -padx 4 -pady 4
grid $l.delete - $l.change -sticky "w" -padx 4 -pady 4
grid $l.change -sticky "e"
grid columnconfigure $l 2 -weight 1
}
proc makeRegistryWin {} {
# Locate executable for this program
set exe [info nameofexecutable]
if {[regexp {^(.*wish)\d+\.exe$} $exe -> pre]} {
set alt $pre.exe
if {[file exists $alt]} {
set a [tk_messageBox -icon question -title "Which Wish" -message \
"Would you prefer to use the executable\n\
|
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
|
} else {
if {[regexp {wish\d+\.exe} $exe]} {
set exe [file join [file dirname $exe] wish.exe]
if {[file exists $exe]} {
set myexe [list $exe]
}
}
set myexe [list $exe $thisScript]
}
set valbase {}
foreach item $myexe {
lappend valbase \"[file nativename $item]\"
}
set valbase [join $valbase]
|
|
|
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
|
} else {
if {[regexp {wish\d+\.exe} $exe]} {
set exe [file join [file dirname $exe] wish.exe]
if {[file exists $exe]} {
set myexe [list $exe]
}
}
set myexe [list $exe $::eskil(thisScript)]
}
set valbase {}
foreach item $myexe {
lappend valbase \"[file nativename $item]\"
}
set valbase [join $valbase]
|