ToolApplicationModel.st
author tz
Tue, 27 Jan 1998 14:31:52 +0100
changeset 776 b533fbcadb8c
parent 772 6164c303afde
child 778 251895a3f266
permissions -rw-r--r--
window spec for info bar added
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
756
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
     1
"
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
     2
 COPYRIGHT (c) 1997 by eXept Software AG / Thomas Zwick
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
     3
              All Rights Reserved
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
     4
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
     5
 This software is furnished under a license and may be used
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
     6
 only in accordance with the terms of that license and with the
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
     7
 inclusion of the above copyright notice. This software may not
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
     8
 be provided or otherwise made available to, or used by, any
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
     9
 other person. No title to or ownership of the software is
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
    10
 hereby transferred.
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
    11
"
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
    12
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
    13
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
    14
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
    15
ApplicationModel subclass:#ToolApplicationModel
9c837d99f109 intitial checkin
tz
parents:
diff changeset
    16
	instanceVariableNames:'activeHelp timeBlock'
9c837d99f109 intitial checkin
tz
parents:
diff changeset
    17
	classVariableNames:''
9c837d99f109 intitial checkin
tz
parents:
diff changeset
    18
	poolDictionaries:''
9c837d99f109 intitial checkin
tz
parents:
diff changeset
    19
	category:'Interface-Advanced-Tools'
9c837d99f109 intitial checkin
tz
parents:
diff changeset
    20
!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
    21
756
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
    22
ToolApplicationModel class instanceVariableNames:'history clipboard'
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
    23
9c837d99f109 intitial checkin
tz
parents:
diff changeset
    24
"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
    25
 The following class instance variables are inherited by this class:
9c837d99f109 intitial checkin
tz
parents:
diff changeset
    26
9c837d99f109 intitial checkin
tz
parents:
diff changeset
    27
	ApplicationModel - ClassResources
9c837d99f109 intitial checkin
tz
parents:
diff changeset
    28
	Model - 
9c837d99f109 intitial checkin
tz
parents:
diff changeset
    29
	Object - 
9c837d99f109 intitial checkin
tz
parents:
diff changeset
    30
"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
    31
!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
    32
9c837d99f109 intitial checkin
tz
parents:
diff changeset
    33
!ToolApplicationModel class methodsFor:'documentation'!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
    34
756
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
    35
copyright
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
    36
"
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
    37
 COPYRIGHT (c) 1997 by eXept Software AG / Thomas Zwick
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
    38
              All Rights Reserved
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
    39
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
    40
 This software is furnished under a license and may be used
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
    41
 only in accordance with the terms of that license and with the
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
    42
 inclusion of the above copyright notice. This software may not
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
    43
 be provided or otherwise made available to, or used by, any
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
    44
 other person. No title to or ownership of the software is
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
    45
 hereby transferred.
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
    46
"
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
    47
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
    48
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
    49
!
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
    50
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
    51
documentation
9c837d99f109 intitial checkin
tz
parents:
diff changeset
    52
"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
    53
    Standard framework for tools; provides hooks for history management,
9c837d99f109 intitial checkin
tz
parents:
diff changeset
    54
    about menu, help menu etc.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
    55
    See concrete subclasses for examples.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
    56
9c837d99f109 intitial checkin
tz
parents:
diff changeset
    57
    [author:]
9c837d99f109 intitial checkin
tz
parents:
diff changeset
    58
        Thomas Zwick
9c837d99f109 intitial checkin
tz
parents:
diff changeset
    59
"
756
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
    60
!
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
    61
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
    62
history
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
    63
    "Created: / 10.1.1998 / 11:01:21 / tz"
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
    64
! !
9c837d99f109 intitial checkin
tz
parents:
diff changeset
    65
9c837d99f109 intitial checkin
tz
parents:
diff changeset
    66
!ToolApplicationModel class methodsFor:'accessing'!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
    67
9c837d99f109 intitial checkin
tz
parents:
diff changeset
    68
author
9c837d99f109 intitial checkin
tz
parents:
diff changeset
    69
9c837d99f109 intitial checkin
tz
parents:
diff changeset
    70
    ^((((self class withAllSuperclasses detect: [:metacls| metacls implements:#documentation]))
9c837d99f109 intitial checkin
tz
parents:
diff changeset
    71
        compiledMethodAt: #documentation) source readStream upToAll: '[author:]'; nextLine; nextLine) trimBlanks
9c837d99f109 intitial checkin
tz
parents:
diff changeset
    72
  
9c837d99f109 intitial checkin
tz
parents:
diff changeset
    73
!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
    74
9c837d99f109 intitial checkin
tz
parents:
diff changeset
    75
label
9c837d99f109 intitial checkin
tz
parents:
diff changeset
    76
9c837d99f109 intitial checkin
tz
parents:
diff changeset
    77
    |label|
9c837d99f109 intitial checkin
tz
parents:
diff changeset
    78
    label := ''.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
    79
    self name do:
9c837d99f109 intitial checkin
tz
parents:
diff changeset
    80
    [:c|
9c837d99f109 intitial checkin
tz
parents:
diff changeset
    81
        c isUppercase ifTrue: [label := label, $ ].
9c837d99f109 intitial checkin
tz
parents:
diff changeset
    82
        label := label, c
9c837d99f109 intitial checkin
tz
parents:
diff changeset
    83
    ].
9c837d99f109 intitial checkin
tz
parents:
diff changeset
    84
    ^label trimBlanks
9c837d99f109 intitial checkin
tz
parents:
diff changeset
    85
! !
9c837d99f109 intitial checkin
tz
parents:
diff changeset
    86
756
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
    87
!ToolApplicationModel class methodsFor:'clipboard'!
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
    88
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
    89
clipboard
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
    90
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
    91
    ^clipboard
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
    92
!
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
    93
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
    94
clipboard: anEditObject
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
    95
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
    96
    clipboard := anEditObject
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
    97
! !
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
    98
762
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
    99
!ToolApplicationModel class methodsFor:'help specs'!
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   100
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   101
helpSpec
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   102
    "return a dictionary filled with helpKey -> helptext associations.
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   103
     These are used by the activeHelp tool."
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   104
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   105
    "
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   106
    UIHelpTool openOnClass:ToolApplicationModel    
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   107
    "
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   108
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   109
  ^ super helpSpec addPairsFrom:#(
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   110
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   111
#aboutSTX
763
251e824cb638 grammar changes
tz
parents: 762
diff changeset
   112
'Opens an InfoBox about running ST/X.'
762
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   113
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   114
#aboutThisAppliaction
763
251e824cb638 grammar changes
tz
parents: 762
diff changeset
   115
'Opens an InfoBox about release and author of current application.'
762
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   116
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   117
#fileExit
763
251e824cb638 grammar changes
tz
parents: 762
diff changeset
   118
'Exits current application.'
762
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   119
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   120
#helpClassDocumentation
763
251e824cb638 grammar changes
tz
parents: 762
diff changeset
   121
'Opens a HTML-browser with a class documentation for current application.'
762
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   122
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   123
#helpProgrammersGuide
763
251e824cb638 grammar changes
tz
parents: 762
diff changeset
   124
'Opens a HTML-browser with a programmers guide.'
762
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   125
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   126
#helpShowHelp
763
251e824cb638 grammar changes
tz
parents: 762
diff changeset
   127
'Toggles on/off displaying help texts.'
762
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   128
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   129
#helpTutorial
763
251e824cb638 grammar changes
tz
parents: 762
diff changeset
   130
'Opens a HTML-browser with a tutorial for beginners.'
762
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   131
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   132
)
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   133
! !
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   134
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   135
!ToolApplicationModel class methodsFor:'history'!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   136
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   137
getHistory
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   138
761
cc0404f8aec6 #getHistory changed because here #? doesn't work correctly
tz
parents: 760
diff changeset
   139
    history isNil ifTrue: [history := OrderedCollection new].
cc0404f8aec6 #getHistory changed because here #? doesn't work correctly
tz
parents: 760
diff changeset
   140
    ^history
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   141
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   142
!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   143
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   144
historyMaxSize
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   145
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   146
    ^10
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   147
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   148
! !
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   149
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   150
!ToolApplicationModel class methodsFor:'interface specs'!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   151
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   152
menuAbout
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   153
    "this window spec was automatically generated by the ST/X MenuEditor"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   154
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   155
    "do not manually edit this - the builder may not be able to
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   156
     handle the specification if its corrupted."
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   157
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   158
    "
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   159
     MenuEditor new openOnClass:ToolApplicationModel andSelector:#menuAbout
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   160
     (Menu new fromLiteralArrayEncoding:(ToolApplicationModel menuAbout)) startUp
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   161
    "
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   162
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   163
    <resource: #menu>
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   164
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   165
    ^
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   166
     
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   167
       #(#Menu
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   168
          
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   169
           #(
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   170
             #(#MenuItem
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   171
                #'label:' 'About Smalltalk/X...'
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   172
                #'value:' #openAbout
762
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   173
                #'activeHelpKey:' #aboutSTX
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   174
            )
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   175
             #(#MenuItem
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   176
                #'label:' '-'
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   177
            )
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   178
             #(#MenuItem
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   179
                #'label:' 'About This Application...'
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   180
                #'value:' #openAboutThisApplication
762
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   181
                #'activeHelpKey:' #aboutThisAppliaction
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   182
            )
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   183
          ) nil
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   184
          nil
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   185
      )
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   186
!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   187
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   188
menuHelp
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   189
    "this window spec was automatically generated by the ST/X MenuEditor"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   190
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   191
    "do not manually edit this - the builder may not be able to
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   192
     handle the specification if its corrupted."
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   193
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   194
    "
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   195
     MenuEditor new openOnClass:ToolApplicationModel andSelector:#menuHelp
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   196
     (Menu new fromLiteralArrayEncoding:(ToolApplicationModel menuHelp)) startUp
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   197
    "
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   198
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   199
    <resource: #menu>
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   200
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   201
    ^
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   202
     
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   203
       #(#Menu
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   204
          
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   205
           #(
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   206
             #(#MenuItem
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   207
                #'label:' 'Tutorial'
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   208
                #'value:' #openTutorial
762
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   209
                #'activeHelpKey:' #helpTutorial
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   210
            )
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   211
             #(#MenuItem
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   212
                #'label:' 'Programmer''s Guide'
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   213
                #'value:' #openProgrammersGuide
762
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   214
                #'activeHelpKey:' #helpProgrammersGuide
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   215
            )
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   216
             #(#MenuItem
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   217
                #'label:' '-'
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   218
            )
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   219
             #(#MenuItem
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   220
                #'label:' 'Class Documentation'
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   221
                #'value:' #openClassDocumentation
