ToolApplicationModel.st
author tz
Fri, 23 Jan 1998 16:40:05 +0100
changeset 765 daef5a602301
parent 763 251e824cb638
child 768 5178394ec8f6
permissions -rw-r--r--
3D-style removed
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'
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   284
              #'layout:' #(#LayoutFrame 264 0 340 0 563 0 399 0)
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)
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   288
              #'bounds:' #(#Rectangle 264 340 564 400)
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'
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   299
                    #'model:' #cancel
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   300
                    #'enableChannel:' #valueOfEnablingCommitButtons
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   301
                )
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   302
                 #(#ActionButtonSpec
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   303
                    #'name:' 'okButton'
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   304
                    #'layout:' #(#LayoutFrame 2 0.5 0 0.0 -5 1 0 1.0)
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   305
                    #'label:' 'OK'
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   306
                    #'model:' #accept
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   307
                    #'enableChannel:' #valueOfEnablingCommitButtons
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   308
                )
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   309
              )
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   310
          )
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   311
      )
760
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   312
!
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   313
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   314
windowSpecForCommitWithoutChannels
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   315
    "this window spec was automatically generated by the ST/X UIPainter"
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   316
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   317
    "do not manually edit this - the painter/builder may not be able to
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   318
     handle the specification if its corrupted."
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   319
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   320
    "
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   321
     UIPainter new openOnClass:ToolApplicationModel andSelector:#windowSpecForCommitWithoutChannels
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   322
     ToolApplicationModel new openInterface:#windowSpecForCommitWithoutChannels
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   323
    "
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   324
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   325
    <resource: #canvas>
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   326
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   327
    ^
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   328
     
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   329
       #(#FullSpec
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   330
          #'window:' 
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   331
           #(#WindowSpec
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   332
              #'name:' 'unnamed canvas'
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   333
              #'layout:' #(#LayoutFrame 323 0 410 0 622 0 469 0)
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   334
              #'label:' 'unnamed canvas'
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   335
              #'min:' #(#Point 100 22)
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   336
              #'max:' #(#Point 1152 900)
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   337
              #'bounds:' #(#Rectangle 323 410 623 470)
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   338
              #'usePreferredExtent:' false
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   339
          )
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   340
          #'component:' 
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   341
           #(#SpecCollection
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   342
              #'collection:' 
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   343
               #(
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   344
                 #(#ActionButtonSpec
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   345
                    #'name:' 'cancelButton'
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   346
                    #'layout:' #(#LayoutFrame 5 0 0 0 -2 0.5 0 1)
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   347
                    #'label:' 'Cancel'
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   348
                    #'model:' #cancel
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   349
                )
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   350
                 #(#ActionButtonSpec
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   351
                    #'name:' 'okButton'
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   352
                    #'layout:' #(#LayoutFrame 2 0.5 0 0.0 -5 1 0 1.0)
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   353
                    #'label:' 'OK'
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   354
                    #'model:' #accept
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   355
                )
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   356
              )
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   357
          )
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   358
      )
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   359
! !
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   360
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   361
!ToolApplicationModel class methodsFor:'resources'!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   362
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   363
downIcon
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   364
    "ImageEditor openOnClass:self andSelector:#downIcon"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   365
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   366
    <resource: #image>
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   367
    ^(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(#[85 85 0 5 85 80 85 85 42 149 85 80 85 85 42 149 85 80 85 85 42 149 85 80 85 85 42 149 85 80 85 85 42 149 85 80 85 85 42 149 85 80 85 85 42 149 85 80 85 85 42 149 85 80 85 85 42 149 85 80 85 85 42 149 85 80 85 85 42 149 85 80 85 85 42 149 85 80 85 85 42 149 85 80 85 85 42 149 85 80 85 64 42 144 21 80 85 74 170 170 85 80 85 90 170 169 85 80 85 86 170 165 85 80 85 85 170 149 85 80 85 85 106 85 85 80 85 85 89 85 85 80]) ; colorMap:((OrderedCollection new add:(Color white); add:(Color black); add:(Color red:0.0 green:49.9977 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:(#[0 252 0 0 252 0 0 252 0 0 252 0 0 252 0 0 252 0 0 252 0 0 252 0 0 252 0 0 252 0 0 252 0 0 252 0 0 252 0 0 252 0 0 252 0 7 255 128 7 255 128 3 255 0 1 254 0 0 252 0 0 120 0 0 48 0]) ; yourself); yourself!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   368
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   369
downLeftIcon
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   370
    "ImageEditor openOnClass:self andSelector:#downLeftIcon"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   371
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   372
    <resource: #image>
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   373
    ^(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(#[85 85 85 85 85 80 85 85 85 84 0 16 85 85 85 84 170 80 85 85 85 84 170 80 85 85 85 84 170 80 85 85 85 84 170 80 85 85 85 84 170 80 85 85 85 84 170 80 85 85 85 84 170 80 85 85 85 84 170 80 85 80 85 84 170 80 85 73 85 84 170 80 85 41 85 84 170 80 84 169 0 0 170 80 82 170 170 170 170 80 74 170 170 170 170 80 90 170 170 170 170 80 86 170 170 170 170 80 85 169 85 85 85 80 85 105 85 85 85 80 85 89 85 85 85 80 85 85 85 85 85 80]) ; colorMap:((OrderedCollection new add:(Color white); add:(Color black); add:(Color red:0.0 green:49.9977 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:(#[0 0 0 0 1 248 0 1 248 0 1 248 0 1 248 0 1 248 0 1 248 0 1 248 0 1 248 0 1 248 3 1 248 7 1 248 15 1 248 31 255 248 63 255 248 127 255 248 127 255 248 63 255 248 31 255 248 15 0 0 7 0 0 3 0 0]) ; yourself); yourself!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   374
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   375
downRightIcon
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   376
    "ImageEditor openOnClass:self andSelector:#downRightIcon"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   377
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   378
    <resource: #image>
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   379
    ^(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(#[85 85 85 85 85 80 64 1 85 85 85 80 74 165 85 85 85 80 74 165 85 85 85 80 74 165 85 85 85 80 74 165 85 85 85 80 74 165 85 85 85 80 74 165 85 85 85 80 74 165 85 85 85 80 74 165 85 85 85 80 74 165 85 80 85 80 74 165 85 82 21 80 74 165 85 82 133 80 74 164 0 2 161 80 74 170 170 170 168 80 74 170 170 170 170 16 74 170 170 170 170 80 74 170 170 170 169 80 69 85 85 86 165 80 85 85 85 82 149 80 85 85 85 82 85 80 85 85 85 81 85 80]) ; colorMap:((OrderedCollection new add:(Color white); add:(Color black); add:(Color red:0.0 green:49.9977 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:(#[0 0 0 126 0 0 126 0 0 126 0 0 126 0 0 126 0 0 126 0 0 126 0 0 126 0 0 126 0 0 126 3 0 126 3 128 126 3 192 127 255 224 127 255 240 127 255 248 127 255 248 127 255 240 127 255 224 0 3 192 0 3 128 0 3 0]) ; yourself); yourself!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   380
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   381
fileOutIcon
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   382
    "ImageEditor openOnClass:self andSelector:#fileOutIcon"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   383
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   384
    <resource: #image>
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   385
    ^(Depth2Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(#[0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 32 0 0 0 0 0 40 0 0 0 0 2 170 0 0 0 0 8 40 0 0 0 0 8 32 0 0 0 0 8 0 0 0 0 0 8 0 0 0 0 0 8 0 0 0 0 0 8 0 0 0 0 0 8 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 64 0 5 17 5 4 68 65 4 17 4 4 68 65 0 17 0 4 68 65 5 17 5 4 68 65 4 17 4 4 68 65 4 16 0 1 0 65 4 17 69 0 1 1]) ; colorMap:((OrderedCollection new add:(Color black); add:(Color white); add:(Color red:0.0 green:49.9977 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:(#[0 0 0 0 0 0 0 0 0 0 0 0 4 0 110 6 80 132 31 32 68 38 80 36 36 4 196 32 0 0 32 0 0 32 0 0 32 0 0 32 0 0 0 0 0 0 0 0 106 98 215 127 119 251 111 103 251 111 103 251 127 119 251 111 103 251 111 99 43 37 176 17]) ; yourself); yourself!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   386
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   387
garbageCollectIcon
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   388
    "ImageEditor openOnClass:self andSelector:#garbageCollectIcon"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   389
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   390
    <resource: #image>
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   391
    ^(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(#[64 0 5 85 85 80 64 0 1 85 85 80 64 0 0 80 1 80 64 0 0 0 1 80 64 0 4 1 0 16 64 0 4 1 56 16 64 0 0 1 78 16 64 0 5 85 83 128 64 0 5 84 0 192 64 0 5 66 170 0 64 0 5 68 0 192 0 0 0 5 95 192 0 0 0 4 252 128 0 0 0 4 204 128 0 0 0 4 204 128 0 0 0 4 204 128 0 0 20 4 204 128 0 0 16 4 204 128 0 0 0 4 204 128 0 0 1 71 207 128 0 0 1 67 170 0 85 64 21 84 0 80]) ; 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:(#[0 0 0 3 224 0 7 242 0 14 62 0 12 30 224 12 30 240 12 62 120 30 0 60 45 1 252 82 135 252 0 7 252 1 71 252 7 231 252 2 135 252 15 199 252 5 7 252 40 7 252 252 167 252 83 247 252 249 71 252 167 231 252 2 129 240]) ; yourself); yourself!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   392
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   393
icon
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   394
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   395
    |iconSelector|
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   396
    (super respondsTo: (iconSelector := ('start', self name, 'Icon') asSymbol)) ifFalse: [^self stxIcon].
762
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   397
    ^(self perform: iconSelector) subImageIn: (0@0 extent: (22@13))
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   398
!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   399
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   400
leftDownIcon
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   401
    "ImageEditor openOnClass:self andSelector:#leftDownIcon"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   402
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   403
    <resource: #image>
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   404
    ^(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(#[85 85 85 85 85 80 84 0 0 0 0 16 84 170 170 170 170 80 84 170 170 170 170 80 84 170 170 170 170 80 84 170 170 170 170 80 84 170 85 85 85 80 84 170 85 85 85 80 84 170 85 85 85 80 84 170 85 85 85 80 84 170 85 85 85 80 84 170 85 85 85 80 84 170 85 85 85 80 84 170 85 85 85 80 0 170 128 85 85 80 42 170 169 85 85 80 74 170 165 85 85 80 82 170 149 85 85 80 84 170 85 85 85 80 85 41 85 85 85 80 85 69 85 85 85 80 85 85 85 85 85 80]) ; colorMap:((OrderedCollection new add:(Color white); add:(Color black); add:(Color red:0.0 green:49.9977 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:(#[0 0 0 31 255 248 31 255 248 31 255 248 31 255 248 31 255 248 31 255 248 31 128 0 31 128 0 31 128 0 31 128 0 31 128 0 31 128 0 31 128 0 255 240 0 255 240 0 127 224 0 63 192 0 31 128 0 15 0 0 6 0 0 0 0 0]) ; yourself); yourself!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   405
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   406
leftIcon
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   407
    "ImageEditor openOnClass:self andSelector:#leftIcon"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   408
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   409
    <resource: #image>
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   410
    ^(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(#[85 85 85 85 85 80 85 85 85 85 85 80 85 85 85 85 85 80 85 85 85 85 85 80 85 85 85 85 85 80 85 69 85 85 85 80 85 37 85 85 85 80 84 165 85 85 85 80 82 164 0 0 0 16 74 170 170 170 170 144 42 170 170 170 170 144 106 170 170 170 170 144 90 170 170 170 170 144 86 165 85 85 85 80 85 165 85 85 85 80 85 101 85 85 85 80 85 85 85 85 85 80 85 85 85 85 85 80 85 85 85 85 85 80 85 85 85 85 85 80 85 85 85 85 85 80 85 85 85 85 85 80]) ; 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:(#[0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 0 0 14 0 0 30 0 0 63 255 252 127 255 252 255 255 252 255 255 252 127 255 252 63 255 252 30 0 0 14 0 0 6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0]) ; yourself); yourself!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   411
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   412
leftUpIcon
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   413
    "ImageEditor openOnClass:self andSelector:#leftUpIcon"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   414
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   415
    <resource: #image>
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   416
    ^(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(#[85 85 85 85 85 80 85 69 85 85 85 80 85 41 85 85 85 80 84 170 85 85 85 80 82 170 149 85 85 80 74 170 165 85 85 80 42 170 169 85 85 80 149 170 85 85 85 80 84 170 85 85 85 80 84 170 85 85 85 80 84 170 85 85 85 80 84 170 85 85 85 80 84 170 85 85 85 80 84 170 85 85 85 80 84 170 85 85 85 80 84 170 64 0 0 16 84 170 170 170 170 80 84 170 170 170 170 80 84 170 170 170 170 80 84 170 170 170 170 80 84 85 85 85 85 80 85 85 85 85 85 80]) ; 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:(#[0 0 0 6 0 0 15 0 0 31 128 0 63 192 0 127 224 0 255 240 0 255 240 0 31 128 0 31 128 0 31 128 0 31 128 0 31 128 0 31 128 0 31 128 0 31 255 248 31 255 248 31 255 248 31 255 248 31 255 248 31 255 248 0 0 0]) ; yourself); yourself!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   417
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   418
loadIcon
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   419
    "ImageEditor openOnClass:self andSelector:#loadIcon"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   420
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   421
    <resource: #image>
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   422
    ^(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(#[85 85 85 85 85 80 85 85 85 87 245 80 85 85 85 94 173 80 87 255 255 250 171 208 87 170 170 170 170 80 85 85 85 85 86 144 64 0 0 0 1 80 79 255 255 255 249 144 79 255 255 255 249 80 79 255 255 255 249 144 79 255 255 255 249 80 83 255 255 255 254 80 83 255 255 255 254 80 83 255 255 255 254 80 83 255 255 255 254 80 83 255 255 255 254 80 83 255 255 255 254 80 84 255 255 255 255 144 84 255 255 255 255 144 84 255 255 255 255 144 87 170 170 170 170 144 85 85 85 85 85 80]) ; 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:(#[0 1 192 0 3 224 31 255 248 63 255 252 63 255 252 127 255 252 255 255 252 255 255 252 255 255 252 255 255 252 255 255 252 127 255 252 127 255 252 127 255 252 127 255 252 127 255 252 127 255 252 63 255 252 63 255 252 63 255 252 63 255 252 63 255 252]) ; yourself); yourself!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   423
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   424
newIcon
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   425
    "ImageEditor openOnClass:self andSelector:#newIcon"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   426
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   427
    <resource: #image>
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   428
    ^(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(#[0 0 0 0 0 0 5 85 85 85 0 0 7 255 255 255 32 0 7 255 255 255 40 0 7 255 255 255 0 0 7 255 255 255 254 0 7 255 255 255 254 0 7 255 255 255 254 0 7 255 255 255 254 0 7 255 255 255 254 0 7 255 255 255 254 0 7 255 255 255 254 0 7 255 255 255 254 0 7 255 255 255 254 0 7 255 255 255 254 0 7 255 255 255 254 0 7 255 255 255 254 0 7 255 255 255 254 0 7 255 255 255 254 0 7 255 255 255 254 0 14 170 170 170 170 0 0 0 0 0 0 0]) ; 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:(#[127 255 128 127 255 192 127 255 224 127 255 240 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248]) ; yourself); yourself!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   429
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   430
removeIcon
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   431
    "ImageEditor openOnClass:self andSelector:#removeIcon"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   432
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   433
    <resource: #image>
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   434
    ^(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(#[0 0 0 0 0 0 9 85 85 85 0 0 10 255 255 255 32 0 10 191 255 255 40 0 6 175 255 255 0 0 7 171 255 254 174 0 7 234 255 250 190 0 7 250 191 234 254 0 7 254 175 171 254 0 7 255 170 175 254 0 7 255 234 191 254 0 7 255 234 191 254 0 7 255 170 175 254 0 7 254 175 171 254 0 7 250 191 234 254 0 7 234 255 250 190 0 7 171 255 254 174 0 6 175 255 255 170 0 10 191 255 255 234 0 10 255 255 255 250 0 10 170 170 170 170 0 0 0 0 0 0 0]) ; 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:(#[127 255 128 127 255 192 127 255 224 127 255 240 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248]) ; yourself); yourself!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   435
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   436
rightIcon
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   437
    "ImageEditor openOnClass:self andSelector:#rightIcon"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   438
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   439
    <resource: #image>
758
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   440
    ^(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(#[85 85 85 85 85 80 85 85 85 85 85 80 85 85 85 85 85 80 85 85 85 85 85 80 85 85 85 85 85 80 85 85 85 84 85 80 85 85 85 84 149 80 85 85 85 84 165 80 0 0 0 0 169 80 42 170 170 170 170 80 42 170 170 170 170 144 42 170 170 170 170 144 42 170 170 170 170 80 21 85 85 85 169 80 85 85 85 84 165 80 85 85 85 84 149 80 85 85 85 84 85 80 85 85 85 85 85 80 85 85 85 85 85 80 85 85 85 85 85 80 85 85 85 85 85 80 85 85 85 85 85 80]) ; 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:(#[0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 128 0 1 192 0 1 224 255 255 240 255 255 248 255 255 252 255 255 252 255 255 248 255 255 240 0 1 224 0 1 192 0 1 128 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0]) ; yourself); yourself!
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   441
756
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
   442
runIcon
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
   443
    "ImageEditor openOnClass:self andSelector:#runIcon"
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
   444
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
   445
    <resource: #image>
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
   446
    ^(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(#[0 0 0 0 0 0 0 0 0 0 0 0 0 238 0 0 0 0 0 0 0 0 0 14 241 224 0 0 0 0 0 0 0 0 14 238 238 238 238 238 224 0 0 0 0 14 241 224 0 0 0 225 224 0 0 0 14 241 224 0 0 0 1 0 0 0 0 14 241 224 0 0 0 1 0 0 0 0 14 238 238 238 238 224 1 0 0 0 0 14 241 224 0 0 0 0 0 0 0 0 14 241 224 0 0 14 17 238 0 0 0 14 241 224 0 0 0 31 224 0 0 0 14 238 238 238 238 0 31 224 0 0 0 14 241 224 0 0 0 31 224 0 0 0 14 241 224 0 0 0 31 224 0 0 0 14 241 224 0 0 0 31 224 0 0 0 14 238 238 238 238 0 31 224 0 0 0 14 241 224 0 0 0 31 224 0 0 0 14 241 224 0 0 0 31 224 0 0 0 14 241 224 0 0 0 0 0 0 0 0 14 238 224 0 0 0 17 16 0 0 0 224 238 14 0 0 0 102 96 0 0 14 14 0 224 224 0 2 34 34 0 0]) ; 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:(#[0 0 0 12 1 0 30 1 0 31 255 0 30 3 128 30 3 128 30 3 128 31 251 128 30 3 128 30 7 192 30 7 192 31 247 192 30 7 192 30 7 192 30 7 192 31 247 192 30 15 224 30 31 240 30 31 240 30 27 144 45 19 144 82 135 192 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0]) ; yourself); yourself!
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
   447
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   448
saveIcon
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   449
    "ImageEditor openOnClass:self andSelector:#saveIcon"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   450
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   451
    <resource: #image>
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   452
    ^(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(#[4 204 204 204 192 16 55 51 51 51 15 208 52 204 204 204 207 80 55 51 51 51 15 80 52 204 204 204 207 208 55 51 51 51 15 208 52 204 204 204 207 208 55 51 51 51 15 208 52 204 204 204 207 208 55 51 51 51 15 208 52 204 204 204 207 208 52 0 0 0 15 208 63 255 255 255 255 208 63 255 255 255 255 208 63 255 255 255 255 208 63 213 85 85 95 208 63 223 255 253 191 208 63 221 79 253 175 208 63 221 143 253 175 208 63 221 143 253 175 208 63 220 15 253 175 208 213 90 170 169 93 80]) ; 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:(#[255 255 252 255 255 252 255 255 252 255 255 252 255 255 252 255 255 252 255 255 252 255 255 252 255 255 252 255 255 252 255 255 252 255 255 252 255 255 252 255 255 252 255 255 252 255 255 252 255 255 252 255 255 252 255 255 252 255 255 252 255 255 252 255 255 248]) ; yourself); yourself!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   453
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   454
searchIcon
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   455
    "ImageEditor openOnClass:self andSelector:#searchIcon"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   456
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   457
    <resource: #image>
758
f979af2fbb90 commit button spec added
tz
parents: 756
diff changeset
   458
    ^(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(#[0 0 0 0 0 0 0 0 0 0 0 0 13 106 128 53 170 0 0 0 0 0 0 0 13 106 128 53 170 0 13 106 128 53 170 0 13 106 128 53 170 0 13 106 128 53 170 0 13 106 128 53 170 0 13 106 128 53 170 0 13 106 138 53 170 0 13 106 0 5 170 0 13 106 54 133 170 0 13 106 0 5 170 0 13 106 128 53 170 0 0 0 0 0 0 0 0 214 160 213 160 0 0 0 0 0 0 0 0 26 0 6 128 0 0 0 0 0 0 0 0 218 128 54 160 0 0 0 0 0 0 0]) ; 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:(#[0 0 0 127 207 248 127 207 248 127 207 248 127 207 248 127 207 248 127 207 248 127 207 248 127 207 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 31 255 224 31 255 224 15 135 192 15 135 192 31 207 224 31 207 224]) ; yourself); yourself!
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   459
762
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   460
startChangesBrowserIcon
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   461
    "ImageEditor openOnClass:self andSelector:#startChangesBrowserIcon"
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   462
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   463
    <resource: #image>
765
daef5a602301 3D-style removed
tz
parents: 763
diff changeset
   464
    ^(Depth2Image new) width: 24; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(#[0 0 0 0 0 0 10 170 170 170 170 160 0 0 0 0 0 0 5 85 85 85 85 80 5 85 85 85 85 80 5 85 85 85 85 80 5 85 85 85 85 80 0 0 0 0 0 0 5 85 85 85 85 80 5 85 85 85 85 80 5 85 85 85 85 80 5 85 85 85 85 80 0 0 0 0 0 0 0 0 0 0 0 0 128 2 32 2 0 8 0 0 192 0 192 3 0 0 0 0 0 0 0 0 0 0 128 10 0 0 0 0 0 0 0 0 0 0 0 0 128 0 0 2 0 2 0 0 0 0 0 0]) ; 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: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(#[127 255 254 127 255 254 127 255 254 127 255 254 127 255 254 127 255 254 127 255 254 127 255 254 127 255 254 127 255 254 127 255 254 127 255 254 127 255 254 0 0 0 213 213 219 149 213 147 149 93 18 157 221 219 149 93 81 149 85 81 213 85 219 0 0 0]) ; yourself); yourself!
762
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   465
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   466
startFileBrowserIcon
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   467
    "ImageEditor openOnClass:self andSelector:#startFileBrowserIcon"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   468
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   469
    <resource: #image>
765
daef5a602301 3D-style removed
tz
parents: 763
diff changeset
   470
    ^(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(#[0 0 0 0 0 0 42 170 170 170 170 128 0 0 0 0 0 0 21 85 81 85 85 64 21 85 81 85 85 64 21 85 81 85 85 64 21 85 81 85 85 64 0 0 0 0 0 0 21 85 85 85 85 64 21 85 85 85 85 64 21 85 85 85 85 64 21 85 85 85 85 64 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0]) ; 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:(#[255 255 252 255 255 252 255 255 252 255 255 252 255 255 252 255 255 252 255 255 252 255 255 252 255 255 252 255 255 252 255 255 252 255 255 252 255 255 252 0 0 0 114 71 48 66 68 64 66 68 64 114 70 32 66 68 16 66 68 16 66 119 96 0 0 0]) ; yourself); yourself!
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   471
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   472
startImageEditorIcon
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   473
    "ImageEditor openOnClass:self andSelector:#startImageEditorIcon"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   474
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   475
    <resource: #image>
765
daef5a602301 3D-style removed
tz
parents: 763
diff changeset
   476
    ^(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(#[0 0 0 0 0 0 0 0 0 0 0 13 221 221 221 221 221 221 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 35 34 4 68 57 153 0 0 0 0 3 51 51 4 68 57 153 0 0 0 0 3 34 35 4 68 57 153 0 0 0 0 3 51 51 3 51 51 51 0 0 0 0 3 34 35 5 85 56 136 0 0 0 0 3 51 51 5 85 56 136 0 0 0 0 3 50 34 5 85 56 136 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 34 34 34 34 34 34 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 3 3 0 48 3 2 0 48 0 0 0 0 48 0 2 32 0 32 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 32 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0]) ; 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: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(#[255 254 0 255 254 0 255 254 64 255 254 96 255 254 112 255 254 120 255 254 124 255 254 112 255 254 80 255 254 8 255 254 8 255 254 4 255 254 4 0 0 0 182 247 184 190 246 160 170 148 32 162 245 176 162 180 160 162 148 160 162 151 184 0 0 0]) ; yourself); yourself!
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   477
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   478
startMenuEditorIcon
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   479
    "ImageEditor openOnClass:self andSelector:#startMenuEditorIcon"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   480
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   481
    <resource: #image>
765
daef5a602301 3D-style removed
tz
parents: 763
diff changeset
   482
    ^(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(#[0 0 0 0 0 0 0 0 0 0 0 4 68 68 68 68 68 68 0 0 0 0 0 0 0 0 0 0 0 0 32 0 0 5 34 34 5 17 81 21 0 0 0 0 2 82 2 5 34 34 33 0 0 0 0 2 34 34 5 34 34 33 0 0 0 0 2 82 2 5 34 34 33 0 0 0 0 2 34 34 5 34 34 33 0 0 0 0 2 82 2 5 34 34 33 0 32 0 0 2 34 34 5 34 34 33 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 34 34 34 34 34 34 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 5 5 0 0 0 0 0 0 0 0 0 0 80 0 0 0 5 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 80 0 0 0 0 0 0 0 0 0 0 0 5 0 80 0 0 0 0 0 0 0 0 0 0 0 0]) ; 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: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(#[255 254 0 255 254 0 255 254 192 255 254 96 255 254 112 255 254 120 255 254 124 255 254 112 255 254 208 255 254 8 255 254 8 255 254 4 255 254 4 0 0 0 219 165 32 250 53 32 170 53 32 139 61 32 138 45 32 138 45 32 139 165 224 0 0 0]) ; yourself); yourself!
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   483
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   484
startSourceCodeBrowserIcon
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   485
    "ImageEditor openOnClass:self andSelector:#startSourceCodeBrowserIcon"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   486
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   487
    <resource: #image>
765
daef5a602301 3D-style removed
tz
parents: 763
diff changeset
   488
    ^(Depth2Image new) width: 24; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(#[0 0 0 0 0 0 15 255 255 255 255 240 0 0 0 0 0 0 5 85 84 85 85 80 5 85 84 85 85 80 5 85 84 85 85 80 5 85 84 85 85 80 0 0 0 0 0 0 5 85 84 85 85 80 69 85 84 85 85 80 5 85 84 85 85 80 5 85 84 85 85 80 0 0 0 0 0 0 0 0 0 0 0 0 48 51 0 3 48 0 8 8 0 0 8 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 3 51 51 0 48 0 0 0 0 0 0 0]) ; colorMap:((OrderedCollection new add:(Color black); add:(Color white); add:(Color grey:66.9978); add:(Color grey:49.9962); yourself)); mask:((Depth1Image new) width: 24; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(#[127 255 254 127 255 254 127 255 254 127 255 254 127 255 254 127 255 254 127 255 254 127 255 254 127 255 254 127 255 254 127 255 254 127 255 254 127 255 254 0 0 0 119 87 118 103 85 100 69 85 68 37 87 70 21 85 68 21 85 68 119 117 118 0 0 0]) ; yourself); yourself!
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   489
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   490
startSystemBrowserIcon
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   491
    "ImageEditor openOnClass:self andSelector:#startSystemBrowserIcon"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   492
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   493
    <resource: #image>
765
daef5a602301 3D-style removed
tz
parents: 763
diff changeset
   494
    ^(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(#[0 0 0 0 0 0 63 255 255 255 255 192 0 0 0 0 0 0 21 69 81 84 85 64 21 69 81 84 85 64 21 64 1 84 85 64 21 69 81 84 85 64 0 0 0 0 0 0 21 85 85 85 85 64 21 85 85 85 85 64 21 85 85 85 85 64 21 85 85 85 85 64 0 0 0 0 0 0 0 0 0 0 0 0 192 12 204 48 3 0 32 2 2 8 0 128 0 0 0 0 0 0 0 0 0 130 0 0 0 0 0 0 0 0 0 0 0 0 0 0 192 0 3 12 0 192 0 0 0 0 0 0]) ; colorMap:(((Array new:4) at:1 put:((Color black)); at:2 put:((Color white)); at:3 put:((Color grey:66.9978)); at:4 put:((Color grey:49.9962)); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(#[255 255 252 255 255 252 255 255 252 255 255 252 255 255 252 255 255 252 255 255 252 255 255 252 255 255 252 255 255 252 255 255 252 255 255 252 255 255 252 0 0 0 211 191 248 211 182 152 146 164 144 147 191 216 146 146 136 146 146 136 222 254 248 0 0 0]) ; yourself); yourself!
762
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   495
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   496
startUIPainterIcon
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   497
    "ImageEditor openOnClass:self andSelector:#startUIPainterIcon"
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   498
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   499
    <resource: #image>
765
daef5a602301 3D-style removed
tz
parents: 763
diff changeset
   500
    ^(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(#[0 0 0 0 0 0 0 0 0 0 0 13 221 221 221 221 221 221 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 8 34 34 3 17 49 19 0 0 0 0 2 130 2 3 34 34 33 0 0 0 0 2 34 34 3 34 34 33 0 0 0 0 2 130 2 3 34 34 33 0 0 0 0 2 34 34 3 34 34 33 0 0 0 0 2 130 2 3 34 34 33 0 0 0 0 2 34 34 3 17 17 17 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 34 34 34 34 34 34 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 48 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 48 0 0 3 0 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0]) ; 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: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(#[255 254 0 255 254 0 255 254 64 255 254 96 255 254 112 255 254 120 255 254 124 255 254 112 255 254 80 255 254 8 255 254 8 255 254 4 255 254 4 0 0 0 249 19 128 193 17 0 129 17 0 185 17 0 137 17 0 137 17 0 249 243 128 0 0 0]) ; yourself); yourself!
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   501
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   502
stxIcon
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   503
    "ImageEditor openOnClass:self andSelector:#stxIcon"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   504
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   505
    <resource: #image>
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   506
    ^(Depth2Image new) width: 19; height: 19; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(#[0 0 0 0 3 0 0 0 0 0 0 0 0 0 0 0 5 0 0 64 0 5 0 1 65 0 1 64 0 0 0 1 64 20 0 0 0 80 64 0 0 0 81 64 3 0 0 21 0 0 0 0 20 0 0 0 0 84 0 0 0 1 65 0 3 0 5 0 64 0 0 20 0 64 0 1 80 0 0 0 1 80 0 4 3 0 0 0 0 1 0 0 0 0 0]) ; colorMap:((OrderedCollection new add:(Color grey:9.41024); add:(Color red:0.0 green:80.7828 blue:18.822); add:(Color black); add:(Color white); yourself)); yourself!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   507
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   508
upIcon
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   509
    "ImageEditor openOnClass:self andSelector:#upIcon"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   510
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   511
    <resource: #image>
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   512
    ^(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(#[85 85 81 85 85 80 85 85 74 85 85 80 85 85 42 149 85 80 85 84 170 165 85 80 85 82 170 169 85 80 85 74 170 170 85 80 85 69 170 149 85 80 85 85 42 149 85 80 85 85 42 149 85 80 85 85 42 149 85 80 85 85 42 149 85 80 85 85 42 149 85 80 85 85 42 149 85 80 85 85 42 149 85 80 85 85 42 149 85 80 85 85 42 149 85 80 85 85 42 149 85 80 85 85 42 149 85 80 85 85 42 149 85 80 85 85 42 149 85 80 85 85 42 149 85 80 85 85 21 85 85 80]) ; colorMap:((OrderedCollection new add:(Color white); add:(Color black); add:(Color red:0.0 green:49.9977 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:(#[0 48 0 0 120 0 0 252 0 1 254 0 3 255 0 7 255 128 7 255 128 0 252 0 0 252 0 0 252 0 0 252 0 0 252 0 0 252 0 0 252 0 0 252 0 0 252 0 0 252 0 0 252 0 0 252 0 0 252 0 0 252 0 0 252 0]) ; yourself); yourself!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   513
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   514
upRightIcon
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   515
    "ImageEditor openOnClass:self andSelector:#upRightIcon"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   516
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   517
    <resource: #image>
765
daef5a602301 3D-style removed
tz
parents: 763
diff changeset
   518
    ^(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(#[85 85 85 81 85 80 85 85 85 82 85 80 85 85 85 82 149 80 64 0 0 2 165 80 74 170 170 170 169 80 74 170 170 170 170 80 74 170 170 170 170 80 74 170 170 170 169 80 74 165 85 86 165 80 74 165 85 82 149 80 74 165 85 82 85 80 74 165 85 81 85 80 74 165 85 85 85 80 74 165 85 85 85 80 74 165 85 85 85 80 74 165 85 85 85 80 74 165 85 85 85 80 74 165 85 85 85 80 74 165 85 85 85 80 74 165 85 85 85 80 69 85 85 85 85 80 85 85 85 85 85 80]) ; 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:(#[0 3 0 0 3 128 0 3 192 127 255 224 127 255 240 127 255 248 127 255 248 127 255 240 127 255 224 126 3 192 126 3 128 126 3 0 126 0 0 126 0 0 126 0 0 126 0 0 126 0 0 126 0 0 126 0 0 126 0 0 126 0 0 0 0 0]) ; yourself); yourself!
daef5a602301 3D-style removed
tz
parents: 763
diff changeset
   519
daef5a602301 3D-style removed
tz
parents: 763
diff changeset
   520
x
daef5a602301 3D-style removed
tz
parents: 763
diff changeset
   521
    "ImageEditor openOnClass:self andSelector:#x"
daef5a602301 3D-style removed
tz
parents: 763
diff changeset
   522
daef5a602301 3D-style removed
tz
parents: 763
diff changeset
   523
    <resource: #image>
daef5a602301 3D-style removed
tz
parents: 763
diff changeset
   524
    ^(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(#[0 0 0 0 0 0 5 85 85 85 0 0 7 255 255 255 32 0 7 255 255 255 40 0 7 255 255 255 0 0 7 255 255 255 254 0 7 255 255 255 254 0 7 255 255 255 254 0 7 234 170 191 254 0 7 224 0 191 254 0 7 224 0 191 254 0 7 224 0 191 254 0 7 224 0 191 254 0 7 224 0 191 254 0 7 224 0 191 254 0 7 224 0 191 254 0 7 234 170 191 254 0 7 255 255 255 254 0 7 255 255 255 254 0 7 255 255 255 254 0 14 170 170 170 170 0 0 0 0 0 0 0]) ; 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:(#[127 255 128 127 255 192 127 255 224 127 255 240 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248 127 255 248]) ; yourself); yourself! !
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   525
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   526
!ToolApplicationModel methodsFor:'accessing - views'!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   527
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   528
menuToolbarView
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   529
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   530
    ^builder componentAt: #menuToolbarView
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   531
!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   532
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   533
preferredExtent
760
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   534
    "preferred extent of my window; top menu and top toolbar (named by 'menuToolbar')
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   535
     will be considered"
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   536
760
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   537
    |window menuPanel menuToolbarView preferredExtentOfWindow|
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   538
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   539
    window          := self builder window. 
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   540
    menuPanel       := window subViews first.
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   541
    menuToolbarView := self menuToolbarView.
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   542
760
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   543
    preferredExtentOfWindow := window extent.
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   544
    menuPanel class = MenuPanel ifTrue: [preferredExtentOfWindow := preferredExtentOfWindow max: menuPanel preferredExtent].
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   545
    menuToolbarView notNil      ifTrue: [preferredExtentOfWindow := preferredExtentOfWindow max: menuToolbarView preferredExtent].
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   546
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   547
    ^window minExtent max: (preferredExtentOfWindow min: window maxExtent)
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   548
! !
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   549
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   550
!ToolApplicationModel methodsFor:'action - settings'!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   551
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   552
languageSetting 
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   553
    "open a dialog on language related settings"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   554
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   555
    |listOfLanguages translatedLanguages switch box languageList flags|
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   556
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   557
    "
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   558
     get list of supported languages from the launchers resources ...
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   559
    "
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   560
    listOfLanguages := resources at:'LIST_OF_OFFERED_LANGUAGES' default:#('default').
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   561
    listOfLanguages := listOfLanguages asOrderedCollection.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   562
    translatedLanguages := listOfLanguages collect:[:lang | |item|
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   563
                                        item := resources at:lang.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   564
                                        item isString ifTrue:[
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   565
                                            item
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   566
                                        ] ifFalse:[
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   567
                                            item at:1
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   568
                                        ]
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   569
                                ].
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   570
    flags := listOfLanguages collect:[:lang | |item|
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   571
                                        item := resources at:lang.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   572
                                        item isArray ifTrue:[
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   573
                                            item at:2
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   574
                                        ] ifFalse:[
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   575
                                            nil
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   576
                                        ]
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   577
                                ].
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   578
    flags := flags collect:[:nm | nm notNil ifTrue:[Image fromFile:nm] ifFalse:[nil]].
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   579
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   580
    languageList := translatedLanguages with:flags collect:[:lang :flag |
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   581
                                LabelAndIcon icon:flag string:lang.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   582
                        ].
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   583
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   584
    box := ListSelectionBox title:(resources string:'LANG_MSG') withCRs.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   585
    box label:(resources string:'Language selection').
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   586
    box list:languageList.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   587
    box initialText:(Language).
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   588
    box action:[:newLanguage |
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   589
        self withWaitCursorDo:[
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   590
            |fontPref idx language oldLanguage enc answer matchingFonts|
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   591
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   592
            idx := translatedLanguages indexOf:newLanguage withoutSeparators.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   593
            idx ~~ 0 ifTrue:[
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   594
                language := listOfLanguages at:idx
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   595
            ] ifFalse:[
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   596
                language := newLanguage
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   597
            ].
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   598
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   599
            "/ check if the new language needs a differently encoded font;
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   600
            "/ ask user to switch font and allow cancellation.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   601
            "/ Otherwise, you are left with unreadable menu & button items ...
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   602
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   603
            oldLanguage := Smalltalk language.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   604
            Smalltalk language:language asSymbol.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   605
            ResourcePack flushCachedResourcePacks.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   606
            fontPref := self class classResources at:'PREFERRED_FONT_ENCODING'.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   607
            Smalltalk language:oldLanguage.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   608
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   609
            switch := true.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   610
            enc := MenuView defaultFont encoding.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   611
            (fontPref match:enc) ifFalse:[
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   612
                "/ look if there is one at all.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   613
                matchingFonts := Screen current listOfAvailableFonts select:[:f | fontPref match:f encoding].
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   614
                matchingFonts size == 0 ifTrue:[
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   615
                    (Dialog 
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   616
                        confirm:(resources 
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   617
                                    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
   618
                                      with:fontPref) withCRs)
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   619
                    ifFalse:[
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   620
                        switch := false
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   621
                    ]
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   622
                ] ifFalse:[
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   623
                    answer := Dialog 
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   624
                                confirmWithCancel:(resources 
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   625
                                                        string:'menu font is not %1-encoded.\\Change it ?'
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   626
                                                        with:fontPref) withCRs
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   627
                                           labels:(resources
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   628
                                                        array:#('cancel' 'no' 'yes'))
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   629
                                           default:3.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   630
                    answer isNil ifTrue:[
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   631
                        switch := false
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   632
                    ] ifFalse:[
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   633
                        answer ifTrue:[
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   634
                            switch := (self fontBoxForEncoding:fontPref)
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   635
                        ]
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   636
                    ].
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   637
                ].
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   638
            ].
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   639
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   640
            switch ifTrue:[
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   641
                Smalltalk language:language asSymbol.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   642
                ResourcePack flushCachedResourcePacks
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   643
            ].
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   644
        ].
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   645
        switch ifTrue:[
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   646
            self reOpen
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   647
        ]
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   648
    ].    
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   649
    box
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   650
        addHelpButtonFor:'Launcher/languageSetting.html'.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   651
    box open.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   652
    box destroy
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   653
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   654
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   655
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   656
! !
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   657
762
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   658
!ToolApplicationModel methodsFor:'active help'!
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   659
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   660
activeHelp
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   661
    "Answer whether active help is turned on/off"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   662
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   663
    ^activeHelp
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   664
!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   665
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   666
activeHelp: aValue
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   667
    "toggle active help"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   668
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   669
    (activeHelp := aValue)
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   670
        ifTrue: [ActiveHelp startFor: self]
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   671
        ifFalse: [ActiveHelp stopFor: self]
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   672
!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   673
762
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   674
defaultInfoLabel
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   675
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   676
    ^''
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   677
!
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   678
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   679
openAbout
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   680
    "show an about box"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   681
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   682
    |box|
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   683
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   684
    box := AboutBox new.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   685
    box autoHideAfter:10 with:[].
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   686
    box showAtCenter
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   687
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   688
!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   689
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   690
openAboutThisApplication
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   691
    "show an about this application box"
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   692
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   693
    |rev box|
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   694
    rev := ''.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   695
    self class revision notNil ifTrue: [rev := '  (rev: ', self class revision printString, ')'].
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   696
    box := AboutBox title:
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   697
        '\The application\\' withCRs,
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   698
        (Text string: self class label emphasis: #bold), rev,
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   699
        '\\has been designed and implemented by \' withCRs,self class author,', eXept Software AG, Germany.  \\' withCRs.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   700
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   701
     box   label:'About This Application'.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   702
     box   autoHideAfter:10 with:[].
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   703
     box   showAtCenter.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   704
!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   705
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   706
openClassDocumentation
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   707
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   708
    Autoload autoloadFailedSignal handle:[:ex |
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   709
        self warn:'autoload failed.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   710
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   711
Check your source directory and/or 
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   712
the abbreviation file for the classes (correct) shortened name.'.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   713
        ex return.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   714
    ] do:[
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   715
        |text v|
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   716
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   717
        text := self class htmlDocumentation.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   718
        text notNil ifTrue:[
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   719
            v := HTMLDocumentView
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   720
                    openFullOnText:text 
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   721
                    inDirectory:(Smalltalk getSystemFileName:'doc/online/english/classDoc').
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   722
            v nameSpaceForExecution: self class nameSpace.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   723
        ]
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   724
    ]
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   725
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
openProgrammersGuide
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   730
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   731
    |dir|
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   732
    ((dir := Smalltalk getSystemFileName: 'doc/online/english/programming/TOP.html') asFilename exists)
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   733
    ifTrue:
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   734
    [
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   735
        ^HTMLDocumentView openFullOnFile: dir
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   736
    ]
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   737
!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   738
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   739
openTutorial
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   740
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   741
    |dir|
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   742
    ((dir := Smalltalk getSystemFileName: 'doc/online/english/getstart/tutorial.html') asFilename exists)
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   743
    ifTrue:
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   744
    [
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   745
        ^HTMLDocumentView openFullOnFile: dir
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   746
    ]
762
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   747
!
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
showHelp:aHelpText for:view
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   750
    "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
   751
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   752
    self masterApplication notNil
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   753
    ifTrue:
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   754
    [
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   755
        ^masterApplication showHelp: aHelpText for:view
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   756
    ]
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   757
    ifFalse:
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   758
    [
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   759
        aHelpText isNil 
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   760
            ifTrue:  [self valueOfInfoLabel value: self defaultInfoLabel] 
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   761
            ifFalse: [self valueOfInfoLabel value: (aHelpText asString printString upTo: Character cr)].
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   762
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   763
        ^true
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   764
    ]
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   765
! !
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   766
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   767
!ToolApplicationModel methodsFor:'aspects'!
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   768
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   769
valueOfEnablingCommitButtons
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   770
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   771
    |holder|
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   772
    (holder := builder bindingAt:#valueOfEnablingCommitButtons) isNil ifTrue:[
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   773
        builder aspectAt:#valueOfEnablingCommitButtons put:(holder :=  false asValue).
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   774
    ].
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   775
    ^ holder
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   776
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   777
!
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   778
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   779
valueOfHavingClipboard
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   780
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   781
    |holder|
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   782
    (holder := builder bindingAt:#valueOfHavingClipboard) isNil ifTrue:[
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   783
        builder aspectAt:#valueOfHavingClipboard put:(holder :=  self class clipboard notNil asValue).
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   784
    ].
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   785
    ^ holder
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   786
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   787
!
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   788
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   789
valueOfInfoLabel
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   790
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   791
    |holder|
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   792
    (holder := builder bindingAt:#valueOfInfoLabel) isNil ifTrue:[
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   793
        builder aspectAt:#valueOfInfoLabel put:(holder :=  ValueHolder new).
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   794
    ].
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   795
    ^ holder
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   796
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   797
!
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   798
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   799
valueOfTimeLabel
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   800
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   801
    |holder|
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   802
    (holder := builder bindingAt:#valueOfTimeLabel) isNil ifTrue:[
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   803
        builder aspectAt:#valueOfTimeLabel put:(holder :=  ValueHolder new).
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   804
    ].
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   805
    ^ holder
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   806
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   807
! !
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   808
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   809
!ToolApplicationModel methodsFor:'clipboard'!
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   810
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   811
clipboard: anEditObject
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   812
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   813
    self class clipboard: anEditObject.
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   814
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   815
    self valueOfHavingClipboard value: anEditObject notNil
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   816
! !
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   817
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   818
!ToolApplicationModel methodsFor:'history'!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   819
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   820
addToHistory: aHistoryEntry
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   821
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   822
    self history remove: (self history detect: [:histEntry| histEntry key = aHistoryEntry key] ifNone: nil) ifAbsent: nil.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   823
    self history addFirst: aHistoryEntry.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   824
    [self history size > self class historyMaxSize] whileTrue: [self history removeLast]
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   825
!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   826
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   827
emptyHistory
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   828
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   829
    ^self history removeAll
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   830
!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   831
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   832
history
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   833
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   834
    ^self class getHistory
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   835
!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   836
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   837
menuHistory
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   838
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   839
    |menu a|
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   840
    menu := Menu new receiver: self.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   841
    (self history collect: [:histEntry| histEntry value]) asSet asOrderedCollection do:
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   842
    [:historyEntryType|    
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   843
        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
   844
    ]. 
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   845
    menu addItem: (MenuItem new label: 'Empty History'; value: #emptyHistory).
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   846
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   847
    ^menu
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   848
!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   849
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   850
removeFromHistory: aHistoryEntry
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   851
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   852
    self history remove: (self history detect: [:histEntry| histEntry key = aHistoryEntry key] ifNone: nil) ifAbsent: nil.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   853
    [self history size > self class historyMaxSize] whileTrue: [self history removeLast]
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   854
! !
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   855
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   856
!ToolApplicationModel methodsFor:'startup / release'!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   857
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   858
close
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   859
756
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
   860
    self uninitialize.
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
   861
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   862
    super close
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   863
!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   864
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   865
closeRequest
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   866
756
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
   867
    self uninitialize.
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
   868
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   869
    super closeRequest
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   870
!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   871
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   872
initialize
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   873
762
2c25cc1b363e detour help texts into bottomed info label
tz
parents: 761
diff changeset
   874
    self activeHelp: true.
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   875
    timeBlock := nil.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   876
    timeBlock := [self showTime].
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   877
    self showTime
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   878
!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   879
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   880
open
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   881
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   882
    super open.
756
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
   883
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
   884
    self class allInstances size = 1 
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
   885
    ifTrue: 
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
   886
    [
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
   887
        self class classResources: nil.
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
   888
        self clipboard: nil
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
   889
    ].
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   890
    builder window label: self class label
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   891
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   892
!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   893
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   894
openInterface
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   895
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   896
    super openInterface.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   897
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   898
    self builder window extent: self preferredExtent
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   899
!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   900
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   901
reOpen
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   902
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   903
    self close.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   904
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   905
    self class open
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   906
!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   907
760
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   908
removeAllTemporalViews
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   909
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   910
    self builder namedComponents keys copy do: 
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   911
    [:comp| 
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   912
        (comp includesString: '_Temporal') ifTrue: [self builder namedComponents removeKey: comp]
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   913
    ]
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   914
!
26cf45040420 #preferredExtent cleaned
tz
parents: 758
diff changeset
   915
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   916
restarted
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   917
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   918
    self initialize
756
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
   919
!
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
   920
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
   921
uninitialize
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
   922
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
   923
    self class allInstances size = 1 ifTrue: [self clipboard: nil].
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
   924
    activeHelp ifTrue: [ActiveHelp stopFor: self].
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
   925
    Processor removeTimedBlock:timeBlock.
4dba5a8797ec *** empty log message ***
tz
parents: 753
diff changeset
   926
    timeBlock := nil.
753
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:'window events'!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   930
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   931
showTime
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   932
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   933
    |hours minutes suffix|
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   934
    suffix := ' am '.  
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   935
    (hours := Time now hours) > 12 ifTrue: [hours := hours - 12].
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   936
    Time now hours >= 12 ifTrue: [suffix := ' pm '].
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   937
    (minutes := Time now minutes printString) size = 1 ifTrue: [minutes := '0', minutes printString].
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   938
    self valueOfTimeLabel value: hours printString, ':', minutes, suffix.
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   939
    Processor addTimedBlock: timeBlock afterSeconds: 1
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   940
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   941
! !
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   942
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   943
!ToolApplicationModel class methodsFor:'documentation'!
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   944
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   945
version
765
daef5a602301 3D-style removed
tz
parents: 763
diff changeset
   946
    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.12 1998-01-23 15:40:05 tz Exp $'
753
9c837d99f109 intitial checkin
tz
parents:
diff changeset
   947
! !