# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1030092974 -7200
# Node ID 51c53d6656f4672f09ac3c478a8b289784239593
# Parent  c21cb650b2a031a0151895f329ada277c4106e0d
*** empty log message ***

diff -r c21cb650b2a0 -r 51c53d6656f4 SnapShotImage.st
--- a/SnapShotImage.st	Thu Aug 22 19:03:11 2002 +0200
+++ b/SnapShotImage.st	Fri Aug 23 10:56:14 2002 +0200
@@ -155,6 +155,10 @@
     ^ nil
 !
 
+hasNamespaces
+    ^ true
+!
+
 keysAndValuesDo:aTwoArgBlock
     globals isNil ifTrue:[
         self fetchGlobals
diff -r c21cb650b2a0 -r 51c53d6656f4 SnapShotImageMemory.st
--- a/SnapShotImageMemory.st	Thu Aug 22 19:03:11 2002 +0200
+++ b/SnapShotImageMemory.st	Fri Aug 23 10:56:14 2002 +0200
@@ -1419,6 +1419,10 @@
         ^ junk
     ].
     self halt.
+!
+
+syntaxHighlighterClass
+    ^ #askClass
 ! !
 
 !SnapShotImageMemory::ImageMethodObject methodsFor:'queries'!