762
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   222
                #'activeHelpKey:' #helpClassDocumentation
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   223
            )
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   224
             #(#MenuItem
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   225
                #'label:' '-'
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   226
            )
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   227
             #(#MenuItem
762
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   228
                #'label:' 'Show Help'
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   229
                #'value:' #'activeHelp:'
762
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   230
                #'activeHelpKey:' #helpShowHelp
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   231
                #'indication:' #activeHelp
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   232
            )
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   233
          ) nil
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   234
          nil
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   235
      )
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   236
!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   237
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   238
menuSettings
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   239
    "this window spec was automatically generated by the ST/X MenuEditor"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   240
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   241
    "do not manually edit this - the builder may not be able to
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   242
     handle the specification if its corrupted."
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   243
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   244
    "
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   245
     MenuEditor new openOnClass:ToolApplicationModel andSelector:#menuSettings
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   246
     (Menu new fromLiteralArrayEncoding:(ToolApplicationModel menuSettings)) startUp
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   247
    "
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   248
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   249
    <resource: #menu>
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   250
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   251
    ^
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   252
     
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   253
       #(#Menu
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   254
          
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   255
           #(
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   256
             #(#MenuItem
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   257
                #'label:' 'Language'
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   258
                #'value:' #languageSetting
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   259
            )
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   260
          ) nil
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   261
          nil
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   262
      )
758
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   263
!
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   264
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   265
windowSpecForCommit
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   266
    "this window spec was automatically generated by the ST/X UIPainter"
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   267
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   268
    "do not manually edit this - the painter/builder may not be able to
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   269
     handle the specification if its corrupted."
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   270
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   271
    "
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   272
     UIPainter new openOnClass:ToolApplicationModel andSelector:#windowSpecForCommit
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   273
     ToolApplicationModel new openInterface:#windowSpecForCommit
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   274
    "
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   275
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   276
    <resource: #canvas>
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   277
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   278
    ^
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   279
     
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   280
       #(#FullSpec
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   281
          #'window:' 
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   282
           #(#WindowSpec
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   283
              #'name:' 'unnamed canvas'
769
0fdaa6ecea6a commit buttons tabable
tz
parents: 768
diff changeset
   284
              #'layout:' #(#LayoutFrame 325 0 361 0 624 0 420 0)
758
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   285
              #'label:' 'unnamed canvas'
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   286
              #'min:' #(#Point 100 22)
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   287
              #'max:' #(#Point 1152 900)
769
0fdaa6ecea6a commit buttons tabable
tz
parents: 768
diff changeset
   288
              #'bounds:' #(#Rectangle 325 361 625 421)
758
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   289
              #'usePreferredExtent:' false
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   290
          )
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   291
          #'component:' 
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   292
           #(#SpecCollection
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   293
              #'collection:' 
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   294
               #(
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   295
                 #(#ActionButtonSpec
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   296
                    #'name:' 'cancelButton'
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   297
                    #'layout:' #(#LayoutFrame 5 0 0 0 -2 0.5 0 1)
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   298
                    #'label:' 'Cancel'
769
0fdaa6ecea6a commit buttons tabable
tz
parents: 768
diff changeset
   299
                    #'tabable:' true
758
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   300
                    #'model:' #cancel
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   301
                    #'enableChannel:' #valueOfEnablingCommitButtons
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   302
                )
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   303
                 #(#ActionButtonSpec
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   304
                    #'name:' 'okButton'
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   305
                    #'layout:' #(#LayoutFrame 2 0.5 0 0.0 -5 1 0 1.0)
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   306
                    #'label:' 'OK'
769
0fdaa6ecea6a commit buttons tabable
tz
parents: 768
diff changeset
   307
                    #'tabable:' true
758
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   308
                    #'model:' #accept
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   309
                    #'enableChannel:' #valueOfEnablingCommitButtons
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   310
                )
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   311
              )
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   312
          )
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   313
      )
760
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   314
!
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   315
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   316
windowSpecForCommitWithoutChannels
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   317
    "this window spec was automatically generated by the ST/X UIPainter"
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   318
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   319
    "do not manually edit this - the painter/builder may not be able to
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   320
     handle the specification if its corrupted."
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   321
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   322
    "
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   323
     UIPainter new openOnClass:ToolApplicationModel andSelector:#windowSpecForCommitWithoutChannels
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   324
     ToolApplicationModel new openInterface:#windowSpecForCommitWithoutChannels
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   325
    "
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   326
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   327
    <resource: #canvas>
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   328
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   329
    ^
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   330
     
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   331
       #(#FullSpec
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   332
          #'window:' 
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   333
           #(#WindowSpec
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   334
              #'name:' 'unnamed canvas'
769
0fdaa6ecea6a commit buttons tabable
tz
parents: 768
diff changeset
   335
              #'layout:' #(#LayoutFrame 418 0 386 0 717 0 445 0)
760
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   336
              #'label:' 'unnamed canvas'
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   337
              #'min:' #(#Point 100 22)
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   338
              #'max:' #(#Point 1152 900)
769
0fdaa6ecea6a commit buttons tabable
tz
parents: 768
diff changeset
   339
              #'bounds:' #(#Rectangle 418 386 718 446)
760
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   340
              #'usePreferredExtent:' false
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   341
          )
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   342
          #'component:' 
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   343
           #(#SpecCollection
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   344
              #'collection:' 
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   345
               #(
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   346
                 #(#ActionButtonSpec
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   347
                    #'name:' 'cancelButton'
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   348
                    #'layout:' #(#LayoutFrame 5 0 0 0 -2 0.5 0 1)
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   349
                    #'label:' 'Cancel'
769
0fdaa6ecea6a commit buttons tabable
tz
parents: 768
diff changeset
   350
                    #'tabable:' true
760
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   351
                    #'model:' #cancel
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   352
                )
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   353
                 #(#ActionButtonSpec
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   354
                    #'name:' 'okButton'
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   355
                    #'layout:' #(#LayoutFrame 2 0.5 0 0.0 -5 1 0 1.0)
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   356
                    #'label:' 'OK'
769
0fdaa6ecea6a commit buttons tabable
tz
parents: 768
diff changeset
   357
                    #'tabable:' true
760
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   358
                    #'model:' #accept
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   359
                )
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   360
              )
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   361
          )
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   362
      )
776
b533fbcadb8c window spec for info bar added
tz
parents: 772
diff changeset
   363
!
b533fbcadb8c window spec for info bar added
tz
parents: 772
diff changeset
   364
b533fbcadb8c window spec for info bar added
tz
parents: 772
diff changeset
   365
windowSpecForInfoBar
b533fbcadb8c window spec for info bar added
tz
parents: 772
diff changeset
   366
    "this window spec was automatically generated by the ST/X UIPainter"
b533fbcadb8c window spec for info bar added
tz
parents: 772
diff changeset
   367
b533fbcadb8c window spec for info bar added
tz
parents: 772
diff changeset
   368
    "do not manually edit this - the painter/builder may not be able to
b533fbcadb8c window spec for info bar added
tz
parents: 772
diff changeset
   369
     handle the specification if its corrupted."
b533fbcadb8c window spec for info bar added
tz
parents: 772
diff changeset
   370
b533fbcadb8c window spec for info bar added
tz
parents: 772
diff changeset
   371
    "
b533fbcadb8c window spec for info bar added
tz
parents: 772
diff changeset
   372
     UIPainter new openOnClass:ToolApplicationModel andSelector:#windowSpecForInfoBar
b533fbcadb8c window spec for info bar added
tz
parents: 772
diff changeset
   373
     ToolApplicationModel new openInterface:#windowSpecForInfoBar
b533fbcadb8c window spec for info bar added
tz
parents: 772
diff changeset
   374
    "
b533fbcadb8c window spec for info bar added
tz
parents: 772
diff changeset
   375
b533fbcadb8c window spec for info bar added
tz
parents: 772
diff changeset
   376
    <resource: #canvas>
b533fbcadb8c window spec for info bar added
tz
parents: 772
diff changeset
   377
b533fbcadb8c window spec for info bar added
tz
parents: 772
diff changeset
   378
    ^
b533fbcadb8c window spec for info bar added
tz
parents: 772
diff changeset
   379
     
b533fbcadb8c window spec for info bar added
tz
parents: 772
diff changeset
   380
       #(#FullSpec
b533fbcadb8c window spec for info bar added
tz
parents: 772
diff changeset
   381
          #'window:' 
b533fbcadb8c window spec for info bar added
tz
parents: 772
diff changeset
   382
           #(#WindowSpec
b533fbcadb8c window spec for info bar added
tz
parents: 772
diff changeset
   383
              #'name:' 'Image Editor'
b533fbcadb8c window spec for info bar added
tz
parents: 772
diff changeset
   384
              #'layout:' #(#LayoutFrame 173 0 418 0 672 0 763 0)
b533fbcadb8c window spec for info bar added
tz
parents: 772
diff changeset
   385
              #'label:' 'Image Editor'
b533fbcadb8c window spec for info bar added
tz
parents: 772
diff changeset
   386
              #'min:' #(#Point 400 320)
b533fbcadb8c window spec for info bar added
tz
parents: 772
diff changeset
   387
              #'max:' #(#Point 1152 900)
b533fbcadb8c window spec for info bar added
tz
parents: 772
diff changeset
   388
              #'bounds:' #(#Rectangle 173 418 673 764)
b533fbcadb8c window spec for info bar added
tz
parents: 772
diff changeset
   389
              #'menu:' #menu
b533fbcadb8c window spec for info bar added
tz
parents: 772
diff changeset
   390
              #'usePreferredExtent:' false
b533fbcadb8c window spec for info bar added
tz
parents: 772
diff changeset
   391
          )
b533fbcadb8c window spec for info bar added
tz
parents: 772
diff changeset
   392
          #'component:' 
b533fbcadb8c window spec for info bar added
tz
parents: 772
diff changeset
   393
           #(#SpecCollection
b533fbcadb8c window spec for info bar added
tz
parents: 772
diff changeset
   394
              #'collection:' 
b533fbcadb8c window spec for info bar added
tz
parents: 772
diff changeset
   395
               #(
b533fbcadb8c window spec for info bar added
tz
parents: 772
diff changeset
   396
                 #(#LabelSpec
b533fbcadb8c window spec for info bar added
tz
parents: 772
diff changeset
   397
                    #'name:' 'infoLabel'
b533fbcadb8c window spec for info bar added
tz
parents: 772
diff changeset
   398
                    #'layout:' #(#LayoutFrame 0 0 0 0.0 -80 1 0 1.0)
