equal
deleted
inserted
replaced
7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 |
|
13 "{ Package: 'stx:libbasic' }" |
12 "{ Package: 'stx:libbasic' }" |
14 |
13 |
15 Object subclass:#Visitor |
14 Object subclass:#Visitor |
16 instanceVariableNames:'' |
15 instanceVariableNames:'' |
17 classVariableNames:'' |
16 classVariableNames:'' |
231 ! |
230 ! |
232 |
231 |
233 visitSymbol:aSymbol with:aParameter |
232 visitSymbol:aSymbol with:aParameter |
234 "visit a Symbol" |
233 "visit a Symbol" |
235 |
234 |
236 self visitObject:aSymbol with:aParameter |
235 ^ self visitString:aSymbol with:aParameter |
237 ! |
236 ! |
238 |
237 |
239 visitTimestamp:aTimestamp with:aParameter |
238 visitTimestamp:aTimestamp with:aParameter |
240 "visit an absolute time value" |
239 "visit an absolute time value" |
241 |
240 |
243 ! ! |
242 ! ! |
244 |
243 |
245 !Visitor class methodsFor:'documentation'! |
244 !Visitor class methodsFor:'documentation'! |
246 |
245 |
247 version |
246 version |
248 ^ '$Header: /cvs/stx/stx/libbasic/Visitor.st,v 1.2 2004-06-11 17:54:29 stefan Exp $' |
247 ^ '$Header: /cvs/stx/stx/libbasic/Visitor.st,v 1.3 2008-06-03 16:22:09 stefan Exp $' |
249 ! ! |
248 ! ! |