[Seaside] WebDVS 1.0

Derek Brans seaside@lists.squeakfoundation.org
Fri, 29 Nov 2002 15:57:41 -0800


--Boundary_(ID_EVzUp4EBKZwbeva8gfcfFQ)
Content-type: text/plain; charset=US-ASCII; format=flowed
Content-transfer-encoding: 7BIT

I've merged Avi's WAPackagePanel with my last contribution to produce 
this one.

I used the old version of WebDVS to file this new one in and the change 
took effect immediately: I was presented with the new WebDVS interface.

Nerd on a Wire: Web and Information Solutions
Website Design - Database Systems - Site Hosting
604.874.6463
mailto:info@nerdonawire.com
For more information, visit http://nerdonawire.com

--Boundary_(ID_EVzUp4EBKZwbeva8gfcfFQ)
Content-type: application/text; x-mac-creator=522A6368; x-unix-mode=0644;
 x-mac-type=54455854; name=WebDVS.st
Content-transfer-encoding: quoted-printable
Content-disposition: attachment; filename=WebDVS.st

Smalltalk=20organization=20addCategory:=20'WebDVS'!=0D=0A=0D=0A=
WAComponent=20subclass:=20#WebDVS=0D=0A=09instanceVariableNames:=20''=0D=0A=
=09classVariableNames:=20''=0D=0A=09poolDictionaries:=20''=0D=0A=09=
category:=20'WebDVS'!=0D=0A=0D=0AWebDVS=20class=0D=0A=09=
instanceVariableNames:=20''!=0D=0A=0D=0A!WebDVS=20methodsFor:=20'as=20=
yet=20unclassified'=20stamp:=20'djb=2011/29/2002=2011:39'!=0D=0A=
addPackage=0D=0A=09|packageName|=0D=0A=09packageName_=20self=20call:=20=
(WAInputDialog=20new=20message:=20'Name=20of=20package').=0D=0A=09=
FilePackageManager=20named:=20packageName.=0D=0A=09!=20!=0D=0A=0D=0A=
!WebDVS=20class=20methodsFor:=20'as=20yet=20unclassified'=20stamp:=20=
'djb=2011/29/2002=2011:52'!=0D=0Ainitialize=0D=0A=09self=20=
registerAsApplication:=20'WebDVS'=20sessionClass:=20WASession=20!=20!=0D=0A=
=0D=0A!WebDVS=20methodsFor:=20'as=20yet=20unclassified'=20stamp:=20'djb=20=
11/29/2002=2014:45'!=0D=0ApackageListView=0D=0A=09^[:html=20|=20=20html=20=
table:=20[=0D=0A=09=09=09PackageManager=20allManagers=20do:=20[=20:pkg|=0D=
=0A=09=09=09=09html=20tableRow:=20[=0D=0A=09=09=09=09=09html=20=
tableData:=20[html=20text:=20pkg=20asString]=20fixTemps.=0D=0A=09=09=09=09=
=09html=20tableData:=20=0D=0A=09=09=09=09=09[html=20form:=20[=0D=0A=09=09=
=09=09=09=09html=20textInputWithValue:=20(FileDirectory=20dirPathFor:=20=
pkg=20fileName)=0D=0A=09=09=09=09=09=09=09callback:=20[:v=20|=20pkg=20=
directory:=20v]=20fixTemps.=0D=0A=09=09=09=09=09=09html=20=
submitButton.]].=0D=0A=09=09=09=09=09html=20tableData:=20[html=20=
anchorWithAction:[pkg=20unregister]=20fixTemps=0D=0A=09=09=09=09=09=09=
text:'delete=20'].=0D=0A=09=09=09=09=09html=20tableData:=20[html=20=
anchorWithAction:[self=20halt.=20pkg=20fileOut]=20fixTemps=20=0D=0A=09=09=
=09=09=09=09text:=20'fileOut'].=0D=0A=09=09=09=09=09html=20tableData:=20=
[html=20anchorWithAction:[pkg=20fileIn]=20fixTemps=20=0D=0A=09=09=09=09=09=
=09text:=20'fileIn']=0D=0A=09=09=09=09]=0D=0A=09=09=09]fixTemps=0D=0A=09=
]fixTemps]=0D=0A=09=09=09=09!=20!=0D=0A=0D=0A!WebDVS=20methodsFor:=20'as=20=
yet=20unclassified'=20stamp:=20'djb=2011/29/2002=2015:10'!=0D=0A=
renderControlsForPackage:=20pkg=20on:=20html=20=0D=0A=09html=20=
anchorWithAction:=20[pkg=20unregister]=20=20text:=20'delete=20';=20=
space.=0D=0A=09html=20anchorWithAction:=20[pkg=20fileOut]=20=20text:=20=
'fileOut';=20space.=0D=0A=09^html=20anchorWithAction:=20[pkg=20fileIn]=20=
=20text:=20'fileIn'!=20!=0D=0A=0D=0A!WebDVS=20methodsFor:=20'as=20yet=20=
unclassified'=20stamp:=20'djb=2011/29/2002=2015:04'!=0D=0A=
renderDirectoryEditorForPackage:=20pkg=20on:=20html=20=0D=0A=09^html=20=
form:=20=0D=0A=09=09=09[html=0D=0A=09=09=09attributes:=20{'size'=20->=20=
75};=0D=0A=09=09=09textInputWithValue:=20(FileDirectory=20dirPathFor:pkg=20=
fileName)=0D=0A=09=09=09callback:=20[:path=20|=20pkg=20directory:=20=
(FileDirectory=20on:=20path)].=0D=0A=09=09=09html=20space.=0D=0A=09=09=09=
html=20submitButton]!=20!=0D=0A=0D=0A!WebDVS=20methodsFor:=20'as=20yet=20=
unclassified'=20stamp:=20'djb=2011/29/2002=2015:01'!=0D=0ArenderOn:=20=
html=0D=0A=09html=20heading:=20'WebDVS'.=0D=0A=09html=20=
anchorWithAction:[self=20addPackage]=20text:'Add=20Package'.=0D=0A=09=
self=20renderPackageListOn:html.!=20!=0D=0A=0D=0A!WebDVS=20methodsFor:=20=
'as=20yet=20unclassified'=20stamp:=20'djb=2011/29/2002=2014:54'!=0D=0A=
renderPackageListOn:=20html=20=0D=0A=09html=20=0D=0A=09=09table:=20=0D=0A=
=09=09=09[PackageManager=20allManagers=20=0D=0A=09=09=09=09do:=20[:pkg=20=
|=20self=20renderRowForPackage:=20pkg=20on:=20html]=20fixTemps]=20=0D=0A=09=
=09=09=09=09!=20!=0D=0A=0D=0A!WebDVS=20methodsFor:=20'as=20yet=20=
unclassified'=20stamp:=20'djb=2011/29/2002=2014:59'!=0D=0A=
renderRowForPackage:=20pkg=20on:=20html=20=0D=0A=09^html=20tableRow:=20=0D=
=0A=09=09=09[html=20tableData:=20[html=20text:=20pkg=20asString]=20.=0D=0A=
=09=09=09html=20tableData:=20[self=20renderDirectoryEditorForPackage:=20=
pkg=20on:=20html].=0D=0A=09=09=09html=20tableData:=20[self=20=
renderControlsForPackage:=20pkg=20on:=20html]]!=20!=0D=0A=0D=0AWebDVS=20=
initialize!=0D=0A=0D=0ASmalltalk=20at:=20#FilePackageManager=20=
ifPresent:=20[:p=20|=20p=20registerPackage:=20'WebDVS'].!=0D=0A=0D=0A=

--Boundary_(ID_EVzUp4EBKZwbeva8gfcfFQ)--