b533fbcadb8c window spec for info bar added
tz
parents: 772
diff changeset
   399
                    #'labelChannel:' #valueOfInfoLabel
b533fbcadb8c window spec for info bar added
tz
parents: 772
diff changeset
   400
                    #'level:' 1
b533fbcadb8c window spec for info bar added
tz
parents: 772
diff changeset
   401
                    #'adjust:' #left
b533fbcadb8c window spec for info bar added
tz
parents: 772
diff changeset
   402
                )
b533fbcadb8c window spec for info bar added
tz
parents: 772
diff changeset
   403
                 #(#LabelSpec
b533fbcadb8c window spec for info bar added
tz
parents: 772
diff changeset
   404
                    #'name:' 'timeLabel'
b533fbcadb8c window spec for info bar added
tz
parents: 772
diff changeset
   405
                    #'layout:' #(#LayoutFrame -80 1 0 0.0 0 1.0 0 1.0)
b533fbcadb8c window spec for info bar added
tz
parents: 772
diff changeset
   406
                    #'labelChannel:' #valueOfTimeLabel
b533fbcadb8c window spec for info bar added
tz
parents: 772
diff changeset
   407
                    #'level:' 1
b533fbcadb8c window spec for info bar added
tz
parents: 772
diff changeset
   408
                    #'adjust:' #right
b533fbcadb8c window spec for info bar added
tz
parents: 772
diff changeset
   409
                )
b533fbcadb8c window spec for info bar added
tz
parents: 772
diff changeset
   410
              )
b533fbcadb8c window spec for info bar added
tz
parents: 772
diff changeset
   411
          )
b533fbcadb8c window spec for info bar added
tz
parents: 772
diff changeset
   412
      )
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   413
! !
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   414
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   415
!ToolApplicationModel class methodsFor:'resources'!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   416
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   417
downIcon
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   418
    "ImageEditor openOnClass:self andSelector:#downIcon"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   419
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   420
    <resource: #image>
772
6164c303afde enlarged (for cg) and redesigned (for all) icons
tz
parents: 769
diff changeset
   421
    ^(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString: 'UUT@AUUPUUT*%UUPUUT*%UUPUUT*%UUPUUT*%UUPUUT*%UUPUUT*%UUPUUT*%UUPUUT*%UUPUUT*%UUPUUT*%UUPUUT*%UUPUUT*%UUPUUT*%UUPUUT*%UUPUT@*$AUPUT***%UPUU***UUPUUZ*)UUPUUV*%UUPUUU*UUUPUUUYUUUP') ; colorMap:((OrderedCollection new add:(Color white); add:(Color black); add:(Color red:0.0 green:49.9962 blue:0.0); add:(Color red:100.0 green:0.0 blue:0.0); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString: '@O0@@O0@@O0@@O0@@O0@@O0@@O0@@O0@@O0@@O0@@O0@@O0@@O0@@O0@@O0@A?>@A?>@@?<@@_8@@O0@@G @@C@@') ; yourself); yourself!
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   422
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   423
downLeftIcon
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   424
    "ImageEditor openOnClass:self andSelector:#downLeftIcon"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   425
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   426
    <resource: #image>
772
6164c303afde enlarged (for cg) and redesigned (for all) icons
tz
parents: 769
diff changeset
   427
    ^(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString: 'UUUUUUUPUUUUU@@PUUUUUJ)PUUUUUJ)PUUUUUJ)PUUUUUJ)PUUUUUJ)PUUUUUJ)PUUUUUJ)PUUUUUJ)PUUAUUJ)PUT%UUJ)PUR%UUJ)PUJ$@@J)PT*****)PR*****)PV*****)PU*****)PUZ%UUUUPUV%UUUUPUU%UUUUPUUUUUUUP') ; colorMap:((OrderedCollection new add:(Color white); add:(Color black); add:(Color red:0.0 green:49.9962 blue:0.0); add:(Color red:100.0 green:0.0 blue:0.0); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString: '@@@@@@G8@@G8@@G8@@G8@@G8@@G8@@G8@@G8@@G8@0G8A0G8C0G8G??8O??8_??8_??8O??8G??8C0@@A0@@@0@@') ; yourself); yourself!
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   428
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   429
downRightIcon
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   430
    "ImageEditor openOnClass:self andSelector:#downRightIcon"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   431
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   432
    <resource: #image>
772
6164c303afde enlarged (for cg) and redesigned (for all) icons
tz
parents: 769
diff changeset
   433
    ^(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString: 'UUUUUUUPP@EUUUUPR*UUUUUPR*UUUUUPR*UUUUUPR*UUUUUPR*UUUUUPR*UUUUUPR*UUUUUPR*UUUUUPR*UUTEUPR*UUT!!UPR*UUT(UPR*P@@*EPR*****!!PR*****(PR*****)PR*****%PQUUUU*UPUUUUT)UPUUUUT%UPUUUUTUUP') ; colorMap:((OrderedCollection new add:(Color white); add:(Color black); add:(Color red:0.0 green:49.9962 blue:0.0); add:(Color red:100.0 green:0.0 blue:0.0); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString: '@@@@_ @@_ @@_ @@_ @@_ @@_ @@_ @@_ @@_ @@_ L@_ N@_ O@_?? _??0_??8_??8_??0_?? @@O@@@N@@@L@') ; yourself); yourself!
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   434
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   435
fileOutIcon
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   436
    "ImageEditor openOnClass:self andSelector:#fileOutIcon"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   437
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   438
    <resource: #image>
772
6164c303afde enlarged (for cg) and redesigned (for all) icons
tz
parents: 769
diff changeset
   439
    ^(Depth2Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString: '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B@@@@@@@B @@@@@@*(@@@@@BB @@@@@BB@@@@@@B@@@@@@@B@@@@@@@B@@@@@@@B@@@@@@@B@@@@@@@@@@@@@@@@@@@@@@@@@@@@D@@AQDEADQAAADDADQA@AD@ADQAAQDEADQAAADDADQAAA@@@PAAAAEE@@DA') ; colorMap:((OrderedCollection new add:(Color black); add:(Color white); add:(Color red:0.0 green:49.9962 blue:0.0); add:(Color red:100.0 green:0.0 blue:0.0); yourself)); mask:((Depth1Image new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString: '@@@@@@@@@@@@@@@@A@A.A%BDG2ADI%@$I@SDH@@@H@@@H@@@H@@@H@@@@@@@@@@@Z&KW_7_;[6_;[6_;_7_;[6_;[6L+I[@Q') ; yourself); yourself!
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   440
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   441
garbageCollectIcon
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   442
    "ImageEditor openOnClass:self andSelector:#garbageCollectIcon"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   443
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   444
    <resource: #image>
772
6164c303afde enlarged (for cg) and redesigned (for all) icons
tz
parents: 769
diff changeset
   445
    ^(Depth4Image new) width: 28; height: 28; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString: 'DQD@@@.;.1D[DQDQD@@QDP@@.;.;,[,@@ADP@ADQ@@.;@@.;.1@@@A@@DQD@B;@@@[.;DCH@D@@QDP@K,@@K.;,Q@2@P@ADQ@K.;@@DQDQDPL @@DQDKB;B0@QDQ@@@C@@@QD[B0B0,ADP@"H"@@@ADQ@@@@@@DQ@P@@@0@@DQ@@@@C 8@@ADQL3@@@Q@@@@;.;.@@DCL0H@@@@@@@@NC @@@PLC@ @@@@@@C.;.8@@A@0LB@@@@@@@@8N@@@@DC@0H@@@@@B (@@AD@@PLC@ @@@@****@LG@@A@0LB@@@@@JB CL3L0@DC@0H@@@B***(@0L@Q@SLCL @@@@(J@L3L3AD@L"H @@@@@QDQC@0QDQD@@@DP@@@ADQD@@@@QD@@@@@@@@ @B@ @B@@HB@ H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B@@H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@H@@@@@@@@b') ; colorMap:((OrderedCollection new add:(Color black); add:(Color white); add:(Color grey:49.9962); add:(Color grey:66.9978); add:(Color red:100.0 green:0.0 blue:0.0); add:(Color red:0.0 green:100.0 blue:0.0); add:(Color red:0.0 green:0.0 blue:100.0); add:(Color red:0.0 green:100.0 blue:100.0); add:(Color red:100.0 green:100.0 blue:0.0); add:(Color red:100.0 green:0.0 blue:100.0); add:(Color red:49.9977 green:0.0 blue:0.0); add:(Color red:0.0 green:49.9977 blue:0.0); add:(Color red:0.0 green:0.0 blue:49.9977); add:(Color red:0.0 green:49.9977 blue:49.9977); add:(Color red:49.9977 green:49.9977 blue:0.0); add:(Color red:49.9977 green:0.0 blue:49.9977); yourself)); mask:((Depth1Image new) width: 28; height: 28; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString: '@G1@@@C>0@@A1=0@@XO^@@FG30@C0@^@AZ@? @)P?8@@@O>@@B#? @C<?8@@TO>@@_#? @B ?8@E@O>@G9S? @)>?8@?JO>@EO3? @APO @@@@@@]7]7\DUUUDAEUUQ@U7]5\EUUUTAUUUU@]U]W\@@a') ; yourself); yourself!
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   446
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   447
icon
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   448
772
6164c303afde enlarged (for cg) and redesigned (for all) icons
tz
parents: 769
diff changeset
   449
    ^self stxIcon
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   450
!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   451
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   452
leftDownIcon
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   453
    "ImageEditor openOnClass:self andSelector:#leftDownIcon"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   454
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   455
    <resource: #image>
772
6164c303afde enlarged (for cg) and redesigned (for all) icons
tz
parents: 769
diff changeset
   456
    ^(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString: 'UUUUUUUPU@@@@@@PUJ****)PUJ****)PUJ****)PUJ****)PUJ)UUUUPUJ)UUUUPUJ)UUUUPUJ)UUUUPUJ)UUUUPUJ)UUUUPUJ)UUUUPUJ)UUUUP@J*@UUUPJ**)UUUPR**%UUUPT**UUUUPUJ)UUUUPUR%UUUUPUTUUUUUPUUUUUUUP') ; colorMap:((OrderedCollection new add:(Color white); add:(Color black); add:(Color red:0.0 green:49.9962 blue:0.0); add:(Color red:100.0 green:0.0 blue:0.0); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString: '@@@@G??8G??8G??8G??8G??8G??8G8@@G8@@G8@@G8@@G8@@G8@@G8@@??@@??@@_>@@O<@@G8@@C0@@A @@@@@@') ; yourself); yourself
6164c303afde enlarged (for cg) and redesigned (for all) icons
tz
parents: 769
diff changeset
   457
