[Seaside] WebDVS 1.1

Wed, 04 Dec 2002 11:20:24 -0800

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

Changes:
-added a file list


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_+60YAzQdzVxml0TRHUCbHA)
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=
WATreeVisitor=20subclass:=20#WADirectoryVisitor=0D=0A=09=
instanceVariableNames:=20''=0D=0A=09classVariableNames:=20''=0D=0A=09=
poolDictionaries:=20''=0D=0A=09category:=20'WebDVS'!=0D=0A=0D=0A=
WADirectoryVisitor=20class=0D=0A=09instanceVariableNames:=20''!=0D=0A=0D=0A=
WAComponent=20subclass:=20#WAFileList=0D=0A=09instanceVariableNames:=20=
'tree=20'=0D=0A=09classVariableNames:=20''=0D=0A=09poolDictionaries:=20=
''=0D=0A=09category:=20'WebDVS'!=0D=0A=0D=0AWAFileList=20class=0D=0A=09=
instanceVariableNames:=20''!=0D=0A=0D=0AWATreeVisitor=20subclass:=20=
#WAFileNameVisitor=0D=0A=09instanceVariableNames:=20''=0D=0A=09=
classVariableNames:=20''=0D=0A=09poolDictionaries:=20''=0D=0A=09=
category:=20'WebDVS'!=0D=0A=0D=0AWAFileNameVisitor=20class=0D=0A=09=
instanceVariableNames:=20''!=0D=0A=0D=0AWAComponent=20subclass:=20=
#WebDVS=0D=0A=09instanceVariableNames:=20'fileList=20'=0D=0A=09=
classVariableNames:=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=
!WAFileList=20methodsFor:=20'as=20yet=20unclassified'=20stamp:=20'djb=20=
12/4/2002=2008:30'!=0D=0AbuildTreeFor:=20aFileName=0D=0A=09|=20oc=20dir=20=
newTree|=20=0D=0A=09newTree_=20WATree=20new.=0D=0A=09oc=20_=20=
OrderedCollection=20new.=0D=0A=09dir=20_=20FileDirectory=20default.=0D=0A=
=09oc=20addFirst:=20dir=20fullName.=0D=0A=09[dir=20pathName=20=3D=20'']=0D=
=0A=09=09whileFalse:=20[dir=20_=20dir=20containingDirectory.=0D=0A=09=09=09=
=09=09=20oc=20addFirst:=20dir=20fullName].=0D=0A=09oc=20do:=20[:ea=20|=20=
newTree=20select:=20ea].=0D=0A=09newTree=20childVisitor:=20=
WADirectoryVisitor=20new.=0D=0A=09newTree=20labelVisitor:=20=
WAFileNameVisitor=20new.=0D=0A=09^=20newTree!=20!=0D=0A=0D=0A!WebDVS=20=
methodsFor:=20'as=20yet=20unclassified'=20stamp:=20'djb=2012/4/2002=20=
11:11'!=0D=0AeditDirectoryForPackage:=20pkg=0D=0A=09pkg=20directory:=20(=0D=
=0A=09FileDirectory=20on:=20(=0D=0A=09self=20call:=20(=0D=0A=09=
WAFileList=20on:=20(=0D=0A=09FileDirectory=20dirPathFor:=20pkg=20=
fileName))))!=20!=0D=0A=0D=0A!WebDVS=20methodsFor:=20'as=20yet=20=
unclassified'=20stamp:=20'djb=2012/2/2002=2022:23'!=0D=0AfileList=0D=0A=09=
^fileList=20ifNil:[fileList_WAFileList=20new]!=20!=0D=0A=0D=0A!WebDVS=20=
class=20methodsFor:=20'as=20yet=20unclassified'=20stamp:=20'djb=20=
11/29/2002=2011:52'!=0D=0Ainitialize=0D=0A=09self=20=
registerAsApplication:=20'WebDVS'=20sessionClass:=20WASession=20!=20!=0D=0A=
=0D=0A!WAFileList=20class=20methodsFor:=20'as=20yet=20unclassified'=20=
stamp:=20'djb=2012/4/2002=2008:36'!=0D=0Aon:=20aDirectory=0D=0A=09^self=20=
new=20startOn:=20aDirectory=0D=0A!=20!=0D=0A=0D=0A!WebDVS=20methodsFor:=20=
'as=20yet=20unclassified'=20stamp:=20'djb=2011/29/2002=2014:45'!=0D=0A=
packageListView=0D=0A=09^[:html=20|=20=20html=20table:=20[=0D=0A=09=09=09=
PackageManager=20allManagers=20do:=20[=20:pkg|=0D=0A=09=09=09=09html=20=
tableRow:=20[=0D=0A=09=09=09=09=09html=20tableData:=20[html=20text:=20=
pkg=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=20=
textInputWithValue:=20(FileDirectory=20dirPathFor:=20pkg=20fileName)=0D=0A=
=09=09=09=09=09=09=09callback:=20[:v=20|=20pkg=20directory:=20v]=20=
fixTemps.=0D=0A=09=09=09=09=09=09html=20submitButton.]].=0D=0A=09=09=09=09=
=09html=20tableData:=20[html=20anchorWithAction:[pkg=20unregister]=20=
fixTemps=0D=0A=09=09=09=09=09=09text:'delete=20'].=0D=0A=09=09=09=09=09=
html=20tableData:=20[html=20anchorWithAction:[self=20halt.=20pkg=20=
fileOut]=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]=20=
fixTemps=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=20yet=20unclassified'=20stamp:=20'djb=20=
11/29/2002=2015:10'!=0D=0ArenderControlsForPackage:=20pkg=20on:=20html=20=
=0D=0A=09html=20anchorWithAction:=20[pkg=20unregister]=20=20text:=20=
'delete=20';=20space.=0D=0A=09html=20anchorWithAction:=20[pkg=20fileOut]=20=
=20text:=20'fileOut';=20space.=0D=0A=09^html=20anchorWithAction:=20[pkg=20=
fileIn]=20=20text:=20'fileIn'!=20!=0D=0A=0D=0A!WebDVS=20methodsFor:=20=
'as=20yet=20unclassified'=20stamp:=20'djb=2012/4/2002=2011:14'!=0D=0A=
renderDirectoryEditorForPackage:=20pkg=20on:=20html=20=0D=0A=09html=20=
form:=20=0D=0A=09=09=09[html=0D=0A=09=09=09attributes:=20{'size'=20->=20=
50};=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=20anchorWithAction:=20[self=20editDirectoryForPackage:=20pkg]=20=
text:=20'browse'.].=0D=0A=09=09=0D=0A=09!=20!=0D=0A=0D=0A!WAFileList=20=
methodsFor:=20'as=20yet=20unclassified'=20stamp:=20'djb=2012/3/2002=20=
09:52'!=0D=0ArenderOn:=20html=20=0D=0A=09html=0D=0A=09=09form:=20[html=20=
render:=20self=20tree.=0D=0A=09=09=09html=0D=0A=09=09=09=09=
submitButtonWithAction:=20[self=20select]=0D=0A=09=09=09=09text:=20=
'select']!=20!=0D=0A=0D=0A!WebDVS=20methodsFor:=20'as=20yet=20=
unclassified'=20stamp:=20'djb=2012/4/2002=2008:25'!=0D=0ArenderOn:=20=
html=0D=0A=09html=20heading:=20'WebDVS'.=0D=0A=09html=20=
anchorWithAction:[self=20addPackage]=20text:'Add=20Package'.=0D=0A=09=
self=20renderP=

--Boundary_(ID_+60YAzQdzVxml0TRHUCbHA)--