UIHelpTool.st
author ca
Sat, 21 Jun 1997 14:34:32 +0200
changeset 170 bbb0a5c29671
parent 156 b332d7117c40
child 172 10e8e0510baa
permissions -rw-r--r--
removed container
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
156
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
     1
"
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
     2
 COPYRIGHT (c) 1995 by eXept Software AG
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
     3
              All Rights Reserved
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
     4
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
     5
 This software is furnished under a license and may be used
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
     6
 only in accordance with the terms of that license and with the
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
     8
 be provided or otherwise made available to, or used by, any
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
     9
 other person.  No title to or ownership of the software is
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
    10
 hereby transferred.
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
    11
"
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
    12
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
    13
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
    14
148
785417b6955d intitial checkin
ca
parents:
diff changeset
    15
ApplicationModel subclass:#UIHelpTool
785417b6955d intitial checkin
ca
parents:
diff changeset
    16
	instanceVariableNames:'dictionary list model'
785417b6955d intitial checkin
ca
parents:
diff changeset
    17
	classVariableNames:''
785417b6955d intitial checkin
ca
parents:
diff changeset
    18
	poolDictionaries:''
785417b6955d intitial checkin
ca
parents:
diff changeset
    19
	category:'Interface-UIPainter'
785417b6955d intitial checkin
ca
parents:
diff changeset
    20
!
785417b6955d intitial checkin
ca
parents:
diff changeset
    21
785417b6955d intitial checkin
ca
parents:
diff changeset
    22
!UIHelpTool class methodsFor:'documentation'!
785417b6955d intitial checkin
ca
parents:
diff changeset
    23
156
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
    24
copyright
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
    25
"
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
    26
 COPYRIGHT (c) 1995 by eXept Software AG
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
    27
              All Rights Reserved
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
    28
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
    29
 This software is furnished under a license and may be used
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
    30
 only in accordance with the terms of that license and with the
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
    31
 inclusion of the above copyright notice.   This software may not
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
    32
 be provided or otherwise made available to, or used by, any
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
    33
 other person.  No title to or ownership of the software is
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
    34
 hereby transferred.
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
    35
"
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
    36
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
    37
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
    38
!
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
    39
148
785417b6955d intitial checkin
ca
parents:
diff changeset
    40
documentation
785417b6955d intitial checkin
ca
parents:
diff changeset
    41
"
785417b6955d intitial checkin
ca
parents:
diff changeset
    42
    used by the UIPainter to add help text to any component which will be shown
785417b6955d intitial checkin
ca
parents:
diff changeset
    43
    during runing an application with enabled activeHelp mode.
156
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
    44
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
    45
    [author:]
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
    46
        Claus Atzkern
148
785417b6955d intitial checkin
ca
parents:
diff changeset
    47
"
785417b6955d intitial checkin
ca
parents:
diff changeset
    48
! !
785417b6955d intitial checkin
ca
parents:
diff changeset
    49
151
ca
parents: 148
diff changeset
    50
!UIHelpTool class methodsFor:'help specs'!
ca
parents: 148
diff changeset
    51
ca
parents: 148
diff changeset
    52
helpSpec
ca
parents: 148
diff changeset
    53
    "return a dictionary filled with helpKey -> helptext associations.
ca
parents: 148
diff changeset
    54
     These are used by the activeHelp tool."
ca
parents: 148
diff changeset
    55
ca
parents: 148
diff changeset
    56
    |dict|
ca
parents: 148
diff changeset
    57
ca
parents: 148
diff changeset
    58
    dict := super helpSpec.
ca
parents: 148
diff changeset
    59
    dict at:#activeHelpAccessKey put:'This ID is used to access an active
ca
parents: 148
diff changeset
    60
help text for the selected component'.
ca
parents: 148
diff changeset
    61
    ^ dict
ca
parents: 148
diff changeset
    62
! !
ca
parents: 148
diff changeset
    63
148
785417b6955d intitial checkin
ca
parents:
diff changeset
    64
!UIHelpTool class methodsFor:'interface specs'!
785417b6955d intitial checkin
ca
parents:
diff changeset
    65
785417b6955d intitial checkin
ca
parents:
diff changeset
    66
windowSpec
785417b6955d intitial checkin
ca
parents:
diff changeset
    67
    "this window spec was automatically generated by the ST/X UIPainter"
785417b6955d intitial checkin
ca
parents:
diff changeset
    68
785417b6955d intitial checkin
ca
parents:
diff changeset
    69
    "do not manually edit this - the painter/builder may not be able to