!
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   458
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   459
leftIcon
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   460
    "ImageEditor openOnClass:self andSelector:#leftIcon"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   461
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   462
    <resource: #image>
772
6164c303afde enlarged (for cg) and redesigned (for all) icons
tz
parents: 769
diff changeset
   463
    ^(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString: 'UUUUUUUPUUUUUUUPUUUUUUUPUUUUUUUPUUUUUUUPUTUUUUUPURUUUUUPUJUUUUUPT*P@@@@PR******PJ******PZ******PV******PU*UUUUUPUZUUUUUPUVUUUUUPUUUUUUUPUUUUUUUPUUUUUUUPUUUUUUUPUUUUUUUPUUUUUUUP') ; colorMap:((OrderedCollection new add:(Color white); add:(Color black); add:(Color red:0.0 green:49.9962 blue:0.0); add:(Color red:100.0 green:0.0 blue:0.0); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString: '@@@@@@@@@@@@@@@@@@@@A @@C @@G @@O??<_??<???<???<_??<O??<G @@C @@A @@@@@@@@@@@@@@@@@@@@@@') ; yourself); yourself
6164c303afde enlarged (for cg) and redesigned (for all) icons
tz
parents: 769
diff changeset
   464
!
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   465
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   466
leftUpIcon
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   467
    "ImageEditor openOnClass:self andSelector:#leftUpIcon"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   468
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   469
    <resource: #image>
772
6164c303afde enlarged (for cg) and redesigned (for all) icons
tz
parents: 769
diff changeset
   470
    ^(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString: 'UUUUUUUPUTUUUUUPUR%UUUUPUJ)UUUUPT**UUUUPR**%UUUPJ**)UUUP%Z)UUUUPUJ)UUUUPUJ)UUUUPUJ)UUUUPUJ)UUUUPUJ)UUUUPUJ)UUUUPUJ)UUUUPUJ)@@@@PUJ****)PUJ****)PUJ****)PUJ****)PUEUUUUUPUUUUUUUP') ; colorMap:((OrderedCollection new add:(Color white); add:(Color black); add:(Color red:0.0 green:49.9962 blue:0.0); add:(Color red:100.0 green:0.0 blue:0.0); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString: '@@@@A @@C0@@G8@@O<@@_>@@??@@??@@G8@@G8@@G8@@G8@@G8@@G8@@G8@@G??8G??8G??8G??8G??8G??8@@@@') ; yourself); yourself!
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   471
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   472
loadIcon
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   473
    "ImageEditor openOnClass:self andSelector:#loadIcon"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   474
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   475
    <resource: #image>
772
6164c303afde enlarged (for cg) and redesigned (for all) icons
tz
parents: 769
diff changeset
   476
    ^(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString: 'UUUUUUUPUUUUU?UPUUUUW*5PU???>*/PU:****)PUUUUUUZPP@@@@@EPS?????&PS?????%PS?????&PS?????%PT?????9PT?????9PT?????9PT?????9PT?????9PT?????9PUO????>PUO????>PUO????>PU:*****PUUUUUUUP') ; colorMap:(((Array new:4) at:1 put:((Color white)); at:2 put:((Color black)); at:3 put:((Color grey:49.9962)); at:4 put:((Color grey:66.9978)); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString: '@@G@@@O G??8O??<O??<_??<???<???<???<???<???<_??<_??<_??<_??<_??<_??<O??<O??<O??<O??<O??<') ; yourself); yourself!
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   477
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   478
newIcon
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   479
    "ImageEditor openOnClass:self andSelector:#newIcon"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   480
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   481
    <resource: #image>
772
6164c303afde enlarged (for cg) and redesigned (for all) icons
tz
parents: 769
diff changeset
   482
    ^(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString: '@@@@@@@@AUUUUP@@A????2@@A????2 @A????0@@A?????8@A?????8@A?????8@A?????8@A?????8@A?????8@A?????8@A?????8@A?????8@A?????8@A?????8@A?????8@A?????8@A?????8@A?????8@C*****(@@@@@@@@@') ; colorMap:(((Array new:4) at:1 put:((Color black)); at:2 put:((Color white)); at:3 put:((Color grey:49.9962)); at:4 put:((Color grey:66.9978)); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString: '_?>@_??@_?? _??0_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8') ; yourself); yourself!
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   483
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   484
removeIcon
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   485
    "ImageEditor openOnClass:self andSelector:#removeIcon"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   486
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   487
    <resource: #image>
772
6164c303afde enlarged (for cg) and redesigned (for all) icons
tz
parents: 769
diff changeset
   488
    ^(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString: '@@@@@@@@BUUUUP@@B/???2@@B+???2 @A*???0@@A:/??*8@A>+?>+8@A?*?:/8@A?:/*?8@A?>*+?8@A??*/?8@A??*/?8@A?>*+?8@A?:/*?8@A?*?:/8@A>+?>+8@A:/??*8@A*???:(@B+???>(@B/????(@B*****(@@@@@@@@@') ; colorMap:(((Array new:4) at:1 put:((Color black)); at:2 put:((Color white)); at:3 put:((Color grey:49.9962)); at:4 put:((Color grey:66.9978)); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString: '_?>@_??@_?? _??0_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8') ; yourself); yourself!
6164c303afde enlarged (for cg) and redesigned (for all) icons
tz
parents: 769
diff changeset
   489
6164c303afde enlarged (for cg) and redesigned (for all) icons
tz
parents: 769
diff changeset
   490
reviseAllButtonIcon
6164c303afde enlarged (for cg) and redesigned (for all) icons
tz
parents: 769
diff changeset
   491
    "ImageEditor openOnClass:self andSelector:#reviseAllButtonIcon"
6164c303afde enlarged (for cg) and redesigned (for all) icons
tz
parents: 769
diff changeset
   492
6164c303afde enlarged (for cg) and redesigned (for all) icons
tz
parents: 769
diff changeset
   493
    <resource: #image>
6164c303afde enlarged (for cg) and redesigned (for all) icons
tz
parents: 769
diff changeset
   494
    ^(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString: 'EUUU@@@@UVUY@@@@UY?6@@@@UW0=@@@@UWO=AUUPUWO-@@@@UW>=AUUPEY?6A@@P@BUXUUTP@A @P@DP@IPEUUDP@F@D@ADP@%@DEADP@X@DPQDPBT@DPADPA @DDADPEP@DAADPFP@D@QEPAP@DPQD@@P@DEAT@@@@D@A@@@@@EUU@@') ; colorMap:(((Array new:4) at:1 put:((Color white)); at:2 put:((Color black)); at:3 put:((Color grey:49.9962)); at:4 put:((Color grey:66.9978)); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString: '@@@@A>@@C?@@C?@@C?@@C?@@C?O<C?O<A>?<A ?<CC?<CC?<FC?<FC?<LC?<LC?<XC?<HC?<@C?0@C?0@C?@@C?@') ; yourself); yourself!
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   495
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   496
rightIcon
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   497
    "ImageEditor openOnClass:self andSelector:#rightIcon"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   498
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   499
    <resource: #image>
772
6164c303afde enlarged (for cg) and redesigned (for all) icons
tz
parents: 769
diff changeset
   500
    ^(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString: 'UUUUUUUPUUUUUUUPUUUUUUUPUUUUUUUPUUUUUUUPUUUUUEUPUUUUUIUPUUUUUJUP@@@@@J%PJ*****)PJ******PJ******PJ*****)PEUUUUZ%PUUUUUJUPUUUUUIUPUUUUUEUPUUUUUUUPUUUUUUUPUUUUUUUPUUUUUUUPUUUUUUUP') ; colorMap:((OrderedCollection new add:(Color white); add:(Color black); add:(Color red:0.0 green:49.9962 blue:0.0); add:(Color red:100.0 green:0.0 blue:0.0); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString: '@@@@@@@@@@@@@@@@@@@@@@F@@@G@@@G ???0???8???<???<???8???0@@G @@G@@@F@@@@@@@@@@@@@@@@@@@@@') ; yourself); yourself!
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   501
756
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
   502
runIcon
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
   503
    "ImageEditor openOnClass:self andSelector:#runIcon"
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
   504
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
   505
    <resource: #image>
