Diff

Differences From Artifact [21111d4e4b]:

To Artifact [aaeb907791]:


     1      1   <?
     2      2   	set sourcedir "/web/rkeene/devel/kitcreator/all"
     3      3   	foreach file [glob -tails -nocomplain -directory $sourcedir "kitcreator-*.tar.gz"] {
     4      4   		regexp {^kitcreator-(.*).tar.gz$} $file -> vers
     5      5   		set kitcreator_versions($vers) $vers
     6      6   	}
            7  +	set kitcreator_version_selected [lindex [lsort -dictionary [array names kitcreator_versions]] end]
            8  +
     7      9   	set kitcreator_versions(trunk) "Fossil Trunk Tip"
     8     10   
     9     11   	set tcl_versions(8.4.19) 8.4.19
    10     12   	set tcl_versions(8.5.9) 8.5.9
    11     13   	set tcl_versions(cvs_HEAD) "Fossil Trunk Tip"
    12     14   
    13     15   	set platforms(linux-x86) "Linux on x86"
    14     16   	set platforms(linux-amd64) "Linux on amd64"
    15     17   	set platforms(linux-mipsel) "Linux on MIPSEL"
    16     18   	set platforms(windows-x86) "Windows on x86"
    17     19   
           20  +	set disable {
           21  +		platform linux-amd64 tk
           22  +		platform linux-mipsel tk
           23  +	}
           24  +
           25  +	set specific {
           26  +		platform windows-x86 file icon {Kit Icon}
           27  +		platform windows-x86 text description {Description}
           28  +	}
    18     29   ?><html>
    19     30     <head>
    20     31       <title>KitCreator, Web Interface</title>
           32  +    <script>
           33  +<!--
           34  +	function verifyOptions() {
           35  +		var kitcreator_version;
           36  +		var tcl_version;
           37  +		var platform;
           38  +
           39  +		kitcreator_version = document.getElementsByName('kitcreator_version')[0].value;
           40  +		tcl_version = document.getElementsByName('tcl_version')[0].value;
           41  +		platform = document.getElementsByName('platform')[0].value;
           42  +
           43  +	}
           44  +-->
           45  +    </script>
    21     46     </head>
    22     47     <body>
    23     48       <h1>KitCreator Web Interface</h1>
    24     49       <form method="post" enctype="multipart/form-data">
    25     50         <table>
    26     51           <tr>
    27     52             <td>KitCreator Version:</td>
    28     53             <td>
    29         -            <select name="kitcreator_version">
           54  +            <select name="kitcreator_version" onChange="verifyOptions();">
    30     55   <?
    31     56   	foreach kitcreator_version [lsort -dictionary [array names kitcreator_versions]] {
    32     57   		set kitcreator_version_name $kitcreator_versions($kitcreator_version)
    33         -		puts "              <option value=\"${kitcreator_version}\">${kitcreator_version_name}</option>"
           58  +
           59  +		if {$kitcreator_version == $kitcreator_version_selected} {
           60  +			set selected " selected"
           61  +		} else {
           62  +			set selected ""
           63  +		}
           64  +
           65  +		puts "              <option value=\"${kitcreator_version}\"${selected}>${kitcreator_version_name}</option>"
    34     66   	}
    35     67   ?>
    36     68               </select>
    37     69             </td>
    38     70           </tr>
    39     71           <tr>
    40     72             <td>Tcl Version:</td>
    41     73             <td>
    42         -            <select name="tcl_version">
           74  +            <select name="tcl_version" onChange="verifyOptions();">
    43     75   <?
    44     76   	foreach tcl_version [lsort -dictionary [array names tcl_versions]] {
    45     77   		set tcl_version_name $tcl_versions($tcl_version)
    46     78   		puts "              <option value=\"${tcl_version}\">${tcl_version_name}</option>"
    47     79   	}
    48     80   ?>
    49     81               </select>
    50     82             </td>
    51     83           </tr>
    52     84           <tr>
    53     85             <td>Platform:</td>
    54     86             <td>
    55         -            <select name="platform">
           87  +            <select name="platform" onChange="verifyOptions();">
    56     88   <?
    57     89   	foreach platform [lsort -dictionary [array names platforms]] {
    58     90   		set platform_name $platforms($platform)
    59     91   		puts "              <option value=\"${platform}\">${platform_name}</option>"
    60     92   	}
    61     93   ?>
    62     94               </select>
................................................................................
    81    113           <tr>
    82    114             <td>Description:</td>
    83    115             <td>
    84    116               <input type="text" name="platform-windows-x86-desc">
    85    117             </td>
    86    118           </tr>
    87    119         </table>
          120  +      <input type="submit" name="submit" value="Create">
    88    121       </form>
    89    122     </body>
    90    123   </html>