Windows8ToolbarIconLibrary.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Wed, 04 Jun 2014 22:40:15 +0100
branchdelegated_gc_text-view-selection-refactoring
changeset 5086 6f3514837c99
parent 5037 47d11d896636
child 5171 9519ad3ccfb7
permissions -rw-r--r--
Merged 01f0fea53f9b and 091548040432 (branch default) srent: 5014:01f0fea53f9b Merged 9810ac669227 and d0125b7808bd (branch default) parent: 5049:091548040432 tip elf at: sel ifAbsent:[ Hh: changed EditTextViewCompletionSupport.st
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
5037
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    26
    <resource: #image>
4508
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
    "This resource specification was automatically generated
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
     by the ImageEditor of ST/X."
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
     self downArrowEnteredIcon inspect
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
     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
    34
     Icon flushCachedIcons"
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    35
    
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    36
    ^ 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
    37
        ifAbsentPut:[
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    38
            (Depth1Image new)
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    39
                width:15;
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    40
                height:14;
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    41
                photometric:(#palette);
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    42
                bitsPerSample:(#[ 1 ]);
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    43
                samplesPerPixel:(1);
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    44
                bits:(ByteArray 
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    45
                            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
    46
                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
    47
                mask:((ImageMask new)
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    48
                            width:15;
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    49
                            height:14;
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:'@@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
    52
                            yourself);
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    53
                yourself
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    54
        ]
4508
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    55
!
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    56
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    57
downArrowPassiveIcon
5037
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    58
    <resource: #image>
4508
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    59
    "This resource specification was automatically generated
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    60
     by the ImageEditor of ST/X."
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    61
    "Do not manually edit this!! If it is corrupted,
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    62
     the ImageEditor may not be able to read the specification."
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    63
    "
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    64
     self downArrowPassiveIcon inspect
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    65
     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
    66
     Icon flushCachedIcons"
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    67
    
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    68
    ^ 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
    69
        ifAbsentPut:[
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    70
            (Depth1Image new)
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    71
                width:15;
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    72
                height:14;
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    73
                photometric:(#palette);
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    74
                bitsPerSample:(#[ 1 ]);
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    75
                samplesPerPixel:(1);
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    76
                bits:(ByteArray 
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    77
                            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
    78
                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
    79
                mask:((ImageMask new)
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    80
                            width:15;
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    81
                            height:14;
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:'@@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
    84
                            yourself);
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    85
                yourself
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    86
        ]
4508
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    87
! !
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    88
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    89
!Windows8ToolbarIconLibrary class methodsFor:'documentation'!
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    90
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    91
version
5037
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    92
    ^ '$Header: /cvs/stx/stx/libwidg/Windows8ToolbarIconLibrary.st,v 1.3 2014-05-23 08:18:10 stefan Exp $'
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
version_CVS
5037
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    96
    ^ '$Header: /cvs/stx/stx/libwidg/Windows8ToolbarIconLibrary.st,v 1.3 2014-05-23 08:18:10 stefan Exp $'
4508
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    97
! !
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    98