772
6164c303afde enlarged (for cg) and redesigned (for all) icons
tz
parents: 769
diff changeset
   506
    ^(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString: '@@@@@@@@@@@@@@@@@N8@@@@@@@@@@@@N<^@@@@@@@@@@@@;.;.;.;.@@@@@@C/G @@@@8^@@@@@N<^@@@@@A@@@@@@;18@@@@@D@@@@@C.;.;.; @P@@@@@N<^@@@@@@@@@@@@;18@@@C!!G.@@@@C/G @@@@G>@@@@@N;.;.; @_8@@@@@;18@@@@A? @@@@C/G @@@@G>@@@@@N<^@@@@@_8@@@@@;.;.;.@A? @@@@C/G @@@@G>@@@@@N<^@@@@@_8@@@@@;18@@@@@@@@@@@C.; @@@@DQ@@@@C ; 8@@@A&X@@@C 8@8N@@@"H"@@@b') ; colorMap:((OrderedCollection new add:(Color black); add:(Color white); add:(Color red:100.0 green:0.0 blue:0.0); add:(Color red:0.0 green:100.0 blue:0.0); add:(Color red:0.0 green:0.0 blue:100.0); add:(Color red:0.0 green:100.0 blue:100.0); add:(Color red:100.0 green:100.0 blue:0.0); add:(Color red:100.0 green:0.0 blue:100.0); add:(Color red:49.9962 green:0.0 blue:0.0); add:(Color red:0.0 green:49.9962 blue:0.0); add:(Color red:0.0 green:0.0 blue:49.9962); add:(Color red:0.0 green:49.9962 blue:49.9962); add:(Color red:49.9962 green:49.9962 blue:0.0); add:(Color red:49.9962 green:0.0 blue:49.9962); add:(Color grey:49.9962); add:(Color grey:66.9978); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString: '@@@@C@D@G D@G?<@G N@G N@G N@G?.@G N@G _@G _@G?_@G _@G _@G _@G?_@G ? G!!?0G!!?0G!!.PKQNPT(_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself!
756
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
   507
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   508
saveIcon
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   509
    "ImageEditor openOnClass:self andSelector:#saveIcon"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   510
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   511
    <resource: #image>
772
6164c303afde enlarged (for cg) and redesigned (for all) icons
tz
parents: 769
diff changeset
   512
    ^(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString: 'AL3L3L@PM3L3L0?PML3L3L=PM3L3L0=PML3L3L?PM3L3L0?PML3L3L?PM3L3L0?PML3L3L?PM3L3L0?PML3L3L?PM@@@@@?PO??????PO??????PO??????PO=UUUU?PO=???[?PO=5O?Z?PO=6O?Z?PO=6O?Z?PO=0O?Z?P5U***U5P') ; colorMap:(((Array new:4) at:1 put:((Color white)); at:2 put:((Color black)); at:3 put:((Color grey:49.9962)); at:4 put:((Color grey:66.9978)); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString: '???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???8') ; yourself); yourself!
6164c303afde enlarged (for cg) and redesigned (for all) icons
tz
parents: 769
diff changeset
   513
6164c303afde enlarged (for cg) and redesigned (for all) icons
tz
parents: 769
diff changeset
   514
saveImageIcon
6164c303afde enlarged (for cg) and redesigned (for all) icons
tz
parents: 769
diff changeset
   515
    "ImageEditor openOnClass:self andSelector:#saveImageIcon"
6164c303afde enlarged (for cg) and redesigned (for all) icons
tz
parents: 769
diff changeset
   516
6164c303afde enlarged (for cg) and redesigned (for all) icons
tz
parents: 769
diff changeset
   517
    <resource: #image>
6164c303afde enlarged (for cg) and redesigned (for all) icons
tz
parents: 769
diff changeset
   518
    ^(Depth2Image new) width: 28; height: 28; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'UPSL3L0A@ET7L3L0?PAUML3L3OT@US\3L3C5@ET43L3L?PAUM3L3LO4@USSL3L3=@ET7L3L0?PAUML3L3O4@US\3L3C=@ET43L3L?PAUM@@@@O4@US?????=@ET?UUUU?PAUO7??6?4@US=T?=+=@ET?ZO?Z?PAUO4C?6/4@U]U**)WU@ET@@@@@@@AUUUUUUUUU%Y%UUUTE%%UUUUTU)UEUUUUEUUUUUUVYUUTEUTUUUUDUAUUUUUUQUPUUVUUUUUTU%P@a'); colorMap:(((Array new:4) at:1 put:((Color white)); at:2 put:((Color black)); at:3 put:((Color grey:49.9962)); at:4 put:((Color grey:66.9978)); yourself)); mask:((Depth1Image new) width: 28; height: 28; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'C???@@???0@O??<@C???@@???0@O??<@C???@@???0@O??<@C???@@???0@O??<@C???@@???0@O??<@C???@@???0@O??<@C??>@@@@@@@@@@@@;*9R<H*(W)BJ*E:@S.9R,B)HT)@*REJP:$9R<@@a'); yourself); yourself!
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   519
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   520
searchIcon
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   521
    "ImageEditor openOnClass:self andSelector:#searchIcon"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   522
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   523
    <resource: #image>
772
6164c303afde enlarged (for cg) and redesigned (for all) icons
tz
parents: 769
diff changeset
   524
    ^(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString: '@@@@@@@@@@@@@@@@CV*@MZ(@@@@@@@@@CV*@MZ(@CV*@MZ(@CV*@MZ(@CV*@MZ(@CV*@MZ(@CV*@MZ(@CV*JMZ(@CV(@AZ(@CV(6!!Z(@CV(@AZ(@CV*@MZ(@@@@@@@@@@MZ 5Z@@@@@@@@@@@A(@A(@@@@@@@@@@@M*@M*@@@@@@@@@@') ; colorMap:((OrderedCollection new add:(Color black); add:(Color grey:74.5083); add:(Color grey:49.9962); add:(Color white); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString: '@@@@_<?8_<?8_<?8_<?8_<?8_<?8_<?8_<?8_??8_??8_??8_??8_??8_??8_??8G?? G?? C8_@C8_@G<? G<? ') ; yourself); yourself!
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   525
762
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   526
startChangesBrowserIcon
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   527
    "ImageEditor openOnClass:self andSelector:#startChangesBrowserIcon"
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   528
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   529
    <resource: #image>
772
6164c303afde enlarged (for cg) and redesigned (for all) icons
tz
parents: 769
diff changeset
   530
    ^(Depth2Image new) width: 28; height: 28; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString: '@@@@@@@@@@@@@B****@@@@@@@@@ @@@B****H@@@@@@@@"@@@C????H @@@@@@@2H@@C????L"@@@@@@@3H@@AUUUUL2@@@@@@@SL@@AUUUUD3@@@_=UUQL@@@EUUUTS@@@A]7UUD@@@@U7]5Q@@@@E7]5T@@@@AUUUU@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BH@@@@@@@@LB@L@@@@@@@@@@@@@@@@J@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@a') ; colorMap:(((Array new:4) at:1 put:((Color black)); at:2 put:((Color white)); at:3 put:((Color grey:49.9962)); at:4 put:((Color grey:66.9978)); yourself)); mask:((Depth1Image new) width: 28; height: 28; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString: '@@??8@@O?>@@O?? @C??8@C??>@@??? @???8@O??>@O??? C??? C???8@???8@O??>@C??>@@??? @O?? @C??8@@??8@@O?>@@@@@@@@@@@@@Z.$7LH+-YDBJ+TQ@#.=WHH*+UABJ*5PPZ*$7X@@a') ; yourself); yourself!
762
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   531
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   532
startFileBrowserIcon
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   533
    "ImageEditor openOnClass:self andSelector:#startFileBrowserIcon"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   534
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   535
    <resource: #image>
