Icon.st
changeset 2906 ef7d38d397bc
parent 2761 a5dc7f063729
child 3341 b37e37384f3e
equal deleted inserted replaced
2905:303bf86fa4bb 2906:ef7d38d397bc
   219     "Modified: 10.1.1997 / 17:52:06 / cg"
   219     "Modified: 10.1.1997 / 17:52:06 / cg"
   220 ! !
   220 ! !
   221 
   221 
   222 !Icon class methodsFor:'image specs'!
   222 !Icon class methodsFor:'image specs'!
   223 
   223 
   224 backwardIcon
       
   225     "Obsolete - please goto ToolbarIconLibrary directly"
       
   226     ^ ToolbarIconLibrary backward22x22_3DIcon
       
   227 !
       
   228 
       
   229 copyIcon
       
   230     "Obsolete - please goto ToolbarIconLibrary directly"
       
   231     ^ ToolbarIconLibrary copy22x22Icon
       
   232 !
       
   233 
       
   234 cutIcon
       
   235     "Obsolete - please goto ToolbarIconLibrary directly"
       
   236     ^ ToolbarIconLibrary cut22x22Icon
       
   237 !
       
   238 
       
   239 deleteIcon
       
   240     "Obsolete - please goto ToolbarIconLibrary directly"
       
   241     ^ ToolbarIconLibrary delete22x22Icon
       
   242 !
       
   243 
       
   244 downIcon
       
   245     "Obsolete - please goto ToolbarIconLibrary directly"
       
   246     ^ ToolbarIconLibrary down22x22Icon
       
   247 !
       
   248 
       
   249 downRightIcon
       
   250     "Obsolete - please goto ToolbarIconLibrary directly"
       
   251     ^ ToolbarIconLibrary downRight22x22Icon
       
   252 !
       
   253 
       
   254 forwardIcon
       
   255     "Obsolete - please goto ToolbarIconLibrary directly"
       
   256     ^ ToolbarIconLibrary forward22x22_3DIcon
       
   257 !
       
   258 
       
   259 helpIcon
       
   260     "Obsolete - please goto ToolbarIconLibrary directly"
       
   261     ^ ToolbarIconLibrary help22x22Icon
       
   262 !
       
   263 
       
   264 leftDownIcon
       
   265     "Obsolete - please goto ToolbarIconLibrary directly"
       
   266     ^ ToolbarIconLibrary leftDown22x22Icon
       
   267 !
       
   268 
       
   269 leftIcon
       
   270     "Obsolete - please goto ToolbarIconLibrary directly"
       
   271     ^ ToolbarIconLibrary left22x22Icon
       
   272 !
       
   273 
       
   274 loadIcon
       
   275     "Obsolete - please goto ToolbarIconLibrary directly"
       
   276     ^ ToolbarIconLibrary load22x22Icon
       
   277 !
       
   278 
       
   279 newIcon
       
   280     "Obsolete - please goto ToolbarIconLibrary directly"
       
   281     ^ ToolbarIconLibrary new22x22Icon
       
   282 !
       
   283 
       
   284 pasteIcon
       
   285     "Obsolete - please goto ToolbarIconLibrary directly"
       
   286     ^ ToolbarIconLibrary paste22x22Icon
       
   287 !
       
   288 
       
   289 rightIcon
       
   290     "Obsolete - please goto ToolbarIconLibrary directly"
       
   291     ^ ToolbarIconLibrary right22x22Icon
       
   292 !
       
   293 
       
   294 saveIcon
       
   295     "Obsolete - please goto ToolbarIconLibrary directly"
       
   296     ^ ToolbarIconLibrary save22x22Icon
       
   297 !
       
   298 
       
   299 startIcon
       
   300     "Obsolete - please goto ToolbarIconLibrary directly"
       
   301     ^ ToolbarIconLibrary start22x22Icon
       
   302 !
       
   303 
       
   304 stxIcon
   224 stxIcon
       
   225     <resource:#programImage>
   305     |icn|
   226     |icn|
   306 
   227 
   307     (icn := self constantNamed:'stxIcon') isNil ifTrue:[
   228     (icn := self constantNamed:'stxIcon') isNil ifTrue:[
   308         OperatingSystem platformName == #win32 ifTrue:[
   229         icn := self stxIcon32x32.
   309             icn := Smalltalk imageFromFileNamed:'stx_32x32.xpm' forClass:self.
       
   310         ].
       
   311         icn isNil ifTrue:[
       
   312             icn := self stxIconOld.
       
   313         ].
       
   314         icn notNil ifTrue:[
   230         icn notNil ifTrue:[
   315             self constantNamed:'stxIcon' put:icn.
   231             self constantNamed:'stxIcon' put:icn.
   316         ]
   232         ]
   317     ].
   233     ].
   318     ^ icn
   234     ^ icn
   342     ^Icon
   258     ^Icon
   343         constantNamed:#'Icon class stxIcon16x16'
   259         constantNamed:#'Icon class stxIcon16x16'
   344         ifAbsentPut:[(Depth4Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#[4]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
   260         ifAbsentPut:[(Depth4Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#[4]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
   345 @@@@@@@@@@@@@@@@@@@@@@@@@T@@@@@@@@@AD@@@@P@@@@DP@@@P@@@@@AP@@P@@@@@@@P@P@@@@@@@APP@@@@@@@@@P@@@@@@@@@Q@@@@@@@@@P@P@@@@@@
   261 @@@@@@@@@@@@@@@@@@@@@@@@@T@@@@@@@@@AD@@@@P@@@@DP@@@P@@@@@AP@@P@@@@@@@P@P@@@@@@@APP@@@@@@@@@P@@@@@@@@@Q@@@@@@@@@P@P@@@@@@
   346 PP@@P@@@@@PP@@A@@@@@DP@@@@D@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[25 25 25 0 204 51 0 0 0 255 255 255 0 168 39]; yourself]
   262 PP@@P@@@@@PP@@A@@@@@DP@@@@D@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[25 25 25 0 204 51 0 0 0 255 255 255 0 168 39]; yourself]
       
   263 !
       
   264 
       
   265 stxIcon32x32
       
   266     "This resource specification was automatically generated
       
   267      by the ImageEditor of ST/X."
       
   268 
       
   269     "Do not manually edit this!! If it is corrupted,
       
   270      the ImageEditor may not be able to read the specification."
       
   271 
       
   272     "
       
   273      self stxIcon32x32 inspect
       
   274      ImageEditor openOnClass:self andSelector:#stxIcon32x32
       
   275      Icon flushCachedIcons
       
   276     "
       
   277 
       
   278     <resource: #image>
       
   279 
       
   280     ^Icon
       
   281         constantNamed:'Icon class stxIcon32x32'
       
   282         ifAbsentPut:[(Depth4Image new) width: 32; height: 32; photometric:(#palette); bitsPerSample:(#[4]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
       
   283 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DQ@@@@@@@@@A@@@@@@@@@ADP@@@@
       
   284 @@@@DP@@@@@@@@@QD@@@@@@@@Q@@@@@@@@@@DQD@@@@@@AD@@@@@@@@@@ADQ@@@@@@DP@@@@@@@@@@@ADP@@@@@Q@@@@@@@@@@@@@ADP@@@AD@@@@@@@@@@@
       
   285 @@@QD@@@DP@@@@@@@@@@@@@@@Q@@@Q@@@@@@@@@@@@@@@@DQ@AD@@@@@@@@@@@@@@@@@DQDP@@@@@@@@@@@@@@@@@@DQ@@@@@@@@@@@@@@@@@@@ADP@@@@@@
       
   286 @@@@@@@@@@@@DQD@@@@@@@@@@@@@@@@@@QDQD@@@@@@@@@@@@@@@@ADP@Q@@@@@@@@@@@@@@@@DQ@@@Q@@@@@@@@@@@@@@@QD@@@@P@@@@@@@@@@@@@ADP@@
       
   287 @@DP@@@@@@@@@@@@DQ@@@@@@DP@@@@@@@@@@DQD@@@@@@@D@@@@@@@@@@QDQ@@@@@@@AD@@@@@@@@ADQD@@@@@@@@AD@@@@@@@@QDP@@@@@@@@@A@@@@@@@@
       
   288 @@@@@@@@@@@@@A@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 0 128 128]; yourself]
   347 !
   289 !
   348 
   290 
   349 stxIconOld
   291 stxIconOld
   350     "This resource specification was automatically generated
   292     "This resource specification was automatically generated
   351      by the ImageEditor of ST/X."
   293      by the ImageEditor of ST/X."
   480 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[0 204 51 25 25 25 0 102 26]; mask:((Depth1Image new) width: 48; height: 48; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
   422 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[0 204 51 25 25 25 0 102 26]; mask:((Depth1Image new) width: 48; height: 48; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
   481 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@G@@@A @@O @@C@@@O @@F@@@O @@\@@@O0@@<@@@O0@A8@@@G0@A0@@@G8@C @@@C8@G@@@@C<@N@@
   423 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@G@@@A @@O @@C@@@O @@F@@@O @@\@@@O0@@<@@@O0@A8@@@G0@A0@@@G8@C @@@C8@G@@@@C<@N@@
   482 @@A<@\@@@@A>@8@@@@@>A8@@@@@_C0@@@@@_G @@@@@O/@@@@@@O>@@@@@@G<@@@@@@G<@@@@@@C8@@@@@@G8@@@@@@O<@@@@@@_<@@@@@@>>@@@@@A<^@@@
   424 @@A<@\@@@@A>@8@@@@@>A8@@@@@_C0@@@@@_G @@@@@O/@@@@@@O>@@@@@@G<@@@@@@G<@@@@@@C8@@@@@@G8@@@@@@O<@@@@@@_<@@@@@@>>@@@@@A<^@@@
   483 @@C8O@@@@@O0O@@@@@_ G @@@@?@C0@@@A>@A0@@@C<@@8@@@O8@@<@@@_0@@\@@@? @@N@@@? @@F@@@?@@@C@@@^@@@A@@@@@@@@ @@@@@@@@@@@@@@@@@
   425 @@C8O@@@@@O0O@@@@@_ G @@@@?@C0@@@A>@A0@@@C<@@8@@@O8@@<@@@_0@@\@@@? @@N@@@? @@F@@@?@@@C@@@^@@@A@@@@@@@@ @@@@@@@@@@@@@@@@@
   484 @@@@@@@@@@@@@@@@@@@@@@@@') ; yourself); yourself]
   426 @@@@@@@@@@@@@@@@@@@@@@@@') ; yourself); yourself]
       
   427 ! !
       
   428 
       
   429 !Icon class methodsFor:'obsolete image specs'!
       
   430 
       
   431 backwardIcon
       
   432     <resource: #obsolete>
       
   433     "Obsolete - please goto ToolbarIconLibrary directly"
       
   434     ^ ToolbarIconLibrary backward22x22_3DIcon
       
   435 !
       
   436 
       
   437 copyIcon
       
   438     <resource: #obsolete>
       
   439     "Obsolete - please goto ToolbarIconLibrary directly"
       
   440     ^ ToolbarIconLibrary copy22x22Icon
       
   441 !
       
   442 
       
   443 cutIcon
       
   444     <resource: #obsolete>
       
   445     "Obsolete - please goto ToolbarIconLibrary directly"
       
   446     ^ ToolbarIconLibrary cut22x22Icon
       
   447 !
       
   448 
       
   449 deleteIcon
       
   450     <resource: #obsolete>
       
   451     "Obsolete - please goto ToolbarIconLibrary directly"
       
   452     ^ ToolbarIconLibrary delete22x22Icon
       
   453 !
       
   454 
       
   455 downIcon
       
   456     <resource: #obsolete>
       
   457     "Obsolete - please goto ToolbarIconLibrary directly"
       
   458     ^ ToolbarIconLibrary down22x22Icon
       
   459 !
       
   460 
       
   461 downRightIcon
       
   462     <resource: #obsolete>
       
   463     "Obsolete - please goto ToolbarIconLibrary directly"
       
   464     ^ ToolbarIconLibrary downRight22x22Icon
       
   465 !
       
   466 
       
   467 forwardIcon
       
   468     <resource: #obsolete>
       
   469     "Obsolete - please goto ToolbarIconLibrary directly"
       
   470     ^ ToolbarIconLibrary forward22x22_3DIcon
       
   471 !
       
   472 
       
   473 helpIcon
       
   474     <resource: #obsolete>
       
   475     "Obsolete - please goto ToolbarIconLibrary directly"
       
   476     ^ ToolbarIconLibrary help22x22Icon
       
   477 !
       
   478 
       
   479 leftDownIcon
       
   480     <resource: #obsolete>
       
   481     "Obsolete - please goto ToolbarIconLibrary directly"
       
   482     ^ ToolbarIconLibrary leftDown22x22Icon
       
   483 !
       
   484 
       
   485 leftIcon
       
   486     <resource: #obsolete>
       
   487     "Obsolete - please goto ToolbarIconLibrary directly"
       
   488     ^ ToolbarIconLibrary left22x22Icon
       
   489 !
       
   490 
       
   491 loadIcon
       
   492     <resource: #obsolete>
       
   493     "Obsolete - please goto ToolbarIconLibrary directly"
       
   494     ^ ToolbarIconLibrary load22x22Icon
       
   495 !
       
   496 
       
   497 newIcon
       
   498     <resource: #obsolete>
       
   499     "Obsolete - please goto ToolbarIconLibrary directly"
       
   500     ^ ToolbarIconLibrary new22x22Icon
       
   501 !
       
   502 
       
   503 pasteIcon
       
   504     <resource: #obsolete>
       
   505     "Obsolete - please goto ToolbarIconLibrary directly"
       
   506     ^ ToolbarIconLibrary paste22x22Icon
       
   507 !
       
   508 
       
   509 rightIcon
       
   510     <resource: #obsolete>
       
   511     "Obsolete - please goto ToolbarIconLibrary directly"
       
   512     ^ ToolbarIconLibrary right22x22Icon
       
   513 !
       
   514 
       
   515 saveIcon
       
   516     <resource: #obsolete>
       
   517     "Obsolete - please goto ToolbarIconLibrary directly"
       
   518     ^ ToolbarIconLibrary save22x22Icon
       
   519 !
       
   520 
       
   521 startIcon
       
   522     <resource: #obsolete>
       
   523     "Obsolete - please goto ToolbarIconLibrary directly"
       
   524     ^ ToolbarIconLibrary start22x22Icon
   485 !
   525 !
   486 
   526 
   487 upIcon
   527 upIcon
       
   528     <resource: #obsolete>
   488     "Obsolete - please goto ToolbarIconLibrary directly"
   529     "Obsolete - please goto ToolbarIconLibrary directly"
   489     ^ ToolbarIconLibrary up22x22Icon
   530     ^ ToolbarIconLibrary up22x22Icon
   490 !
   531 !
   491 
   532 
   492 upRightIcon
   533 upRightIcon
       
   534     <resource: #obsolete>
   493     "Obsolete - please goto ToolbarIconLibrary directly"
   535     "Obsolete - please goto ToolbarIconLibrary directly"
   494     ^ ToolbarIconLibrary upRight22x22Icon
   536     ^ ToolbarIconLibrary upRight22x22Icon
   495 ! !
   537 ! !
   496 
   538 
   497 !Icon class methodsFor:'startup & release'!
   539 !Icon class methodsFor:'startup & release'!
   509 ! !
   551 ! !
   510 
   552 
   511 !Icon class methodsFor:'documentation'!
   553 !Icon class methodsFor:'documentation'!
   512 
   554 
   513 version
   555 version
   514     ^ '$Header: /cvs/stx/stx/libview2/Icon.st,v 1.37 2009-10-14 14:07:15 cg Exp $'
   556     ^ '$Header: /cvs/stx/stx/libview2/Icon.st,v 1.38 2011-04-08 11:54:42 stefan Exp $'
   515 !
   557 !
   516 
   558 
   517 version_CVS
   559 version_CVS
   518     ^ '$Header: /cvs/stx/stx/libview2/Icon.st,v 1.37 2009-10-14 14:07:15 cg Exp $'
   560     ^ '$Header: /cvs/stx/stx/libview2/Icon.st,v 1.38 2011-04-08 11:54:42 stefan Exp $'
   519 ! !
   561 ! !
   520 
   562 
   521 Icon initialize!
   563 Icon initialize!