--- a/CharacterEncoderImplementations__JIS0208_to_JIS7.st	Tue Mar 09 00:26:52 2004 +0100
+++ b/CharacterEncoderImplementations__JIS0208_to_JIS7.st	Tue Mar 09 00:55:50 2004 +0100
@@ -109,51 +109,6 @@
 "
 ! !
 
-!JIS0208_to_JIS7 class methodsFor:'constants'!
-
-jis7KanjiEscapeSequence
-    "return the escape sequence used to switch to kanji in jis7 encoded strings.
-     This happens to be the same as ISO2022-JP's escape sequence."
-
-    Jis7KanjiEscapeSequence isNil ifTrue:[
-	Jis7KanjiEscapeSequence := Character esc asString , '$B'.
-    ].
-    ^ Jis7KanjiEscapeSequence.
-
-    "Created: 26.2.1996 / 17:38:08 / cg"
-    "Modified: 30.6.1997 / 16:03:16 / cg"
-!
-
-jis7KanjiOldEscapeSequence
-    "return the escape sequence used to switch to kanji in some old jis7 encoded strings."
-
-    Jis7KanjiOldEscapeSequence isNil ifTrue:[
-        Jis7KanjiOldEscapeSequence := Character esc asString , '$@'..
-    ].
-    ^ Jis7KanjiOldEscapeSequence.
-!
-
-jis7RomanEscapeSequence
-    "return the escape sequence used to switch to roman in jis7 encoded strings"
-
-    Jis7RomanEscapeSequence isNil ifTrue:[
-	Jis7RomanEscapeSequence := Character esc asString , '(J'.
-    ].
-    ^ Jis7RomanEscapeSequence.
-
-    "Created: 26.2.1996 / 17:38:08 / cg"
-    "Modified: 30.6.1997 / 16:03:16 / cg"
-!
-
-jisISO2022EscapeSequence
-    "return the escape sequence used to switch to kanji in iso2022 encoded strings"
-
-    JisISO2022EscapeSequence isNil ifTrue:[
-        JisISO2022EscapeSequence := Character esc asString , '&@' , Character esc asString , '$B'.
-    ].
-    ^ JisISO2022EscapeSequence.
-! !
-
 !JIS0208_to_JIS7 class methodsFor:'queries'!
 
 nameOfDecodedCode
@@ -303,10 +258,10 @@
      val romans out inSingleByteMode c kanji roman val2|
 
     inSingleByteMode := true.
-    kanji := self class jis7KanjiEscapeSequence.
-    roman := self class jis7RomanEscapeSequence.
+    kanji := CharacterEncoder jis7KanjiEscapeSequence.
+    roman := CharacterEncoder jis7RomanEscapeSequence.
 
-    romans := CharacterEncoder::JIS0208 romanTable.
+    romans := CharacterEncoderImplementations::JIS0208 romanTable.
 
     sz := aJISString size.
     sz == 0 ifTrue:[^ ''].
@@ -385,5 +340,5 @@
 !JIS0208_to_JIS7 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__JIS0208_to_JIS7.st,v 1.4 2004-03-08 23:26:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__JIS0208_to_JIS7.st,v 1.5 2004-03-08 23:55:50 cg Exp $'
 ! !