772
6164c303afde enlarged (for cg) and redesigned (for all) icons
tz
parents: 769
diff changeset
   536
    ^(Depth4Image new) width: 28; height: 28; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@CLA&Y&Y&Y&X@@@@@@@@L0F@@@@@@A @@@@@@@@3@XN;.;.8F@@@@@@@@CLA ;.@@@@@@@@@@@@@L0FC.8O[6=/[0@@@@@@3@X@; [6=/[6@@@@@@CLA DNC6<@@F<@@@@@@L0F@A@F= [0= @@@@@@3@X@@P=/[6=/@@@@@@CLA @@A/[6=/X@@@@@@L0FC0@O[6=/[0@@@@@@3@XF<@@@@@@@@@@@@@CLA = @@@@@@@@@@@@@L0FA/[6=/A @@@@@@@@3@XO[6=/XF@@@@@@@@CLA @@@@@@X@@@@@@@@L0FY&Y&Y&Y @@@@@@@@C@Y&Y&Y&Y&@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@N@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C @b'); colorMap:((OrderedCollection new add:(Color black); add:(Color white); add:(Color red:100.0 green:0.0 blue:0.0); add:(Color red:0.0 green:100.0 blue:0.0); add:(Color red:0.0 green:0.0 blue:100.0); add:(Color red:0.0 green:100.0 blue:100.0); add:(Color red:100.0 green:100.0 blue:0.0); add:(Color red:100.0 green:0.0 blue:100.0); add:(Color red:49.9962 green:0.0 blue:0.0); add:(Color red:0.0 green:49.9962 blue:0.0); add:(Color red:0.0 green:0.0 blue:49.9962); add:(Color red:0.0 green:49.9962 blue:49.9962); add:(Color red:49.9962 green:49.9962 blue:0.0); add:(Color red:49.9962 green:0.0 blue:49.9962); add:(Color grey:49.9962); add:(Color grey:66.9978); yourself)); mask:((Depth1Image new) width: 28; height: 28; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A??<@@_??@@G??0@A??<@@_??8@G??>@A??? @_??8@G??>@A??? @_??8@G??>@A??? @_??@@G??0@A??<@@_??@@G??0@@??<@@G??@@@@@@@G.P=0AADHP@PQBD@GDP8 AADHD@PQBA@DN^=0@@a'); yourself); yourself!
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   537
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   538
startImageEditorIcon
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   539
    "ImageEditor openOnClass:self andSelector:#startImageEditorIcon"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   540
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   541
    <resource: #image>
772
6164c303afde enlarged (for cg) and redesigned (for all) icons
tz
parents: 769
diff changeset
   542
    ^(Depth4Image new) width: 28; height: 28; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@M7]7]7]7]7]7]@@@@@@@@@@@@@@@@@@@@@@@@@"H"H"HDQEUVY @@@@@BH"H3L QDUUY&@@@@@@HA@#L2ADQUU&X@@@@@@"H"H"HH"I&W]0@@@@@BL3L3L "H&Y]7@@@@@@H"H"H"BH"Y%7\@@@@@@#L3L3HDQEUVY @@@@@BH"H"H QDUUY&@@@@@@H3L3L2ADQUU&X@@@@@@"H"H"HH"I&W]0@@@@@BL#L3L "H&Y]7@@@@@@H2L3L2BH"Y%7\@@@@@@"H"H"HBH"H"H @@@@@@@@@@@@@@@@@@@@@@@@H"H"H"H"H"H"H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C@0@0@0L@L@@@@@@@@@@0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@L@@@@@@@@b'); colorMap:((OrderedCollection new add:(Color black); add:(Color white); add:(Color grey:66.9978); add:(Color grey:49.9962); add:(Color red:100.0 green:0.0 blue:0.0); add:(Color red:0.0 green:100.0 blue:0.0); add:(Color red:0.0 green:0.0 blue:100.0); add:(Color red:0.0 green:100.0 blue:100.0); add:(Color red:100.0 green:100.0 blue:0.0); add:(Color red:100.0 green:0.0 blue:100.0); add:(Color red:49.9962 green:0.0 blue:0.0); add:(Color red:0.0 green:49.9962 blue:0.0); add:(Color red:0.0 green:0.0 blue:49.9962); add:(Color red:0.0 green:49.9962 blue:49.9962); add:(Color red:49.9962 green:49.9962 blue:0.0); add:(Color red:49.9962 green:0.0 blue:49.9962); yourself)); mask:((Depth1Image new) width: 28; height: 28; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'???8@O??>@C??? @???8@O??>PC???&@???90O??>^C???''0???90O??>TC???  ???8HO??>AC??? P???8@O??>@C??? @???8@@@@@@@@@@@@;[7/@D>%J@AJ)P @RK5.@D"%J@AH)R @:JW/@@@a'); yourself); yourself!
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   543
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   544
startMenuEditorIcon
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   545
    "ImageEditor openOnClass:self andSelector:#startMenuEditorIcon"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   546
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   547
    <resource: #image>
772
6164c303afde enlarged (for cg) and redesigned (for all) icons
tz
parents: 769
diff changeset
   548
    ^(Depth4Image new) width: 28; height: 28; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@DQDQDQDQDQDQD@@@@@@@@@@@@@@@@@@@@@@@@@QH"H DQHQD"H @@@@@ATBH"@RHBH H"@@@@@@H@H"HAT%UUUUT@@@@@@%H"H D%IRT%IP@@@@@BUQIU@UIRT%IR@@@@@@IRHBHAIRT%IRT@@@@@@%H"H ERT%IRT @@@@@BUQIU@RT%IRT%@@@@@@IRHBHAT%IRT%H@@@@@@%H"H D%IRT%IP@@@@@BUQIU@UIRT%IR@@@@@@H"HBHAIRT%IRT@@@@@@"H"H IRT%IRT @@@@@@@@@@@@@@@@@@@@@@@@H"H"H"H"H"H"H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@APT@@@@@@@@@@@@@@@@@T@@@@@@@@@@@@@@@@@@@@@@@@@T@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@T@T@@@@b'); colorMap:((OrderedCollection new add:(Color black); add:(Color white); add:(Color grey:66.9978); add:(Color red:100.0 green:100.0 blue:0.0); add:(Color red:0.0 green:49.9962 blue:49.9962); add:(Color grey:49.9962); add:(Color red:100.0 green:0.0 blue:0.0); add:(Color red:0.0 green:100.0 blue:0.0); add:(Color red:0.0 green:0.0 blue:100.0); add:(Color red:0.0 green:100.0 blue:100.0); add:(Color red:100.0 green:0.0 blue:100.0); add:(Color red:49.9962 green:0.0 blue:0.0); add:(Color red:0.0 green:49.9962 blue:0.0); add:(Color red:0.0 green:0.0 blue:49.9962); add:(Color red:49.9962 green:49.9962 blue:0.0); add:(Color red:49.9962 green:0.0 blue:0.0); yourself)); mask:((Depth1Image new) width: 28; height: 28; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'???8@O??>@C??? @???8@O??>PC???&@???90O??>^C???''0???90O??>TC???  ???8HO??>AC??? P???8@O??>@C??? @???8@@@@@@@@@@@@6=D$@O(YI@B*GRP@"9T$@H(WI@BJD2P@"=D<@@@a'); yourself); yourself!
6164c303afde enlarged (for cg) and redesigned (for all) icons
tz
parents: 769
diff changeset
   549
6164c303afde enlarged (for cg) and redesigned (for all) icons
tz
parents: 769
diff changeset
   550
startNewChangesBrowserIcon
6164c303afde enlarged (for cg) and redesigned (for all) icons
tz
parents: 769
diff changeset
   551
    "ImageEditor openOnClass:self andSelector:#startNewChangesBrowserIcon"
6164c303afde enlarged (for cg) and redesigned (for all) icons
tz
parents: 769
diff changeset
   552
6164c303afde enlarged (for cg) and redesigned (for all) icons
tz
parents: 769
diff changeset
   553
    <resource: #image>
6164c303afde enlarged (for cg) and redesigned (for all) icons
tz
parents: 769
diff changeset
   554
    ^(Depth2Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString: '@@@@@@@@@@@@@@@@B****** @@@@@@@@B******PB??????PB??????PBUUUUUUP@@@@@@@@B******PB??????PB??????PB??????PBUUUUUUP@@@@@@@@@@@@@@@@ @H$@ @HMDSDQMQSDDQDADAAD@PDAH@JDDQDADQPDDQDQDQ@ DQDQ PBADQDQEQQ') ; colorMap:(((Array new:4) at:1 put:((Color black)); at:2 put:((Color white)); at:3 put:((Color grey:49.9962)); at:4 put:((Color grey:66.9978)); yourself)); mask:((Depth1Image new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString: '@@@@_??>_??>_??>_??>_??>_??>_??>_??>_??>_??>_??>_??>_??>_??>@@@@5_W[????7?>[7??[7??=7??97??;J*+-') ; yourself); yourself!
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   555
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   556
startSourceCodeBrowserIcon
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   557
    "ImageEditor openOnClass:self andSelector:#startSourceCodeBrowserIcon"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   558
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   559
    <resource: #image>
772
6164c303afde enlarged (for cg) and redesigned (for all) icons
tz
parents: 769
diff changeset
   560
    ^(Depth2Image new) width: 28; height: 28; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString: '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@0LL@@CL@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CLL00@L@@@@a') ; colorMap:((OrderedCollection new add:(Color black); add:(Color white); add:(Color grey:66.9978); add:(Color grey:49.9962); yourself)); mask:((Depth1Image new) width: 28; height: 28; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString: '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@;4/\8H%JT(BIR%B@RT.P8B%JTH@)R%J@;7)\8@@a') ; yourself); yourself!
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   561
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   562
startSystemBrowserIcon
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   563
    "ImageEditor openOnClass:self andSelector:#startSystemBrowserIcon"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   564
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   565
    <resource: #image>
772
6164c303afde enlarged (for cg) and redesigned (for all) icons
tz
parents: 769
diff changeset
   566
    ^(Depth4Image new) width: 28; height: 28; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@ADQDQDQG0@@@@@@@@@@D"H"H"H.@@@@@@@@@@@RH"H"H"8@@@@@@@@@@O;.;.;.; @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@8@@@@@@@@@@@@@@@@@C @@@@@@@@@@@@@@@@@N@@@@@@@@@@@@@@@@@@@@@@@@DQDQDQG0@@@@@P;.;.@SL3L3L>@@@@@@@@@@@O;.;.;.8@@@@@8@@@@@@@@@@@@@@@@@C @@@@@@@@@@@@@@@@@N@@@@@@@@@@@@@@@@@@@@@@@@DQDQDQG0@@@@@P;.;.@VY&Y&Y.@@@@@@@@@@@O;.;.;.8@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@8@@@@N@NC @@8@@@C @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@8@@@@@@@@@8@C @@@@8b'); colorMap:((OrderedCollection new add:(Color black); add:(Color white); add:(Color red:100.0 green:0.0 blue:0.0); add:(Color red:0.0 green:100.0 blue:0.0); add:(Color red:0.0 green:0.0 blue:100.0); add:(Color red:0.0 green:100.0 blue:100.0); add:(Color red:100.0 green:100.0 blue:0.0); add:(Color red:100.0 green:0.0 blue:100.0); add:(Color red:49.9962 green:0.0 blue:0.0); add:(Color red:0.0 green:49.9962 blue:0.0); add:(Color red:0.0 green:0.0 blue:49.9962); add:(Color red:0.0 green:49.9962 blue:49.9962); add:(Color red:49.9962 green:49.9962 blue:0.0); add:(Color red:49.9962 green:0.0 blue:49.9962); add:(Color grey:49.9962); add:(Color grey:66.9978); yourself)); mask:((Depth1Image new) width: 28; height: 28; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'??0@@O?<@@C??@@@??0@@O?<@@C??@@@@ @@@@H@@@@B@?? A0O?8@_??>@G@?? @ O?8@H@@@@B@?? A0O?8@_??>@G@?? @@O?8@@@@@@@@@@@9O\7\IRTQDBD%DQ@!!OH''HHRQEABT$QPP99]7\@@a'); yourself); yourself!
762
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   567
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   568
startUIPainterIcon
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   569
    "ImageEditor openOnClass:self andSelector:#startUIPainterIcon"
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   570
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   571
    <resource: #image>
772
6164c303afde enlarged (for cg) and redesigned (for all) icons
tz
parents: 769
diff changeset
   572
    ^(Depth4Image new) width: 28; height: 28; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@DQDQDQDQDQDQD@@@@@@@@@@@@@@@@@@@@@@@@@3H"H DQHQD"H @@@@@CLBH"@RHBH H"@@@@@@H@H"HAT%UUUUT@@@@@@%H"H D%IRT%IP@@@@@BUSMU@UIRT%IR@@@@@@IRLBHAIRT%IRT@@@@@@%H"H ERT%IRT @@@@@BUSMU@RT%IRT%@@@@@@IRLBHAT%IRT%H@@@@@@%H"H D%IRT%IP@@@@@BUSMU@UIRT%IR@@@@@@H"LBHAIRT%IRT@@@@@@"H"H IRT%IRT @@@@@@@@@@@@@@@@@@@@@@@@H"H"H"H"H"H"H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@T@AP@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@T@@@AP@E@@@@@@@@@@@b'); colorMap:((OrderedCollection new add:(Color black); add:(Color white); add:(Color grey:66.9978); add:(Color red:100.0 green:100.0 blue:0.0); add:(Color red:0.0 green:49.9962 blue:49.9962); add:(Color grey:49.9962); add:(Color red:100.0 green:0.0 blue:0.0); add:(Color red:0.0 green:100.0 blue:0.0); add:(Color red:0.0 green:0.0 blue:100.0); add:(Color red:0.0 green:100.0 blue:100.0); add:(Color red:100.0 green:0.0 blue:100.0); add:(Color red:49.9962 green:0.0 blue:0.0); add:(Color red:0.0 green:49.9962 blue:0.0); add:(Color red:0.0 green:0.0 blue:49.9962); add:(Color red:49.9962 green:49.9962 blue:0.0); add:(Color red:49.9977 green:0.0 blue:0.0); yourself)); mask:((Depth1Image new) width: 28; height: 28; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'???8@O??>@C??? @???8@O??>PC???&@???90O??>^C???''8???90O??>TC???  ???8HO??>A#??? X???8@O??>@C??? @???8@@@@@@@@@@@@>QN@@H$Q@@BADP@@.QD@@H$Q@@BIDP@@>_N@@@@a'); yourself); yourself!
6164c303afde enlarged (for cg) and redesigned (for all) icons
tz
parents: 769
diff changeset
   573
6164c303afde enlarged (for cg) and redesigned (for all) icons
tz
parents: 769
diff changeset
   574
startWorkspaceIcon
6164c303afde enlarged (for cg) and redesigned (for all) icons
tz
parents: 769
diff changeset
   575
    "ImageEditor openOnClass:self andSelector:#startWorkspaceIcon"
6164c303afde enlarged (for cg) and redesigned (for all) icons
tz
parents: 769
diff changeset
   576
6164c303afde enlarged (for cg) and redesigned (for all) icons
tz
parents: 769
diff changeset
   577
    <resource: #image>
6164c303afde enlarged (for cg) and redesigned (for all) icons
tz
parents: 769
diff changeset
   578
    ^(Depth4Image new) width: 28; height: 28; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@M7]7]7]7]7]7]7]@@@@@@@@@@@@@@@@@@@@@@@QDQDQDQDQDQDQ@0@@@AUPUUUUAUAQDQDB@@@@EUAUUUTE@@DQDPH@@@@P@E@@UPUPTQDQ@ @@@AAPTEAUAUAQDQDB@@@@D@AP@ETET@DQDPH@@@@QDQDQDQDQEADQ@ @@@ADQDQDQDQDTPQDB@@@@DQDQDQDQDQQDDPH@@@@QDQDQDQDQEDDQ@ @@@ADQDQDQDQDQEADB@@@@DQDQDQDQDQDTDPH@@@@QDQDQDQDQDQDQ@0@@@@@@@@@@@@@@@@@@@@@@L"H"H"H"H"H"H0L@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C@@L@@C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C@@L@@@@@@@@@@b'); colorMap:((OrderedCollection new add:(Color black); add:(Color white); add:(Color grey:66.9978); add:(Color grey:49.9962); add:(Color red:100.0 green:0.0 blue:0.0); add:(Color red:0.0 green:100.0 blue:0.0); add:(Color red:0.0 green:0.0 blue:100.0); add:(Color red:0.0 green:100.0 blue:100.0); add:(Color red:100.0 green:100.0 blue:0.0); add:(Color red:100.0 green:0.0 blue:100.0); add:(Color red:49.9962 green:0.0 blue:0.0); add:(Color red:0.0 green:49.9962 blue:0.0); add:(Color red:0.0 green:0.0 blue:49.9962); add:(Color red:0.0 green:49.9962 blue:49.9962); add:(Color red:49.9962 green:49.9962 blue:0.0); add:(Color red:49.9962 green:0.0 blue:49.9962); yourself)); mask:((Depth1Image new) width: 28; height: 28; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'????@O???0C???<@????@O???0C???<@????@O???0C???<@????@O???0C???<@????@O???0C???<@????@O???0C???<@????@@@@@@@@@@@@ //R@HJJT BB"%P@$(/X@IJJU@BR"%H@[O)R@@@a'); yourself); yourself!
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   579
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   580
stxIcon
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   581
    "ImageEditor openOnClass:self andSelector:#stxIcon"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   582
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   583
    <resource: #image>
