equal
deleted
inserted
replaced
7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
|
12 |
|
13 "{ Package: 'stx:libview' }" |
12 |
14 |
13 TopView subclass:#StandardSystemView |
15 TopView subclass:#StandardSystemView |
14 instanceVariableNames:'label icon iconView iconLabel minExtent maxExtent sizeFixed |
16 instanceVariableNames:'label icon iconView iconLabel minExtent maxExtent sizeFixed |
15 application windowEventsForApplication' |
17 application windowEventsForApplication' |
16 classVariableNames:'DefaultIcon IncludeHostNameInLabel DefaultExtent |
18 classVariableNames:'DefaultIcon IncludeHostNameInLabel DefaultExtent |
354 defaultIcon |
356 defaultIcon |
355 "return a topViews default window icon" |
357 "return a topViews default window icon" |
356 |
358 |
357 <resource: #style (#ICON #ICON_FILE)> |
359 <resource: #style (#ICON #ICON_FILE)> |
358 |
360 |
359 |nm i| |
361 |n nm i| |
360 |
362 |
361 (i := DefaultIcon) isNil ifTrue:[ |
363 (i := DefaultIcon) isNil ifTrue:[ |
362 i := self classResources at:'ICON' default:nil. |
364 i := self classResources at:'ICON' default:nil. |
363 i isNil ifTrue:[ |
365 i isNil ifTrue:[ |
364 OperatingSystem platformName == #win32 ifTrue:[ |
366 OperatingSystem platformName == #win32 ifTrue:[ |
365 nm := 'stx_16x16.xpm'. |
367 n := 'stx_16x16.xpm'. |
366 ] ifFalse:[ |
368 ] ifFalse:[ |
367 nm := 'SmalltalkX.xbm'. |
369 n := 'SmalltalkX.xbm'. |
368 ]. |
370 ]. |
369 nm := ClassResources at:'ICON_FILE' default:nm. |
371 nm := ClassResources at:'ICON_FILE' default:n. |
370 i := Smalltalk imageFromFileNamed:nm forClass:self. |
372 i := Smalltalk imageFromFileNamed:nm inPackage:'stx:libtool'. |
371 ]. |
373 ]. |
372 i notNil ifTrue:[ |
374 i notNil ifTrue:[ |
373 DefaultIcon := i := i onDevice:Display |
375 DefaultIcon := i := i onDevice:Display |
374 ] |
376 ] |
375 ]. |
377 ]. |
376 ^ i |
378 ^ i |
377 |
379 |
378 " |
380 " |
379 DefaultIcon := nil. |
381 DefaultIcon := nil. |
1467 ! ! |
1469 ! ! |
1468 |
1470 |
1469 !StandardSystemView class methodsFor:'documentation'! |
1471 !StandardSystemView class methodsFor:'documentation'! |
1470 |
1472 |
1471 version |
1473 version |
1472 ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.130 2000-01-25 10:58:32 cg Exp $' |
1474 ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.131 2000-06-15 09:07:50 cg Exp $' |
1473 ! ! |
1475 ! ! |
1474 StandardSystemView initialize! |
1476 StandardSystemView initialize! |