305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
|
</td>
</tr>
<tr>
<td>Tcl Version:</td>
<td>
<select name="tcl_version" onChange="verifyOptions();">
<?
foreach tcl_version [lsort -dictionary [array names tcl_versions]] {
set tcl_version_name $tcl_versions($tcl_version)
puts " <option value=\"${tcl_version}\">${tcl_version_name}</option>"
}
?>
</select>
</td>
</tr>
<tr>
<td>Platform:</td>
|
|
>
>
>
>
>
>
>
>
>
|
|
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
|
</td>
</tr>
<tr>
<td>Tcl Version:</td>
<td>
<select name="tcl_version" onChange="verifyOptions();">
<?
set tcl_version_list [lsort -dictionary [array names tcl_versions]]
set tcl_version_selected [lindex $tcl_version_list end-1]
foreach tcl_version $tcl_version_list {
set tcl_version_name $tcl_versions($tcl_version)
if {$tcl_version == $tcl_version_selected} {
set selected " selected"
} else {
set selected ""
}
puts " <option value=\"${tcl_version}\"${selected}>${tcl_version_name}</option>"
}
?>
</select>
</td>
</tr>
<tr>
<td>Platform:</td>
|