<?xml version="1.0"?>

<st-source>
<time-stamp>From VisualWorks® NonCommercial, 7.7.1 of 2010年7月26日 on 2010年8月5日 at 13:47:44</time-stamp>


<component-created>
<name>SSK</name> <type>package</type>
</component-created><!-- Package SSK* -->


<component-property>
<name>SSK</name> <type>package</type>
<property>comment</property> <value>'Smalltalk Studies in Kyoto'</value>
</component-property>

<class>
<name>OldFashionedBrowser</name>
<environment>Smalltalk</environment>
<super>UI.ApplicationModel</super>
<private>false</private>
<indexed-type>none</indexed-type>
<inst-vars>classTable instanceMethodTable classMethodTable </inst-vars>
<class-inst-vars></class-inst-vars>
<imports></imports>
<category></category>
<attributes>
<package>SSK</package>
</attributes>
</class>

<comment>
<class-id>OldFashionedBrowser</class-id>
<body>Smalltalk Studies in Kyoto</body>
</comment>

<methods>
<class-id>OldFashionedBrowser class</class-id> <category>examples</category>

<body package="SSK" selector="example">example
	"OldFashionedBrowser example."

	| aBrowser |
	aBrowser := OldFashionedBrowser new.
	^aBrowser</body>
</methods>


<methods>
<class-id>OldFashionedBrowser</class-id> <category>initialize-release</category>

<body package="SSK" selector="initialize">initialize

	super initialize.
	classTable := Dictionary new: 1000.
	instanceMethodTable := Dictionary new: 1000.
	classMethodTable := Dictionary new: 1000.
	SystemUtils allClassesDo: 
			[:aClass |
			classTable at: aClass name put: aClass.
			instanceMethodTable at: aClass name put: aClass selectors asSortedCollection.
			classMethodTable at: aClass name put: aClass class selectors asSortedCollection].
	^self</body>
</methods>



</st-source>