785417b6955d intitial checkin
ca
parents:
diff changeset
    70
     handle the specification if its corrupted."
785417b6955d intitial checkin
ca
parents:
diff changeset
    71
785417b6955d intitial checkin
ca
parents:
diff changeset
    72
    "
151
ca
parents: 148
diff changeset
    73
     UIPainter new openOnClass:UIHelpTool andSelector:#windowSpec
ca
parents: 148
diff changeset
    74
     UIHelpTool new openInterface:#windowSpec
148
785417b6955d intitial checkin
ca
parents:
diff changeset
    75
    "
151
ca
parents: 148
diff changeset
    76
    "UIHelpTool open"
148
785417b6955d intitial checkin
ca
parents:
diff changeset
    77
785417b6955d intitial checkin
ca
parents:
diff changeset
    78
    <resource: #canvas>
785417b6955d intitial checkin
ca
parents:
diff changeset
    79
785417b6955d intitial checkin
ca
parents:
diff changeset
    80
    ^
785417b6955d intitial checkin
ca
parents:
diff changeset
    81
     
785417b6955d intitial checkin
ca
parents:
diff changeset
    82
       #(#FullSpec
785417b6955d intitial checkin
ca
parents:
diff changeset
    83
          #'window:' 
785417b6955d intitial checkin
ca
parents:
diff changeset
    84
           #(#WindowSpec
785417b6955d intitial checkin
ca
parents:
diff changeset
    85
              #'name:' 'uIPainterView'
785417b6955d intitial checkin
ca
parents:
diff changeset
    86
              #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
785417b6955d intitial checkin
ca
parents:
diff changeset
    87
              #'label:' 'unnamed canvas'
785417b6955d intitial checkin
ca
parents:
diff changeset
    88
              #'bounds:' #(#Rectangle 0 0 286 272)
785417b6955d intitial checkin
ca
parents:
diff changeset
    89
          )
785417b6955d intitial checkin
ca
parents:
diff changeset
    90
          #'component:' 
785417b6955d intitial checkin
ca
parents:
diff changeset
    91
           #(#SpecCollection
785417b6955d intitial checkin
ca
parents:
diff changeset
    92
              #'collection:' 
785417b6955d intitial checkin
ca
parents:
diff changeset
    93
               #(
785417b6955d intitial checkin
ca
parents:
diff changeset
    94
                 #(#TextEditorSpec
785417b6955d intitial checkin
ca
parents:
diff changeset
    95
                    #'name:' 'textView'
785417b6955d intitial checkin
ca
parents:
diff changeset
    96
                    #'layout:' #(#LayoutFrame 46 0 25 0.0 0 1.0 0 1.0)
785417b6955d intitial checkin
ca
parents:
diff changeset
    97
                    #'model:' #textChannel
785417b6955d intitial checkin
ca
parents:
diff changeset
    98
                    #'hasHorizontalScrollBar:' true
785417b6955d intitial checkin
ca
parents:
diff changeset
    99
                    #'hasVerticalScrollBar:' true
785417b6955d intitial checkin
ca
parents:
diff changeset
   100
                    #'miniScrollerHorizontal:' true
785417b6955d intitial checkin
ca
parents:
diff changeset
   101
                    #'miniScrollerVertical:' true
785417b6955d intitial checkin
ca
parents:
diff changeset
   102
                )
785417b6955d intitial checkin
ca
parents:
diff changeset
   103
                 #(#LabelSpec
785417b6955d intitial checkin
ca
parents:
diff changeset
   104
                    #'name:' 'keyLabel'
785417b6955d intitial checkin
ca
parents:
diff changeset
   105
                    #'layout:' #(#LayoutFrame 0 0.0 1 0.0 41 0 21 0)
785417b6955d intitial checkin
ca
parents:
diff changeset
   106
                    #'label:' 'Key:'
785417b6955d intitial checkin
ca
parents:
diff changeset
   107
                    #'adjust:' #left
785417b6955d intitial checkin
ca
parents:
diff changeset
   108
                    #'resizeForLabel:' false
785417b6955d intitial checkin
ca
parents:
diff changeset
   109
                )
785417b6955d intitial checkin
ca
parents:
diff changeset
   110
                 #(#ComboBoxSpec
785417b6955d intitial checkin
ca
parents:
diff changeset
   111
                    #'name:' 'comboBox'
