equal
deleted
inserted
replaced
185 initialize |
185 initialize |
186 |nLines displayHeight| |
186 |nLines displayHeight| |
187 |
187 |
188 super initialize. |
188 super initialize. |
189 |
189 |
190 displayHeight := device usableHeight. |
190 displayHeight := self graphicsDevice usableHeight. |
191 nLines := displayHeight // 25. |
191 nLines := displayHeight // 25. |
192 |
192 |
193 "/ (displayHeight < 800) ifTrue:[ |
193 "/ (displayHeight < 800) ifTrue:[ |
194 "/ (displayHeight < 500) ifTrue:[ |
194 "/ (displayHeight < 500) ifTrue:[ |
195 "/ nLines := 20 |
195 "/ nLines := 20 |
223 ! |
223 ! |
224 |
224 |
225 mapped |
225 mapped |
226 super mapped. |
226 super mapped. |
227 |
227 |
228 device platformName = 'WIN32' ifTrue:[ |
228 self graphicsDevice platformName = #WIN32 ifTrue:[ |
229 "/ kludge |
229 "/ kludge |
230 [ |
230 [ |
231 Delay waitForSeconds:0.5. |
231 Delay waitForSeconds:0.5. |
232 self raise. |
232 self raise. |
233 self activate. |
233 self activate. |
234 self setForegroundWindow. |
234 self setForegroundWindow. |
235 self activate. |
235 self activate. |
236 ] fork. |
236 ] fork. |
237 ]. |
237 ]. |
238 |
238 |
239 " |
239 " |
240 self open |
240 self open |
241 " |
241 " |
337 ! ! |
337 ! ! |
338 |
338 |
339 !LicenceBox class methodsFor:'documentation'! |
339 !LicenceBox class methodsFor:'documentation'! |
340 |
340 |
341 version |
341 version |
342 ^ '$Header: /cvs/stx/stx/libwidg2/LicenceBox.st,v 1.28 2009-11-17 13:30:19 cg Exp $' |
342 ^ '$Header: /cvs/stx/stx/libwidg2/LicenceBox.st,v 1.29 2014-02-18 14:47:39 stefan Exp $' |
343 ! |
343 ! |
344 |
344 |
345 version_CVS |
345 version_CVS |
346 ^ '$Header: /cvs/stx/stx/libwidg2/LicenceBox.st,v 1.28 2009-11-17 13:30:19 cg Exp $' |
346 ^ '$Header: /cvs/stx/stx/libwidg2/LicenceBox.st,v 1.29 2014-02-18 14:47:39 stefan Exp $' |
347 ! ! |
347 ! ! |
|
348 |
348 |
349 |
349 LicenceBox initialize! |
350 LicenceBox initialize! |