772
6164c303afde enlarged (for cg) and redesigned (for all) icons
tz
parents: 769
diff changeset
   584
    ^(Depth2Image new) width: 19; height: 19; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString: '@@@@@@L@@@@@@@@@@@@@@@T@@D@@AP@APP@AP@@@@@E@E@@@@EA@@@@@TT@C@@@U@@@@@AP@@@@@U@@@@@EA@@L@APA@@@@T@D@@@U@@@@@AT@@D@0@@@@@A@@@@@@@b') ; colorMap:((OrderedCollection new add:(Color grey:9.41024); add:(Color red:0.0 green:80.7828 blue:18.8205); add:(Color black); add:(Color white); yourself)); yourself
6164c303afde enlarged (for cg) and redesigned (for all) icons
tz
parents: 769
diff changeset
   585
!
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   586
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   587
upIcon
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   588
    "ImageEditor openOnClass:self andSelector:#upIcon"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   589
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   590
    <resource: #image>
772
6164c303afde enlarged (for cg) and redesigned (for all) icons
tz
parents: 769
diff changeset
   591
    ^(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString: 'UUUQUUUPUUUJUUUPUUT*%UUPUUR*)UUPUUJ**UUPUT***%UPUTV*%UUPUUT*%UUPUUT*%UUPUUT*%UUPUUT*%UUPUUT*%UUPUUT*%UUPUUT*%UUPUUT*%UUPUUT*%UUPUUT*%UUPUUT*%UUPUUT*%UUPUUT*%UUPUUT*%UUPUUTUUUUP') ; colorMap:((OrderedCollection new add:(Color white); add:(Color black); add:(Color red:0.0 green:49.9962 blue:0.0); add:(Color red:100.0 green:0.0 blue:0.0); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString: '@C@@@G @@O0@@_8@@?<@A?>@A?>@@O0@@O0@@O0@@O0@@O0@@O0@@O0@@O0@@O0@@O0@@O0@@O0@@O0@@O0@@O0@') ; yourself); yourself!
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   592
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   593
upRightIcon
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   594
    "ImageEditor openOnClass:self andSelector:#upRightIcon"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   595
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   596
    <resource: #image>
