From VisualWorks®, 7.5 of April 16, 2007 on August 8, 2007 at 2:52:32 pm (Dialog confirm: 'You are filing-in a Parcel source file!\\While this is possible it will not have\the same effect as loading the parcel.\None of the Parcel''s prerequisites will\be loaded and none of its load actions\will be performed.\\Are you sure you want to file-in?' withCRs) ifFalse: [self error: 'Parcel file-in abandoned. Choose terminate or close.'] <class> <name>AlternateSeasideServlet</name> <environment>Seaside</environment> <super>Seaside.SeasideServlet</super> <private>false</private> none <imports></imports> <category>Seaside/WebToolkit</category> <attributes> <package>Seaside-ShortPath</package> </attributes> </class> <name>AlternateServletHandler</name> <environment>Seaside.AlternateSeasideServlet</environment> <private>false</private> <constant>false</constant> <category>Globals</category> <initializer>nil</initializer> <attributes> <package>Seaside-ShortPath</package> </attributes> <methods> Seaside.AlternateSeasideServlet <category>testing</category>
isAlternateServlet "The alternate servlet is the one that gets instantiated when accessing Seaside using a short URL. Must have the short URL bonus parcel installed" ^ true
</methods> <methods> Seaside.AlternateSeasideServlet <category>printing</category>
printString ^'Seaside alternate servlet'
</methods> <methods> Seaside.AlternateSeasideServlet <category>initialization</category>
reset super reset. AlternateServletHandler := nil.
</methods> <methods> Seaside.AlternateSeasideServlet class <category>instance creation</category>
servletHandlerForWebSite: webSite ^VisualWave.ServletHandler new servletClass: self; webSite: webSite; yourself.
</methods> <methods> VisualWave.WebSiteResolver class <category>constants</category>
seasideServletClass ^ Seaside.AlternateSeasideServlet
</methods> <methods> VisualWave.WebSiteResolver <category>private</category>
substituteFileServletRequest "Web ToolKit does not know what to do with this request" (webSite isDefault or: [webSite environment = Seaside]) ifTrue: [self substituteSeasideServletRequest] ifFalse: [handler := ServletHandler new. handler servletClass: self class fileServletClass].
substituteSeasideServletRequest handler := self class seasideServletClass servletHandlerForWebSite: webSite
</methods> "Imported Classes:" self error: 'Attempting to file-in parcel imports. Choose terminate or close' <class> <name>WebSiteResolver</name> <environment>VisualWave</environment> <super>VisualWave.WebResolver</super> <private>false</private> none webRequest webSite contentType handler sspUrlRegex servletClassUrlRegex servletMethodUrlRegex <imports></imports> <category>Web Toolkit-Templating</category> <attributes> <package>Templating</package> </attributes> </class> <class> <name>SeasideServlet</name> <environment>Seaside</environment> <super>VisualWave.HttpServlet</super> <private>false</private> none <imports></imports> <category>Seaside/WebToolkit</category> <attributes> <package>Seaside/WebToolkit</package> </attributes> </class>