151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
|
proc printPlugins {} {
set plugins [listPlugins]
if {[llength $plugins] == 0} {
puts "No plugins found."
return
}
puts "Available plugins:"
foreach {plugin info} $plugins {
set descr [dict get $info descr]
puts "Plugin \"$plugin\" : $descr"
}
}
proc preparePlugin {top} {
disallowEdit $top
set allow [dict get $::eskil($top,pluginpinfo) allow]
# Pass ::argv to plugin
|
>
>
>
>
>
>
>
|
|
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
|
proc printPlugins {} {
set plugins [listPlugins]
if {[llength $plugins] == 0} {
puts "No plugins found."
return
}
set w 0
foreach {plugin info} $plugins {
if {[string length $plugin] > $w} {
set w [string length $plugin]
}
}
incr w 2
puts "Available plugins:"
foreach {plugin info} $plugins {
set descr [dict get $info descr]
puts "Plugin [format %-*s $w \"$plugin\"] : $descr"
}
}
proc preparePlugin {top} {
disallowEdit $top
set allow [dict get $::eskil($top,pluginpinfo) allow]
# Pass ::argv to plugin
|