[Seaside] WebDVS Package

[Derek Brans]

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

Here's an implementation of DVS on Seaside (idea by Avi)
It's useful for managing code on a remote server.

It is limited to filing in and filing out changesets from the default 
directory.

Minimally tested (I used it to file itself out).

Derek

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_PoBuMno1wqC9fHPkWKOB+w)
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=2012:09'!=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[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=2011:30'!=0D=0ArenderOn:=20html=0D=0A=09html=20heading:=20=
'WebDVS'.=0D=0A=09html=20anchorWithAction:[self=20addPackage]=20=
text:'Add=20Package'.=0D=0A=09html=20render:=20self=20packageListView=20=
.!=20!=0D=0A=0D=0AWebDVS=20initialize!=0D=0A=0D=0ASmalltalk=20at:=20=
#FilePackageManager=20ifPresent:=20[:p=20|=20p=20registerPackage:=20=
'WebDVS'].!=0D=0A=0D=0A=

--Boundary_(ID_PoBuMno1wqC9fHPkWKOB+w)--