Windows8ToolbarIconLibrary.st
author Claus Gittinger <cg@exept.de>
Sat, 09 May 2015 22:19:20 +0200
changeset 5344 98e14a580110
parent 5171 9519ad3ccfb7
child 6049 912263613f7d
permissions -rw-r--r--
class: GenericToolbarIconLibrary added: #addTab22x22Icon
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
5171
9519ad3ccfb7 comment/format in: #documentation
Claus Gittinger <cg@exept.de>
parents: 5037
diff changeset
    16
    This is a style specific icon library for a windows8 look.
9519ad3ccfb7 comment/format in: #documentation
Claus Gittinger <cg@exept.de>
parents: 5037
diff changeset
    17
9519ad3ccfb7 comment/format in: #documentation
Claus Gittinger <cg@exept.de>
parents: 5037
diff changeset
    18
    Never access this iconlibrary directly from an application -
9519ad3ccfb7 comment/format in: #documentation
Claus Gittinger <cg@exept.de>
parents: 5037
diff changeset
    19
    always use ToolbarIconLibrary, which is an alias to one of the style specific
9519ad3ccfb7 comment/format in: #documentation
Claus Gittinger <cg@exept.de>
parents: 5037
diff changeset
    20
    icon libs.
9519ad3ccfb7 comment/format in: #documentation
Claus Gittinger <cg@exept.de>
parents: 5037
diff changeset
    21
4547
Claus Gittinger <cg@exept.de>
parents: 4508
diff changeset
    22
    Notice and Warning:
Claus Gittinger <cg@exept.de>
parents: 4508
diff changeset
    23
        only redefine existing icons here; never add ionly to here.
Claus Gittinger <cg@exept.de>
parents: 4508
diff changeset
    24
        For every icon-method here, there MUST be a corresponding (albeit
Claus Gittinger <cg@exept.de>
parents: 4508
diff changeset
    25
        possibly ugly) icon-method in GenericToolBarIcon.
Claus Gittinger <cg@exept.de>
parents: 4508
diff changeset
    26
"
Claus Gittinger <cg@exept.de>
parents: 4508
diff changeset
    27
! !
4508
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
!Windows8ToolbarIconLibrary class methodsFor:'image specs'!
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
downArrowEnteredIcon
5037
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    32
    <resource: #image>
4508
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
    "This resource specification was automatically generated
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    34
     by the ImageEditor of ST/X."
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    35
    "Do not manually edit this!! If it is corrupted,
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    36
     the ImageEditor may not be able to read the specification."
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
    "
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
     self downArrowEnteredIcon inspect
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39
     ImageEditor openOnClass:self andSelector:#downArrowEnteredIcon
5037
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    40
     Icon flushCachedIcons"
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    41
    
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    42
    ^ Icon constantNamed:'Windows8ToolbarIconLibrary downArrowEnteredIcon'
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    43
        ifAbsentPut:[
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    44
            (Depth1Image new)
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    45
                width:15;
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    46
                height:14;
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    47
                photometric:(#palette);
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    48
                bitsPerSample:(#[ 1 ]);
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    49
                samplesPerPixel:(1);
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    50
                bits:(ByteArray 
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    51
                            fromPackedString:'@@@@@@@@@@@HH@1 C.@G0@N@@P@@@@@@@@@@@@@a');
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    52
                colorMapFromArray:#[ 240 240 240 0 0 0 ];
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    53
                mask:((ImageMask new)
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    54
                            width:15;
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    55
                            height:14;
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    56
                            bits:(ByteArray 
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    57
                                        fromPackedString:'@@D@@P@A@@DHHP1!!C.DG0PNA@PD@@P@A@@D@@P@a');
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    58
                            yourself);
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    59
                yourself
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    60
        ]
4508
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    61
!
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    62
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    63
downArrowPassiveIcon
5037
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    64
    <resource: #image>
4508
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    65
    "This resource specification was automatically generated
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    66
     by the ImageEditor of ST/X."
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    67
    "Do not manually edit this!! If it is corrupted,
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    68
     the ImageEditor may not be able to read the specification."
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    69
    "
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    70
     self downArrowPassiveIcon inspect
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    71
     ImageEditor openOnClass:self andSelector:#downArrowPassiveIcon
5037
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    72
     Icon flushCachedIcons"
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    73
    
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    74
    ^ Icon constantNamed:'Windows8ToolbarIconLibrary downArrowPassiveIcon'
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    75
        ifAbsentPut:[
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    76
            (Depth1Image new)
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    77
                width:15;
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    78
                height:14;
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    79
                photometric:(#palette);
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    80
                bitsPerSample:(#[ 1 ]);
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    81
                samplesPerPixel:(1);
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    82
                bits:(ByteArray 
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    83
                            fromPackedString:'@@@@@@@@@@@HH@1 C.@G0@N@@P@@@@@@@@@@@@@a');
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    84
                colorMapFromArray:#[ 240 240 240 96 96 96 ];
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    85
                mask:((ImageMask new)
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    86
                            width:15;
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    87
                            height:14;
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    88
                            bits:(ByteArray 
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    89
                                        fromPackedString:'@@D@@P@A@@DHHP1!!C.DG0PNA@PD@@P@A@@D@@P@a');
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    90
                            yourself);
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    91
                yourself
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    92
        ]
4508
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    93
! !
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    94
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    95
!Windows8ToolbarIconLibrary class methodsFor:'documentation'!
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    96
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    97
version
5171
9519ad3ccfb7 comment/format in: #documentation
Claus Gittinger <cg@exept.de>
parents: 5037
diff changeset
    98
    ^ '$Header: /cvs/stx/stx/libwidg/Windows8ToolbarIconLibrary.st,v 1.4 2014-11-23 13:56:45 cg Exp $'
4508
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    99
!
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   100
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   101
version_CVS
5171
9519ad3ccfb7 comment/format in: #documentation
Claus Gittinger <cg@exept.de>
parents: 5037
diff changeset
   102
    ^ '$Header: /cvs/stx/stx/libwidg/Windows8ToolbarIconLibrary.st,v 1.4 2014-11-23 13:56:45 cg Exp $'
4508
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   103
! !
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   104