UserMessage.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Sat, 24 Oct 2009 16:48:19 +0100
branchjv
changeset 17732 a1892eeca6c0
parent 17711 39faaaf888b4
child 17734 406b1590afe8
permissions -rw-r--r--
trunk merged into jv branch
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
6117
013cab950016 +expandMacros
Claus Gittinger <cg@exept.de>
parents: 6008
diff changeset
     1
"{ Package: 'stx:libbasic' }"
5996
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
Object subclass:#UserMessage
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
	instanceVariableNames:'defaultString key catalogID'
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
	classVariableNames:''
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
	poolDictionaries:''
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
	category:'Interface-Internationalization'
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
!
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
6008
7ac30515dddc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5996
diff changeset
    10
!UserMessage class methodsFor:'documentation'!
7ac30515dddc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5996
diff changeset
    11
7ac30515dddc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5996
diff changeset
    12
documentation
7ac30515dddc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5996
diff changeset
    13
"
7ac30515dddc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5996
diff changeset
    14
    added for vw5i compatibility, which accesses messageCatalogs
7ac30515dddc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5996
diff changeset
    15
    via:
7ac30515dddc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5996
diff changeset
    16
          (#key << #catalogID >> 'defaultMessage')
7ac30515dddc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5996
diff changeset
    17
    which creates an instance of UserMessage.
7ac30515dddc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5996
diff changeset
    18
7ac30515dddc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5996
diff changeset
    19
    Currently, this is a dummy operation in ST/X, however it is mapped onto
7ac30515dddc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5996
diff changeset
    20
    the resource mechanism, if the given catalogID is the name of a class;
7ac30515dddc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5996
diff changeset
    21
    i.e.
7ac30515dddc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5996
diff changeset
    22
        (YesNoBox classResources string:'continue')
7ac30515dddc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5996
diff changeset
    23
    can now also be written as:
7ac30515dddc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5996
diff changeset
    24
        (#continue << #YesNoBox) 
7ac30515dddc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5996
diff changeset
    25
"
7ac30515dddc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5996
diff changeset
    26
! !
5996
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
!UserMessage class methodsFor:'instance creation'!
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
key:aKeySymbol catalogID:aCatalogSymbol
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
     ^ self new key:aKeySymbol catalogID:aCatalogSymbol
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
!
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    34
key:aKeySymbol defaultString:aString
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    35
     ^ self new key:aKeySymbol defaultString:aString
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    36
! !
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
!UserMessage methodsFor:'accessing'!
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    40
catalogID
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    41
     ^ catalogID 
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    42
!
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    43
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    44
catalogID:aCatalogSymbol
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    45
     catalogID := aCatalogSymbol
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    46
!
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    47
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    48
defaultString
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    49
     ^ defaultString 
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    50
!
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    51
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    52
defaultString:aString
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    53
     defaultString := aString
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    54
!
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    55
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    56
key
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    57
     ^ key
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    58
!
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    59
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    60
key:aKeySymbol
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    61
     key := aKeySymbol.
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    62
!
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    63
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    64
key:aKeySymbol catalogID:aCatalogSymbol
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    65
     key := aKeySymbol.
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    66
     catalogID := aCatalogSymbol
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    67
!
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    68
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    69
key:aKeySymbol defaultString:aString
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    70
     key := aKeySymbol.
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    71
     defaultString := aString
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    72
! !
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    73
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    74
!UserMessage methodsFor:'converting'!
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    75
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    76
asString
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    77
    "for now: return the defaultString, ignoring the catalogID."
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    78
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    79
    |str|
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    80
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    81
    str := self lookupInMessageCatalog.
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    82
    str notNil ifTrue:[ ^ str ].
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    83
    defaultString notNil ifTrue:[
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    84
        ^ defaultString
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    85
    ].
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    86
    ^ key asString
6117
013cab950016 +expandMacros
Claus Gittinger <cg@exept.de>
parents: 6008
diff changeset
    87
!
013cab950016 +expandMacros
Claus Gittinger <cg@exept.de>
parents: 6008
diff changeset
    88
013cab950016 +expandMacros
Claus Gittinger <cg@exept.de>
parents: 6008
diff changeset
    89
expandMacros
013cab950016 +expandMacros
Claus Gittinger <cg@exept.de>
parents: 6008
diff changeset
    90
    ^ self asString expandMacros
013cab950016 +expandMacros
Claus Gittinger <cg@exept.de>
parents: 6008
diff changeset
    91
013cab950016 +expandMacros
Claus Gittinger <cg@exept.de>
parents: 6008
diff changeset
    92
!
013cab950016 +expandMacros
Claus Gittinger <cg@exept.de>
parents: 6008
diff changeset
    93
013cab950016 +expandMacros
Claus Gittinger <cg@exept.de>
parents: 6008
diff changeset
    94
expandMacrosWith:arg1
013cab950016 +expandMacros
Claus Gittinger <cg@exept.de>
parents: 6008
diff changeset
    95
    ^ self asString expandMacrosWith:arg1
013cab950016 +expandMacros
Claus Gittinger <cg@exept.de>
parents: 6008
diff changeset
    96
17732
a1892eeca6c0 trunk merged into jv branch
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17711
diff changeset
    97
!
a1892eeca6c0 trunk merged into jv branch
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17711
diff changeset
    98
a1892eeca6c0 trunk merged into jv branch
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17711
diff changeset
    99
string
a1892eeca6c0 trunk merged into jv branch
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17711
diff changeset
   100
    ^ self asString
5996
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   101
! !
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   102
6591
586fb5c604ba #displayString
Stefan Vogel <sv@exept.de>
parents: 6117
diff changeset
   103
!UserMessage methodsFor:'printing & storing'!
586fb5c604ba #displayString
Stefan Vogel <sv@exept.de>
parents: 6117
diff changeset
   104
586fb5c604ba #displayString
Stefan Vogel <sv@exept.de>
parents: 6117
diff changeset
   105
displayString
586fb5c604ba #displayString
Stefan Vogel <sv@exept.de>
parents: 6117
diff changeset
   106
586fb5c604ba #displayString
Stefan Vogel <sv@exept.de>
parents: 6117
diff changeset
   107
    |stream|
586fb5c604ba #displayString
Stefan Vogel <sv@exept.de>
parents: 6117
diff changeset
   108
586fb5c604ba #displayString
Stefan Vogel <sv@exept.de>
parents: 6117
diff changeset
   109
    stream := '' writeStream.
586fb5c604ba #displayString
Stefan Vogel <sv@exept.de>
parents: 6117
diff changeset
   110
586fb5c604ba #displayString
Stefan Vogel <sv@exept.de>
parents: 6117
diff changeset
   111
    key storeOn:stream.
586fb5c604ba #displayString
Stefan Vogel <sv@exept.de>
parents: 6117
diff changeset
   112
    stream nextPutAll:' << '.
586fb5c604ba #displayString
Stefan Vogel <sv@exept.de>
parents: 6117
diff changeset
   113
    catalogID storeOn:stream.
6887
d01c2201398e *** empty log message ***
Stefan Vogel <sv@exept.de>
parents: 6591
diff changeset
   114
    defaultString notNil ifTrue:[
d01c2201398e *** empty log message ***
Stefan Vogel <sv@exept.de>
parents: 6591
diff changeset
   115
        stream nextPutAll:' >> '.
d01c2201398e *** empty log message ***
Stefan Vogel <sv@exept.de>
parents: 6591
diff changeset
   116
        defaultString storeOn:stream.
d01c2201398e *** empty log message ***
Stefan Vogel <sv@exept.de>
parents: 6591
diff changeset
   117
    ].
6591
586fb5c604ba #displayString
Stefan Vogel <sv@exept.de>
parents: 6117
diff changeset
   118
    ^ stream contents.
586fb5c604ba #displayString
Stefan Vogel <sv@exept.de>
parents: 6117
diff changeset
   119
! !
586fb5c604ba #displayString
Stefan Vogel <sv@exept.de>
parents: 6117
diff changeset
   120
5996
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   121
!UserMessage methodsFor:'utilities'!
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   122
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   123
<< aSymbol
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   124
    "set the catalogID"
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   125
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   126
    self catalogID:aSymbol
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   127
!
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   128
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   129
>> aString
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   130
    "set the default string"
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   131
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   132
    self defaultString:aString
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   133
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   134
    "
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   135
     (#theFooMessage << #myMessages >> 'cannot read subclass of metaclass') 
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   136
    "
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   137
!
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   138
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   139
lookupInMessageCatalog
6887
d01c2201398e *** empty log message ***
Stefan Vogel <sv@exept.de>
parents: 6591
diff changeset
   140
    |messageCatalog|
5996
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   141
6887
d01c2201398e *** empty log message ***
Stefan Vogel <sv@exept.de>
parents: 6591
diff changeset
   142
    "/ for now - handle the case that the catalogID is
5996
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   143
    "/ a classes name; in that case, ask its resourcePack.
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   144
6887
d01c2201398e *** empty log message ***
Stefan Vogel <sv@exept.de>
parents: 6591
diff changeset
   145
    catalogID isSymbol ifTrue:[
d01c2201398e *** empty log message ***
Stefan Vogel <sv@exept.de>
parents: 6591
diff changeset
   146
        messageCatalog := Smalltalk at:catalogID.
d01c2201398e *** empty log message ***
Stefan Vogel <sv@exept.de>
parents: 6591
diff changeset
   147
    ] ifFalse:[
d01c2201398e *** empty log message ***
Stefan Vogel <sv@exept.de>
parents: 6591
diff changeset
   148
        messageCatalog := catalogID.
d01c2201398e *** empty log message ***
Stefan Vogel <sv@exept.de>
parents: 6591
diff changeset
   149
    ].
d01c2201398e *** empty log message ***
Stefan Vogel <sv@exept.de>
parents: 6591
diff changeset
   150
    messageCatalog isBehavior ifTrue:[
d01c2201398e *** empty log message ***
Stefan Vogel <sv@exept.de>
parents: 6591
diff changeset
   151
        messageCatalog := messageCatalog classResources.
5996
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   152
    ].
6887
d01c2201398e *** empty log message ***
Stefan Vogel <sv@exept.de>
parents: 6591
diff changeset
   153
    messageCatalog isNil ifTrue:[
d01c2201398e *** empty log message ***
Stefan Vogel <sv@exept.de>
parents: 6591
diff changeset
   154
        defaultString isNil ifTrue:[
d01c2201398e *** empty log message ***
Stefan Vogel <sv@exept.de>
parents: 6591
diff changeset
   155
            ^ 'Non-existant message (%1<<%2)' bindWith:key with:catalogID printString.
d01c2201398e *** empty log message ***
Stefan Vogel <sv@exept.de>
parents: 6591
diff changeset
   156
        ].
d01c2201398e *** empty log message ***
Stefan Vogel <sv@exept.de>
parents: 6591
diff changeset
   157
        ^ defaultString.
d01c2201398e *** empty log message ***
Stefan Vogel <sv@exept.de>
parents: 6591
diff changeset
   158
    ].
d01c2201398e *** empty log message ***
Stefan Vogel <sv@exept.de>
parents: 6591
diff changeset
   159
d01c2201398e *** empty log message ***
Stefan Vogel <sv@exept.de>
parents: 6591
diff changeset
   160
    ^ messageCatalog at:key ifAbsent:defaultString.
5996
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   161
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   162
    "
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   163
     (#'WARN_RENAME' << #BrowserView >> 'A class named %1 already exists (in ''%2'')\\that class will no longer be visible (i.e. removed) if you continue.\\Continue ?' )
6887
d01c2201398e *** empty log message ***
Stefan Vogel <sv@exept.de>
parents: 6591
diff changeset
   164
     (#'WARN_RENAME' << #BrowserView)
d01c2201398e *** empty log message ***
Stefan Vogel <sv@exept.de>
parents: 6591
diff changeset
   165
     (#'WARN_RENAME' << BrowserView classResources)
d01c2201398e *** empty log message ***
Stefan Vogel <sv@exept.de>
parents: 6591
diff changeset
   166
     (#dontKnow << #nonExistantMessageCatalog) asString
5996
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   167
    "
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   168
! !
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   169
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   170
!UserMessage class methodsFor:'documentation'!
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   171
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   172
version
17732
a1892eeca6c0 trunk merged into jv branch
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17711
diff changeset
   173
    ^ '$Id: UserMessage.st 10473 2009-10-24 15:48:19Z vranyj1 $'
a1892eeca6c0 trunk merged into jv branch
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17711
diff changeset
   174
!
a1892eeca6c0 trunk merged into jv branch
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17711
diff changeset
   175
a1892eeca6c0 trunk merged into jv branch
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17711
diff changeset
   176
version_CVS
a1892eeca6c0 trunk merged into jv branch
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17711
diff changeset
   177
    ^ '§Header: /cvs/stx/stx/libbasic/UserMessage.st,v 1.6 2009/10/02 00:08:10 cg Exp §'
5996
df75959d85f3 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   178
! !
17732
a1892eeca6c0 trunk merged into jv branch
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 17711
diff changeset
   179