772
6164c303afde enlarged (for cg) and redesigned (for all) icons
tz
parents: 769
diff changeset
   597
    ^(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'UUUUTUUPUUUUT%UPUUUUT)UPP@@@@*UPR*****%PR*****)PR*****)PR*****%PR*UUU*UPR*UUT)UPR*UUT%UPR*UUTUUPR*UUUUUPR*UUUUUPR*UUUUUPR*UUUUUPR*UUUUUPR*UUUUUPR*UUUUUPR*UUUUUPQUUUUUUPUUUUUUUP'); colorMap:((OrderedCollection new add:(Color white); add:(Color black); add:(Color red:0.0 green:49.9962 blue:0.0); add:(Color red:100.0 green:0.0 blue:0.0); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@L@@@N@@@O@_?? _??0_??8_??8_??0_?? _ O@_ N@_ L@_ @@_ @@_ @@_ @@_ @@_ @@_ @@_ @@_ @@@@@@'); yourself); yourself! !
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   598
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   599
!ToolApplicationModel methodsFor:'accessing - views'!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   600
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   601
menuToolbarView
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   602
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   603
    ^builder componentAt: #menuToolbarView
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   604
!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   605
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   606
preferredExtent
760
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   607
    "preferred extent of my window; top menu and top toolbar (named by 'menuToolbar')
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   608
     will be considered"
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   609
760
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   610
    |window menuPanel menuToolbarView preferredExtentOfWindow|
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   611
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   612
    window          := self builder window. 
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   613
    menuPanel       := window subViews first.
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   614
    menuToolbarView := self menuToolbarView.
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   615
760
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   616
    preferredExtentOfWindow := window extent.
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   617
    menuPanel class = MenuPanel ifTrue: [preferredExtentOfWindow := preferredExtentOfWindow max: menuPanel preferredExtent].
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   618
    menuToolbarView notNil      ifTrue: [preferredExtentOfWindow := preferredExtentOfWindow max: menuToolbarView preferredExtent].
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   619
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   620
    ^window minExtent max: (preferredExtentOfWindow min: window maxExtent)
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   621
! !
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   622
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   623
!ToolApplicationModel methodsFor:'action - settings'!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   624
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   625
languageSetting 
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   626
    "open a dialog on language related settings"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   627
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   628
    |listOfLanguages translatedLanguages switch box languageList flags|
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   629
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   630
    "
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   631
     get list of supported languages from the launchers resources ...
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   632
    "
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   633
    listOfLanguages := resources at:'LIST_OF_OFFERED_LANGUAGES' default:#('default').
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   634
    listOfLanguages := listOfLanguages asOrderedCollection.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   635
    translatedLanguages := listOfLanguages collect:[:lang | |item|
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   636
                                        item := resources at:lang.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   637
                                        item isString ifTrue:[
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   638
                                            item
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   639
                                        ] ifFalse:[
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   640
                                            item at:1
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   641
                                        ]
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   642
                                ].
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   643
    flags := listOfLanguages collect:[:lang | |item|
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   644
                                        item := resources at:lang.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   645
                                        item isArray ifTrue:[
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   646
                                            item at:2
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   647
                                        ] ifFalse:[
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   648
                                            nil
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   649
                                        ]
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   650
                                ].
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   651
    flags := flags collect:[:nm | nm notNil ifTrue:[Image fromFile:nm] ifFalse:[nil]].
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   652
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   653
    languageList := translatedLanguages with:flags collect:[:lang :flag |
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   654
                                LabelAndIcon icon:flag string:lang.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   655
                        ].
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   656
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   657
    box := ListSelectionBox title:(resources string:'LANG_MSG') withCRs.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   658
    box label:(resources string:'Language selection').
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   659
    box list:languageList.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   660
    box initialText:(Language).
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   661
    box action:[:newLanguage |
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   662
        self withWaitCursorDo:[
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   663
            |fontPref idx language oldLanguage enc answer matchingFonts|
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   664
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   665
            idx := translatedLanguages indexOf:newLanguage withoutSeparators.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   666
            idx ~~ 0 ifTrue:[
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   667
                language := listOfLanguages at:idx
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   668
            ] ifFalse:[
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   669
                language := newLanguage
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   670
            ].
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   671
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   672
            "/ check if the new language needs a differently encoded font;
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   673
            "/ ask user to switch font and allow cancellation.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   674
            "/ Otherwise, you are left with unreadable menu & button items ...
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   675
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   676
            oldLanguage := Smalltalk language.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   677
            Smalltalk language:language asSymbol.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   678
            ResourcePack flushCachedResourcePacks.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   679
            fontPref := self class classResources at:'PREFERRED_FONT_ENCODING'.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   680
            Smalltalk language:oldLanguage.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   681
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   682
            switch := true.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   683
            enc := MenuView defaultFont encoding.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   684
            (fontPref match:enc) ifFalse:[
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   685
                "/ look if there is one at all.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   686
                matchingFonts := Screen current listOfAvailableFonts select:[:f | fontPref match:f encoding].
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   687
                matchingFonts size == 0 ifTrue:[
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   688
                    (Dialog 
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   689
                        confirm:(resources 
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   690
                                    string:'your display does not offer any %1-encoded font.\\Change the language anyway ?\ (texts will probably be unreadable then)'
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   691
                                      with:fontPref) withCRs)
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   692
                    ifFalse:[
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   693
                        switch := false
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   694
                    ]
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   695
                ] ifFalse:[
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   696
                    answer := Dialog 
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   697
                                confirmWithCancel:(resources 
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   698
                                                        string:'menu font is not %1-encoded.\\Change it ?'
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   699
                                                        with:fontPref) withCRs
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   700
                                           labels:(resources
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   701
                                                        array:#('cancel' 'no' 'yes'))
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   702
                                           default:3.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   703
                    answer isNil ifTrue:[
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   704
                        switch := false
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   705
                    ] ifFalse:[
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   706
                        answer ifTrue:[
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   707
                            switch := (self fontBoxForEncoding:fontPref)
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   708
                        ]
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   709
                    ].
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   710
                ].
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   711
            ].
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   712
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   713
            switch ifTrue:[
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   714
                Smalltalk language:language asSymbol.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   715
                ResourcePack flushCachedResourcePacks
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   716
            ].
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   717
        ].
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   718
        switch ifTrue:[
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   719
            self reOpen
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   720
        ]
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   721
    ].    
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   722
    box
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   723
        addHelpButtonFor:'Launcher/languageSetting.html'.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   724
    box open.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   725
    box destroy
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   726
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   727
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   728
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   729
! !
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   730
762
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   731
!ToolApplicationModel methodsFor:'active help'!
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   732
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   733
activeHelp
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   734
    "Answer whether active help is turned on/off"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   735
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   736
    ^activeHelp
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   737
!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   738
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   739
activeHelp: aValue
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   740
    "toggle active help"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   741
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   742
    (activeHelp := aValue)
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   743
        ifTrue: [ActiveHelp startFor: self]
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   744
        ifFalse: [ActiveHelp stopFor: self]
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   745
!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   746
762
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   747
defaultInfoLabel
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   748
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   749
    ^''
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   750
!
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   751
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   752
openAbout
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   753
    "show an about box"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   754
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   755
    |box|
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   756
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   757
    box := AboutBox new.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   758
    box autoHideAfter:10 with:[].
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   759
    box showAtCenter
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   760
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   761
!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   762
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   763
openAboutThisApplication
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   764
    "show an about this application box"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   765
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   766
    |rev box|
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   767
    rev := ''.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   768
    self class revision notNil ifTrue: [rev := '  (rev: ', self class revision printString, ')'].
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   769
    box := AboutBox title:
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   770
        '\The application\\' withCRs,
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   771
        (Text string: self class label emphasis: #bold), rev,
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   772
        '\\has been designed and implemented by \' withCRs,self class author,', eXept Software AG, Germany.  \\' withCRs.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   773
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   774
     box   label:'About This Application'.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   775
     box   autoHideAfter:10 with:[].
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   776
     box   showAtCenter.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   777
!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   778
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   779
openClassDocumentation
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   780
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   781
    Autoload autoloadFailedSignal handle:[:ex |
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   782
        self warn:'autoload failed.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   783
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   784
Check your source directory and/or 
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   785
the abbreviation file for the classes (correct) shortened name.'.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   786
        ex return.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   787
    ] do:[
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   788
        |text v|
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   789
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   790
        text := self class htmlDocumentation.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   791
        text notNil ifTrue:[
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   792
            v := HTMLDocumentView
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   793
                    openFullOnText:text 
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   794
                    inDirectory:(Smalltalk getSystemFileName:'doc/online/english/classDoc').
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   795
            v nameSpaceForExecution: self class nameSpace.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   796
        ]
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   797
    ]
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   798
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   799
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   800
!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   801
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   802
openProgrammersGuide
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   803
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   804
    |dir|
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   805
    ((dir := Smalltalk getSystemFileName: 'doc/online/english/programming/TOP.html') asFilename exists)
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   806
    ifTrue:
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   807
    [
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   808
        ^HTMLDocumentView openFullOnFile: dir
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   809
    ]
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   810
!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   811
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   812
openTutorial
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   813
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   814
    |dir|
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   815
    ((dir := Smalltalk getSystemFileName: 'doc/online/english/getstart/tutorial.html') asFilename exists)
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   816
    ifTrue:
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   817
    [
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   818
        ^HTMLDocumentView openFullOnFile: dir
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   819
    ]
762
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   820
!
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   821
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   822
showHelp:aHelpText for:view
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   823
    "display aHelpText in the info label or if present detour to masterApplication."
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   824
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   825
    self masterApplication notNil
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   826
    ifTrue:
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   827
    [
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   828
        ^masterApplication showHelp: aHelpText for:view
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   829
    ]
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   830
    ifFalse:
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   831
    [
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   832
        aHelpText isNil 
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   833
            ifTrue:  [self valueOfInfoLabel value: self defaultInfoLabel] 
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   834
            ifFalse: [self valueOfInfoLabel value: (aHelpText asString printString upTo: Character cr)].
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   835
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   836
        ^true
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   837
    ]
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   838
! !
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   839
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   840
!ToolApplicationModel methodsFor:'aspects'!
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   841
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   842
valueOfEnablingCommitButtons
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   843
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   844
    |holder|
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   845
    (holder := builder bindingAt:#valueOfEnablingCommitButtons) isNil ifTrue:[
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   846
        builder aspectAt:#valueOfEnablingCommitButtons put:(holder :=  false asValue).
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   847
    ].
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   848
    ^ holder
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   849
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   850
!
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   851
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   852
valueOfHavingClipboard
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   853
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   854
    |holder|
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   855
    (holder := builder bindingAt:#valueOfHavingClipboard) isNil ifTrue:[
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   856
        builder aspectAt:#valueOfHavingClipboard put:(holder :=  self class clipboard notNil asValue).
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   857
    ].
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   858
    ^ holder
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   859
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   860
!
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   861
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   862
valueOfInfoLabel
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   863
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   864
    |holder|
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   865
    (holder := builder bindingAt:#valueOfInfoLabel) isNil ifTrue:[
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   866
        builder aspectAt:#valueOfInfoLabel put:(holder :=  ValueHolder new).
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   867
    ].
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   868
    ^ holder
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   869
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   870
!
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   871
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   872
valueOfTimeLabel
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   873
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   874
    |holder|
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   875
    (holder := builder bindingAt:#valueOfTimeLabel) isNil ifTrue:[
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   876
        builder aspectAt:#valueOfTimeLabel put:(holder :=  ValueHolder new).
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   877
    ].
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   878
    ^ holder
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   879
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   880
! !
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   881
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   882
!ToolApplicationModel methodsFor:'clipboard'!
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   883
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   884
clipboard: anEditObject
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   885
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   886
    self class clipboard: anEditObject.
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   887
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   888
    self valueOfHavingClipboard value: anEditObject notNil
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   889
! !
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   890
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   891
!ToolApplicationModel methodsFor:'history'!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   892
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   893
addToHistory: aHistoryEntry
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   894
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   895
    self history remove: (self history detect: [:histEntry| histEntry key = aHistoryEntry key] ifNone: nil) ifAbsent: nil.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   896
    self history addFirst: aHistoryEntry.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   897
    [self history size > self class historyMaxSize] whileTrue: [self history removeLast]
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   898
!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   899
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   900
emptyHistory
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   901
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   902
    ^self history removeAll
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   903
!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   904
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   905
history
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   906
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   907
    ^self class getHistory
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   908
!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   909
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   910
menuHistory
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   911
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   912
    |menu a|
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   913
    menu := Menu new receiver: self.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   914
    (self history collect: [:histEntry| histEntry value]) asSet asOrderedCollection do:
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   915
    [:historyEntryType|    
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   916
        menu addItemGroup: ((a := self history select: [:histEntry| histEntry value = historyEntryType]) collect: [:histEntry|  MenuItem new label: histEntry key printString; value: histEntry value; argument: histEntry key]).
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   917
    ]. 
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   918
    menu addItem: (MenuItem new label: 'Empty History'; value: #emptyHistory).
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   919
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   920
    ^menu
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   921
!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   922
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   923
removeFromHistory: aHistoryEntry
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   924
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   925
    self history remove: (self history detect: [:histEntry| histEntry key = aHistoryEntry key] ifNone: nil) ifAbsent: nil.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   926
    [self history size > self class historyMaxSize] whileTrue: [self history removeLast]
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   927
! !
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   928
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   929
!ToolApplicationModel methodsFor:'startup / release'!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   930
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   931
close
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   932
756
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
   933
    self uninitialize.
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
   934
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   935
    super close
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   936
!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   937
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   938
closeRequest
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   939
756
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
   940
    self uninitialize.
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
   941
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   942
    super closeRequest
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   943
!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   944
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   945
initialize
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   946
762
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   947
    self activeHelp: true.
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   948
    timeBlock := nil.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   949
    timeBlock := [self showTime].
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   950
    self showTime
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   951
!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   952
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   953
open
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   954
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   955
    super open.
756
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
   956
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
   957
    self class allInstances size = 1 
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
   958
    ifTrue: 
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
   959
    [
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
   960
        self class classResources: nil.
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
   961
        self clipboard: nil
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
   962
    ].
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   963
    builder window label: self class label
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   964
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   965
!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   966
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   967
openInterface
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   968
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   969
    super openInterface.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   970
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   971
    self builder window extent: self preferredExtent
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   972
!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   973
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   974
reOpen
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   975
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   976
    self close.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   977
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   978
    self class open
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   979
!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   980
760
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   981
removeAllTemporalViews
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   982
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   983
    self builder namedComponents keys copy do: 
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   984
    [:comp| 
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   985
        (comp includesString: '_Temporal') ifTrue: [self builder namedComponents removeKey: comp]
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   986
    ]
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   987
!
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   988
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   989
restarted
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   990
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   991
    self initialize
756
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
   992
!
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
   993
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
   994
uninitialize
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
   995
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
   996
    self class allInstances size = 1 ifTrue: [self clipboard: nil].
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
   997
    activeHelp ifTrue: [ActiveHelp stopFor: self].
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
   998
    Processor removeTimedBlock:timeBlock.
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
   999
    timeBlock := nil.
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
  1000
! !
9c837d99f109 intitial checkin
tz
parents:
diff changeset
  1001
9c837d99f109 intitial checkin
tz
parents:
diff changeset
  1002
!ToolApplicationModel methodsFor:'window events'!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
  1003
9c837d99f109 intitial checkin
tz
parents:
diff changeset
  1004
showTime
9c837d99f109 intitial checkin
tz
parents:
diff changeset
  1005
9c837d99f109 intitial checkin
tz
parents:
diff changeset
  1006
    |hours minutes suffix|
9c837d99f109 intitial checkin
tz
parents:
diff changeset
  1007
    suffix := ' am '.  
9c837d99f109 intitial checkin
tz
parents:
diff changeset
  1008
    (hours := Time now hours) > 12 ifTrue: [hours := hours - 12].
9c837d99f109 intitial checkin
tz
parents:
diff changeset
  1009
    Time now hours >= 12 ifTrue: [suffix := ' pm '].
9c837d99f109 intitial checkin
tz
parents:
diff changeset
  1010
    (minutes := Time now minutes printString) size = 1 ifTrue: [minutes := '0', minutes printString].
9c837d99f109 intitial checkin
tz
parents:
diff changeset
  1011
    self valueOfTimeLabel value: hours printString, ':', minutes, suffix.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
  1012
    Processor addTimedBlock: timeBlock afterSeconds: 1
9c837d99f109 intitial checkin
tz
parents:
diff changeset
  1013
9c837d99f109 intitial checkin
tz
parents:
diff changeset
  1014
! !
9c837d99f109 intitial checkin
tz
parents:
diff changeset
  1015
9c837d99f109 intitial checkin
tz
parents:
diff changeset
  1016
!ToolApplicationModel class methodsFor:'documentation'!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
  1017
9c837d99f109 intitial checkin
tz
parents:
diff changeset
  1018
version
776
b533fbcadb8c window spec for info bar added
tz
parents: 772
diff changeset
  1019
    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.16 1998-01-27 13:31:52 tz Exp $'
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
  1020
! !