785417b6955d intitial checkin
ca
parents:
diff changeset
   112
                    #'layout:' #(#LayoutFrame 46 0 1 0 0 1.0 21 0)
151
ca
parents: 148
diff changeset
   113
                    #'activeHelpKey:' #activeHelpAccessKey
148
785417b6955d intitial checkin
ca
parents:
diff changeset
   114
                    #'tabable:' true
785417b6955d intitial checkin
ca
parents:
diff changeset
   115
                    #'comboList:' #listChannel
785417b6955d intitial checkin
ca
parents:
diff changeset
   116
                )
785417b6955d intitial checkin
ca
parents:
diff changeset
   117
                 #(#LabelSpec
785417b6955d intitial checkin
ca
parents:
diff changeset
   118
                    #'name:' 'textLabel'
785417b6955d intitial checkin
ca
parents:
diff changeset
   119
                    #'layout:' #(#LayoutFrame 0 0.0 25 0.0 41 0 45 0)
785417b6955d intitial checkin
ca
parents:
diff changeset
   120
                    #'label:' 'Text:'
785417b6955d intitial checkin
ca
parents:
diff changeset
   121
                    #'adjust:' #left
785417b6955d intitial checkin
ca
parents:
diff changeset
   122
                    #'resizeForLabel:' false
785417b6955d intitial checkin
ca
parents:
diff changeset
   123
                )
785417b6955d intitial checkin
ca
parents:
diff changeset
   124
              )
785417b6955d intitial checkin
ca
parents:
diff changeset
   125
          )
785417b6955d intitial checkin
ca
parents:
diff changeset
   126
      )
785417b6955d intitial checkin
ca
parents:
diff changeset
   127
! !
785417b6955d intitial checkin
ca
parents:
diff changeset
   128
785417b6955d intitial checkin
ca
parents:
diff changeset
   129
!UIHelpTool methodsFor:'accessing'!
785417b6955d intitial checkin
ca
parents:
diff changeset
   130
151
ca
parents: 148
diff changeset
   131
dictionary
ca
parents: 148
diff changeset
   132
    "return the value of the instance variable 'dictionary' (automatically generated)"
ca
parents: 148
diff changeset
   133
ca
parents: 148
diff changeset
   134
    ^ dictionary!
ca
parents: 148
diff changeset
   135
ca
parents: 148
diff changeset
   136
dictionary:aDictionary
ca
parents: 148
diff changeset
   137
    "set the value of the instance variable 'dictionary' (automatically generated)"
ca
parents: 148
diff changeset
   138
ca
parents: 148
diff changeset
   139
    (dictionary := aDictionary) notNil ifTrue:[
ca
parents: 148
diff changeset
   140
        list := dictionary keys asOrderedCollection
ca
parents: 148
diff changeset
   141
    ] ifFalse:[
ca
parents: 148
diff changeset
   142
        list := nil
ca
parents: 148
diff changeset
   143
    ].
ca
parents: 148
diff changeset
   144
!
ca
parents: 148
diff changeset
   145
148
785417b6955d intitial checkin
ca
parents:
diff changeset
   146
key
785417b6955d intitial checkin
ca
parents:
diff changeset
   147
    "get the key from the edit field as symbol or nil
785417b6955d intitial checkin
ca
parents:
diff changeset
   148
    "
785417b6955d intitial checkin
ca
parents:
diff changeset
   149
    |key|
785417b6955d intitial checkin
ca
parents:
diff changeset
   150
785417b6955d intitial checkin
ca
parents:
diff changeset
   151
    key := model value.
785417b6955d intitial checkin
ca
parents:
diff changeset
   152
785417b6955d intitial checkin
ca
parents:
diff changeset
   153
    (     key size ~~ 0
785417b6955d intitial checkin
ca
parents:
diff changeset
   154
     and:[(key indexOfSeparatorStartingAt:1) == 0
785417b6955d intitial checkin
ca
parents:
diff changeset
   155
      or:[(key := key withoutSeparators) notEmpty]]
785417b6955d intitial checkin
ca
parents:
diff changeset
   156
    ) ifTrue:[
785417b6955d intitial checkin
ca
parents:
diff changeset
   157
        ^ key asSymbol
785417b6955d intitial checkin
ca
parents:
diff changeset
   158
    ].
785417b6955d intitial checkin
ca
parents:
diff changeset
   159
  ^ nil
785417b6955d intitial checkin
ca
parents:
diff changeset
   160
!
785417b6955d intitial checkin
ca
parents:
diff changeset
   161
