equal
deleted
inserted
replaced
110 "retrieve a resource - also aquire a device version |
110 "retrieve a resource - also aquire a device version |
111 to avoid repeated allocations later" |
111 to avoid repeated allocations later" |
112 |
112 |
113 |aResource deviceResource device| |
113 |aResource deviceResource device| |
114 |
114 |
115 device := Screen current. |
115 device := Display. "/ Screen current. |
116 aResource := self at:aKey default:default. |
116 aResource := self at:aKey default:default. |
117 aResource isNil ifTrue:[ |
117 aResource isNil ifTrue:[ |
118 aResource := default |
118 aResource := default |
119 ]. |
119 ]. |
120 aResource notNil ifTrue:[ |
120 aResource notNil ifTrue:[ |
121 deviceResource := aResource on:device. |
121 deviceResource := aResource on:device. |
122 ]. |
122 ]. |
123 deviceResource notNil ifTrue:[ |
123 deviceResource notNil ifTrue:[ |
124 ^ deviceResource |
124 ^ deviceResource |
125 ]. |
125 ]. |
126 ^ nil |
126 ^ aResource |
127 ! |
127 ! |
128 |
128 |
129 doesNotUnderstand:aMessage |
129 doesNotUnderstand:aMessage |
130 ^ self at:(aMessage selector) default:nil |
130 ^ self at:(aMessage selector) default:nil |
131 ! |
131 ! |
159 ! ! |
159 ! ! |
160 |
160 |
161 !ViewStyle class methodsFor:'documentation'! |
161 !ViewStyle class methodsFor:'documentation'! |
162 |
162 |
163 version |
163 version |
164 ^ '$Header: /cvs/stx/stx/libview/ViewStyle.st,v 1.10 1996-04-25 17:31:18 cg Exp $' |
164 ^ '$Header: /cvs/stx/stx/libview/ViewStyle.st,v 1.11 1996-07-25 20:57:46 cg Exp $' |
165 ! ! |
165 ! ! |