Windows8ToolbarIconLibrary.st
author Claus Gittinger <cg@exept.de>
Wed, 03 Apr 2013 15:07:34 +0200
changeset 4547 021a913484e6
parent 4508 a4ba60427d79
child 5037 47d11d896636
permissions -rw-r--r--
x
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
4508
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
"{ Package: 'stx:libwidg' }"
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
VistaToolbarIconLibrary subclass:#Windows8ToolbarIconLibrary
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
	instanceVariableNames:''
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
	classVariableNames:''
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
	poolDictionaries:''
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
	category:'Interface-Smalltalk'
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
!
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
4547
Claus Gittinger <cg@exept.de>
parents: 4508
diff changeset
    10
!Windows8ToolbarIconLibrary class methodsFor:'documentation'!
Claus Gittinger <cg@exept.de>
parents: 4508
diff changeset
    11
Claus Gittinger <cg@exept.de>
parents: 4508
diff changeset
    12
documentation
Claus Gittinger <cg@exept.de>
parents: 4508
diff changeset
    13
"
Claus Gittinger <cg@exept.de>
parents: 4508
diff changeset
    14
    ToolbarIconLibrary := Windows8ToolbarIconLibrary
Claus Gittinger <cg@exept.de>
parents: 4508
diff changeset
    15
Claus Gittinger <cg@exept.de>
parents: 4508
diff changeset
    16
    Notice and Warning:
Claus Gittinger <cg@exept.de>
parents: 4508
diff changeset
    17
        only redefine existing icons here; never add ionly to here.
Claus Gittinger <cg@exept.de>
parents: 4508
diff changeset
    18
        For every icon-method here, there MUST be a corresponding (albeit
Claus Gittinger <cg@exept.de>
parents: 4508
diff changeset
    19
        possibly ugly) icon-method in GenericToolBarIcon.
Claus Gittinger <cg@exept.de>
parents: 4508
diff changeset
    20
"
Claus Gittinger <cg@exept.de>
parents: 4508
diff changeset
    21
! !
4508
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
!Windows8ToolbarIconLibrary class methodsFor:'image specs'!
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
downArrowEnteredIcon
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
    "This resource specification was automatically generated
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
     by the ImageEditor of ST/X."
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
    "Do not manually edit this!! If it is corrupted,
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
     the ImageEditor may not be able to read the specification."
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
    "
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
     self downArrowEnteredIcon inspect
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    34
     ImageEditor openOnClass:self andSelector:#downArrowEnteredIcon
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    35
     Icon flushCachedIcons
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    36
    "
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
    <resource: #image>
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    40
    ^Icon
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    41
        constantNamed:'Windows8ToolbarIconLibrary downArrowEnteredIcon'
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    42
        ifAbsentPut:[(Depth1Image new) width: 15; height: 14; photometric:(#palette); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@HH@1 C.@G0@N@@P@@@@@@@@@@@@@a') ; colorMapFromArray:#[240 240 240 0 0 0]; mask:((Depth1Image new) width: 15; height: 14; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@D@@P@A@@DHHP1!!C.DG0PNA@PD@@P@A@@D@@P@a') ; yourself); yourself]
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    43
!
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    44
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    45
downArrowPassiveIcon
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    46
    "This resource specification was automatically generated
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    47
     by the ImageEditor of ST/X."
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    48
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    49
    "Do not manually edit this!! If it is corrupted,
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    50
     the ImageEditor may not be able to read the specification."
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    51
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    52
    "
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    53
     self downArrowPassiveIcon inspect
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    54
     ImageEditor openOnClass:self andSelector:#downArrowPassiveIcon
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    55
     Icon flushCachedIcons
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    56
    "
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    57
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    58
    <resource: #image>
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    59
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    60
    ^Icon
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    61
        constantNamed:'Windows8ToolbarIconLibrary downArrowPassiveIcon'
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    62
        ifAbsentPut:[(Depth1Image new) width: 15; height: 14; photometric:(#palette); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@HH@1 C.@G0@N@@P@@@@@@@@@@@@@a') ; colorMapFromArray:#[240 240 240 96 96 96]; mask:((Depth1Image new) width: 15; height: 14; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@D@@P@A@@DHHP1!!C.DG0PNA@PD@@P@A@@D@@P@a') ; yourself); yourself]
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    63
! !
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    64
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    65
!Windows8ToolbarIconLibrary class methodsFor:'documentation'!
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    66
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    67
version
4547
Claus Gittinger <cg@exept.de>
parents: 4508
diff changeset
    68
    ^ '$Header: /cvs/stx/stx/libwidg/Windows8ToolbarIconLibrary.st,v 1.2 2013-04-03 13:07:34 cg Exp $'
4508
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    69
!
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    70
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    71
version_CVS
4547
Claus Gittinger <cg@exept.de>
parents: 4508
diff changeset
    72
    ^ '$Header: /cvs/stx/stx/libwidg/Windows8ToolbarIconLibrary.st,v 1.2 2013-04-03 13:07:34 cg Exp $'
4508
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    73
! !
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    74