52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
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 {} {
global thisScript
|
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
|
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 $thisScript]
set myexe [list $exe $::eskil(thisScript)]
}
set valbase {}
foreach item $myexe {
lappend valbase \"[file nativename $item]\"
}
set valbase [join $valbase]
|