Windows8ToolbarIconLibrary.st
author Stefan Vogel <sv@exept.de>
Wed, 16 May 2018 08:37:31 +0200
changeset 6320 d52325b32f05
parent 6049 912263613f7d
child 6763 c57d17283c6f
permissions -rw-r--r--
#REFACTORING by stefan class: DialogBox class changed: #initialize #modifyingBoxWith:do: fix return value
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
6049
912263613f7d #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 5171
diff changeset
     1
"
912263613f7d #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 5171
diff changeset
     2
 COPYRIGHT (c) 2013 by eXept Software AG
912263613f7d #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 5171
diff changeset
     3
              All Rights Reserved
912263613f7d #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 5171
diff changeset
     4
912263613f7d #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 5171
diff changeset
     5
 This software is furnished under a license and may be used
912263613f7d #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 5171
diff changeset
     6
 only in accordance with the terms of that license and with the
912263613f7d #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 5171
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
912263613f7d #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 5171
diff changeset
     8
 be provided or otherwise made available to, or used by, any
912263613f7d #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 5171
diff changeset
     9
 other person.  No title to or ownership of the software is
912263613f7d #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 5171
diff changeset
    10
 hereby transferred.
912263613f7d #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 5171
diff changeset
    11
"
4508
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
"{ Package: 'stx:libwidg' }"
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
6049
912263613f7d #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 5171
diff changeset
    14
"{ NameSpace: Smalltalk }"
912263613f7d #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 5171
diff changeset
    15
4508
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
VistaToolbarIconLibrary subclass:#Windows8ToolbarIconLibrary
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
	instanceVariableNames:''
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
	classVariableNames:''
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
	poolDictionaries:''
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
	category:'Interface-Smalltalk'
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
!
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
4547
Claus Gittinger <cg@exept.de>
parents: 4508
diff changeset
    23
!Windows8ToolbarIconLibrary class methodsFor:'documentation'!
Claus Gittinger <cg@exept.de>
parents: 4508
diff changeset
    24
6049
912263613f7d #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 5171
diff changeset
    25
copyright
912263613f7d #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 5171
diff changeset
    26
"
912263613f7d #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 5171
diff changeset
    27
 COPYRIGHT (c) 2013 by eXept Software AG
912263613f7d #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 5171
diff changeset
    28
              All Rights Reserved
912263613f7d #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 5171
diff changeset
    29
912263613f7d #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 5171
diff changeset
    30
 This software is furnished under a license and may be used
912263613f7d #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 5171
diff changeset
    31
 only in accordance with the terms of that license and with the
912263613f7d #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 5171
diff changeset
    32
 inclusion of the above copyright notice.   This software may not
912263613f7d #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 5171
diff changeset
    33
 be provided or otherwise made available to, or used by, any
912263613f7d #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 5171
diff changeset
    34
 other person.  No title to or ownership of the software is
912263613f7d #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 5171
diff changeset
    35
 hereby transferred.
912263613f7d #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 5171
diff changeset
    36
"
912263613f7d #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 5171
diff changeset
    37
!
912263613f7d #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 5171
diff changeset
    38
4547
Claus Gittinger <cg@exept.de>
parents: 4508
diff changeset
    39
documentation
Claus Gittinger <cg@exept.de>
parents: 4508
diff changeset
    40
"
Claus Gittinger <cg@exept.de>
parents: 4508
diff changeset
    41
    ToolbarIconLibrary := Windows8ToolbarIconLibrary
Claus Gittinger <cg@exept.de>
parents: 4508
diff changeset
    42
5171
9519ad3ccfb7 comment/format in: #documentation
Claus Gittinger <cg@exept.de>
parents: 5037
diff changeset
    43
    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
    44
9519ad3ccfb7 comment/format in: #documentation
Claus Gittinger <cg@exept.de>
parents: 5037
diff changeset
    45
    Never access this iconlibrary directly from an application -
9519ad3ccfb7 comment/format in: #documentation
Claus Gittinger <cg@exept.de>
parents: 5037
diff changeset
    46
    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
    47
    icon libs.
9519ad3ccfb7 comment/format in: #documentation
Claus Gittinger <cg@exept.de>
parents: 5037
diff changeset
    48
4547
Claus Gittinger <cg@exept.de>
parents: 4508
diff changeset
    49
    Notice and Warning:
Claus Gittinger <cg@exept.de>
parents: 4508
diff changeset
    50
        only redefine existing icons here; never add ionly to here.
Claus Gittinger <cg@exept.de>
parents: 4508
diff changeset
    51
        For every icon-method here, there MUST be a corresponding (albeit
Claus Gittinger <cg@exept.de>
parents: 4508
diff changeset
    52
        possibly ugly) icon-method in GenericToolBarIcon.
Claus Gittinger <cg@exept.de>
parents: 4508
diff changeset
    53
"
Claus Gittinger <cg@exept.de>
parents: 4508
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
!Windows8ToolbarIconLibrary class methodsFor:'image specs'!
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    57
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    58
downArrowEnteredIcon
5037
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    59
    <resource: #image>
4508
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    60
    "This resource specification was automatically generated
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    61
     by the ImageEditor of ST/X."
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    62
    "Do not manually edit this!! If it is corrupted,
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    63
     the ImageEditor may not be able to read the specification."
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    64
    "
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    65
     self downArrowEnteredIcon inspect
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    66
     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
    67
     Icon flushCachedIcons"
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    68
    
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    69
    ^ 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
    70
        ifAbsentPut:[
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    71
            (Depth1Image new)
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    72
                width:15;
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    73
                height:14;
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    74
                photometric:(#palette);
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    75
                bitsPerSample:(#[ 1 ]);
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    76
                samplesPerPixel:(1);
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    77
                bits:(ByteArray 
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    78
                            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
    79
                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
    80
                mask:((ImageMask new)
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    81
                            width:15;
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    82
                            height:14;
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    83
                            bits:(ByteArray 
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    84
                                        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
    85
                            yourself);
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    86
                yourself
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    87
        ]
4508
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    88
!
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    89
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    90
downArrowPassiveIcon
5037
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
    91
    <resource: #image>
4508
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    92
    "This resource specification was automatically generated
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    93
     by the ImageEditor of ST/X."
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    94
    "Do not manually edit this!! If it is corrupted,
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    95
     the ImageEditor may not be able to read the specification."
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    96
    "
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    97
     self downArrowPassiveIcon inspect
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    98
     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
    99
     Icon flushCachedIcons"
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
   100
    
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
   101
    ^ 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
   102
        ifAbsentPut:[
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
   103
            (Depth1Image new)
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
   104
                width:15;
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
   105
                height:14;
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
   106
                photometric:(#palette);
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
   107
                bitsPerSample:(#[ 1 ]);
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
   108
                samplesPerPixel:(1);
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
   109
                bits:(ByteArray 
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
   110
                            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
   111
                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
   112
                mask:((ImageMask new)
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
   113
                            width:15;
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
   114
                            height:14;
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
   115
                            bits:(ByteArray 
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
   116
                                        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
   117
                            yourself);
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
   118
                yourself
47d11d896636 Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents: 4547
diff changeset
   119
        ]
4508
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   120
! !
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   121
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   122
!Windows8ToolbarIconLibrary class methodsFor:'documentation'!
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   123
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   124
version
6049
912263613f7d #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 5171
diff changeset
   125
    ^ '$Header$'
4508
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   126
!
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   127
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   128
version_CVS
6049
912263613f7d #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 5171
diff changeset
   129
    ^ '$Header$'
4508
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   130
! !
a4ba60427d79 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   131