Smalltalk Binary Storage File ShoppingDemo7.2October 20, 2003 1:15:30 pml5%Q  ShoppingDemo.pst(XXXXXXparcel WebToolkitcommentgThis parcel contains a simple (very simple) shopping cart demo, for a Toy Store named ToyzInc. The domain logic uses an architecture relatively similar to the standard VisualWorks application model, adapted to the web. A single servlet handles all input, and delegates to the ShoppingSite object, which acts as a glue layer to the actual domain objects. space45812640 Core.Object@ Core.Symbol@Kernel.CompiledMethodPbytesmclass sourceCodeCore.LargePositiveIntegerCore.ByteArray Core.String@Kernel.ClassOrganizer@ globalComment categoryArray categoryStops elementArray Core.ArrayP Core.Float#VisualWave.SingleThreadModelServlet@ servletConfigrequestresponsesessionKernel.BlockClosure@method outerContext copiedValuesKernel.CompiledBlockPbytes outerMethodCore.IdentityDictionaryPtally valueArrayCore.OrderedCollectionP firstIndex lastIndex Smalltalk description description: displayPriceNumberPrintPolicy print:using:idid:namename:picturepicture:priceprice:printOn: accessingprintingexample1example2example3example4example5examples initialize ShoppingCartnamed:newinstance creationactionmethod submitAction queryAction actionFor:doGetdoStuffdoPost ShoppingSiteat:ifAbsentPut: parameters getInputFrom: currentPageforward: redirectTo: executingprivateactions doNothinginitializeActions catalogNamecatalog catalogName:lookupCatalogByName: catalogs:itemId:tempId:CatalogtempIdusernamecustomer username:lookupCustomerByName: customer: catalogHeaderdisplayTotalAmount totalAmountitems itemsInCartaddToShoppingCart itemWithId:addItem:haltlogin clearItems loginAsGuestlogoffreviewShoppingCartselectClearanceCatalogselectDefaultCatalogsetAspectFor:to: respondsTo: DictionaryaspectsinputOrderedCollection inject:into:Customerlookup allCatalogs displayStringinitializeClearanceIteminitializeDefaultclearanceitemsdefault asLowercasenoticeprerequisiteParcels packageName parcelNamedbTrace dbIdentifierbear73commentversionloadOrderedClassesdevelopmentPrerequisitesanyprintStringCacheparcel%$ #,###.00;($ #,###.00);$ 0.00;$ 0.00Assault PenguinSAuthentic replica, in finest plastic, of a fully armed and armoured assault penguin assault.gifWind-Up PenguinsThis beautiful penguin, hand-crafted from the finest plastic, will delight any child and be an ornament to any home windup.gifStained Glass PenguinTA stained-glass penguin to catch and reflect the light, or just sit on the bookshelfstainedglass.gifPenguin Pull-Toy2A charming hardwood pull-toy, complete with wheels pulltoy.gifRacing CockroachFun for the whole family cockroach.gifPOSTmodelactionSubmitmainCatalogHeaderclearanceCatalogHeader%$ #,###.00;($ #,###.00);$ 0.00;$ 0.00reviewcart.ssp catalog.sspGuestmain.sspreviewcart.sspClearanceItems catalog.sspDefault catalog.ssp:main.sspLogin as GuestLoginlogoffaddselectClearance selectDefault reviewCartDefaultClearanceItems;Copyright 2002 Cincom Systems, Inc. All Rights Reserved. WebToolkit ShoppingDemo ShoppingDemogThis parcel contains a simple (very simple) shopping cart demo, for a Toy Store named ToyzInc. The domain logic uses an architecture relatively similar to the standard VisualWorks application model, adapted to the web. A single servlet handles all input, and delegates to the ShoppingSite object, which acts as a glue layer to the actual domain objects. 7.2 WebToolkit(1.0.87,smichael)43eD)EeDhJiii j"eDhKiii j"eDhiii j"eDhiii j"eDhiii j"eDeDPepDmDe\sfD`Ev'Eep.ep.e D+e Dfe D. EeEe 4IZe DqJee 4q3e DfY`D'qfY` D!EEe D!fY` D!fY` DEe 8@eBND!D.f`(4Xf f!"f#$f%&f'(f)*EeDPeDPe De 4pqe D4q"fIX`D4q"E4s"E4t"E4u"fJX` pBMD`eDPeGB@fB B|@LcpcccDcc#cEcDlcccDcDcDcccocUcDcĠccccOcsckccc>cDcD<clcD!c"cDcM c cD