# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1448127091 -3600
# Node ID 133920e78771c643ce7fb31cb043ede75a495cca
# Parent  474e82fb794ac0a63ea028af3ab9bacc93d9ff36
#UI_ENHANCEMENT
class: CompiledCode
added: #isAbstract

diff -r 474e82fb794a -r 133920e78771 CompiledCode.st
--- a/CompiledCode.st	Sat Nov 21 01:23:05 2015 +0100
+++ b/CompiledCode.st	Sat Nov 21 18:31:31 2015 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1994 by Claus Gittinger
 	      All Rights Reserved
@@ -119,6 +117,10 @@
 
 !CompiledCode class methodsFor:'queries'!
 
+isAbstract
+    ^ self == CompiledCode
+!
+
 isBuiltInClass
     "return true if this class is known by the run-time-system.
      Here, true is returned for myself, false for subclasses."
@@ -1995,11 +1997,11 @@
 !CompiledCode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.130 2015-06-05 16:09:24 stefan Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.130 2015-06-05 16:09:24 stefan Exp $'
+    ^ '$Header$'
 !
 
 version_SVN