Diff

Differences From Artifact [3a64763ae0]:

To Artifact [d57ac5659d]:


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