785417b6955d intitial checkin
ca
parents:
diff changeset
   162
model:aKeyHolder
785417b6955d intitial checkin
ca
parents:
diff changeset
   163
    "set the model on the edit field
785417b6955d intitial checkin
ca
parents:
diff changeset
   164
    "
785417b6955d intitial checkin
ca
parents:
diff changeset
   165
    model notNil ifTrue:[
785417b6955d intitial checkin
ca
parents:
diff changeset
   166
        model removeDependent:self
785417b6955d intitial checkin
ca
parents:
diff changeset
   167
    ].
785417b6955d intitial checkin
ca
parents:
diff changeset
   168
    (model := aKeyHolder) notNil ifTrue:[
785417b6955d intitial checkin
ca
parents:
diff changeset
   169
        model addDependent:self
785417b6955d intitial checkin
ca
parents:
diff changeset
   170
    ].
785417b6955d intitial checkin
ca
parents:
diff changeset
   171
    (builder componentAt:#comboBox) model:model.
151
ca
parents: 148
diff changeset
   172
    self update:nil with:#model from:model.
148
785417b6955d intitial checkin
ca
parents:
diff changeset
   173
! !
785417b6955d intitial checkin
ca
parents:
diff changeset
   174
785417b6955d intitial checkin
ca
parents:
diff changeset
   175
!UIHelpTool methodsFor:'actions'!
785417b6955d intitial checkin
ca
parents:
diff changeset
   176
785417b6955d intitial checkin
ca
parents:
diff changeset
   177
accept
785417b6955d intitial checkin
ca
parents:
diff changeset
   178
    "accept the text
785417b6955d intitial checkin
ca
parents:
diff changeset
   179
    "
785417b6955d intitial checkin
ca
parents:
diff changeset
   180
    |key txt|
785417b6955d intitial checkin
ca
parents:
diff changeset
   181
785417b6955d intitial checkin
ca
parents:
diff changeset
   182
    key := self key.
785417b6955d intitial checkin
ca
parents:
diff changeset
   183
    txt := self textChannel.
785417b6955d intitial checkin
ca
parents:
diff changeset
   184
785417b6955d intitial checkin
ca
parents:
diff changeset
   185
    key notNil ifTrue:[
785417b6955d intitial checkin
ca
parents:
diff changeset
   186
        txt dependentsDo:[:edt| edt accept].
785417b6955d intitial checkin
ca
parents:
diff changeset
   187
785417b6955d intitial checkin
ca
parents:
diff changeset
   188
        (dictionary at:key ifAbsent:nil) isNil ifTrue:[
785417b6955d intitial checkin
ca
parents:
diff changeset
   189
            list add:key.
785417b6955d intitial checkin
ca
parents:
diff changeset
   190
            self listChannel value:list
785417b6955d intitial checkin
ca
parents:
diff changeset
   191
        ].
785417b6955d intitial checkin
ca
parents:
diff changeset
   192
        dictionary at:key put:(txt value)
785417b6955d intitial checkin
ca
parents:
diff changeset
   193
    ] ifFalse:[
785417b6955d intitial checkin
ca
parents:
diff changeset
   194
        key := nil.
785417b6955d intitial checkin
ca
parents:
diff changeset
   195
        txt value:nil.
785417b6955d intitial checkin
ca
parents:
diff changeset
   196
    ].
785417b6955d intitial checkin
ca
parents:
diff changeset
   197
785417b6955d intitial checkin
ca
parents:
diff changeset
   198
    model notNil ifTrue:[
785417b6955d intitial checkin
ca
parents:
diff changeset
   199
        model value:key
785417b6955d intitial checkin
ca
parents:
diff changeset
   200
    ]
785417b6955d intitial checkin
ca
parents:
diff changeset
   201
! !
785417b6955d intitial checkin
ca
parents:
diff changeset
   202
785417b6955d intitial checkin
ca
parents:
diff changeset
   203
!UIHelpTool methodsFor:'aspects'!
785417b6955d intitial checkin
ca
parents:
diff changeset
   204
785417b6955d intitial checkin
ca
parents:
diff changeset
   205
listChannel
785417b6955d intitial checkin
ca
parents:
diff changeset
   206
    "automatically generated by UIPainter ..."
785417b6955d intitial checkin
ca
parents:
diff changeset
   207
785417b6955d intitial checkin
ca
parents:
diff changeset
   208
    |holder|
785417b6955d intitial checkin
ca
parents:
diff changeset
   209
785417b6955d intitial checkin
ca
parents:
diff changeset
   210
    (holder := builder bindingAt:#listChannel) isNil ifTrue:[
785417b6955d intitial checkin
ca
parents:
diff changeset
   211
        builder aspectAt:#listChannel put:(holder :=  ValueHolder new).
151
ca
parents: 148
diff changeset
   212
        holder value:list
148
785417b6955d intitial checkin
ca
parents:
diff changeset
   213
    ].
785417b6955d intitial checkin
ca
parents:
diff changeset
   214
    ^ holder
785417b6955d intitial checkin
ca
parents:
diff changeset
   215
!
785417b6955d intitial checkin
ca
parents:
diff changeset
   216
785417b6955d intitial checkin
ca
parents:
diff changeset
   217
textChannel
785417b6955d intitial checkin
ca
parents:
diff changeset
   218
    "automatically generated by UIPainter ..."
785417b6955d intitial checkin
ca
parents:
diff changeset
   219
785417b6955d intitial checkin
ca
parents:
diff changeset
   220
    |holder|
785417b6955d intitial checkin
ca
parents:
diff changeset
   221
785417b6955d intitial checkin
ca
parents:
diff changeset
   222
    (holder := builder bindingAt:#textChannel) isNil ifTrue:[
785417b6955d intitial checkin
ca
parents:
diff changeset
   223
        builder aspectAt:#textChannel put:(holder :=  ValueHolder new).
785417b6955d intitial checkin
ca
parents:
diff changeset
   224
    ].
785417b6955d intitial checkin
ca
parents:
diff changeset
   225
    ^ holder
785417b6955d intitial checkin
ca
parents:
diff changeset
   226
! !
785417b6955d intitial checkin
ca
parents:
diff changeset
   227
785417b6955d intitial checkin
ca
parents:
diff changeset
   228
!UIHelpTool methodsFor:'change & update'!
785417b6955d intitial checkin
ca
parents:
diff changeset
   229
785417b6955d intitial checkin
ca
parents:
diff changeset
   230
update:something with:aParameter from:someObject
785417b6955d intitial checkin
ca
parents:
diff changeset
   231
    "model might change
785417b6955d intitial checkin
ca
parents:
diff changeset
   232
    "
785417b6955d intitial checkin
ca
parents:
diff changeset
   233
    |text key|
785417b6955d intitial checkin
ca
parents:
diff changeset
   234
785417b6955d intitial checkin
ca
parents:
diff changeset
   235
    (key := self key) notNil ifTrue:[
785417b6955d intitial checkin
ca
parents:
diff changeset
   236
        (text := dictionary at:key ifAbsent:nil) notNil ifTrue:[
785417b6955d intitial checkin
ca
parents:
diff changeset
   237
            self textChannel value:text
785417b6955d intitial checkin
ca
parents:
diff changeset
   238
        ]
785417b6955d intitial checkin
ca
parents:
diff changeset
   239
    ]
785417b6955d intitial checkin
ca
parents:
diff changeset
   240
! !
785417b6955d intitial checkin
ca
parents:
diff changeset
   241
785417b6955d intitial checkin
ca
parents:
diff changeset
   242
!UIHelpTool methodsFor:'initialization'!
785417b6955d intitial checkin
ca
parents:
diff changeset
   243
785417b6955d intitial checkin
ca
parents:
diff changeset
   244
initialize
785417b6955d intitial checkin
ca
parents:
diff changeset
   245
    "setup instance attributes
785417b6955d intitial checkin
ca
parents:
diff changeset
   246
    "
785417b6955d intitial checkin
ca
parents:
diff changeset
   247
    super initialize.
785417b6955d intitial checkin
ca
parents:
diff changeset
   248
    dictionary  := IdentityDictionary new.
785417b6955d intitial checkin
ca
parents:
diff changeset
   249
    list        := OrderedCollection new.
785417b6955d intitial checkin
ca
parents:
diff changeset
   250
! !
785417b6955d intitial checkin
ca
parents:
diff changeset
   251
785417b6955d intitial checkin
ca
parents:
diff changeset
   252
!UIHelpTool class methodsFor:'documentation'!
785417b6955d intitial checkin
ca
parents:
diff changeset
   253
785417b6955d intitial checkin
ca
parents:
diff changeset
   254
version
785417b6955d intitial checkin
ca
parents:
diff changeset
   255
    ^ '$Header$'
785417b6955d intitial checkin
ca
parents:
diff changeset
   256
! !