--- a/Behavior.st Thu Mar 26 01:38:11 2015 +0100
+++ b/Behavior.st Thu Mar 26 11:04:19 2015 +0100
@@ -1557,6 +1557,11 @@
!Behavior methodsFor:'cleanup'!
+flushSubclasses
+ "I dont keep my subclasses - but if anyone inherits from me,
+ it better knows how to ignore this"
+!
+
lowSpaceCleanup
"ignored here - redefined in some classes to
cleanup in low-memory situations"
@@ -1573,10 +1578,23 @@
^ self class browserClass.
!
+compiler
+ "return the compiler to use for this class.
+ OBSOLETE: This is the old ST/X interface, kept for migration.
+ Don't use it - it will vanish."
+
+ <resource:#obsolete>
+
+ self obsoleteMethodWarning:'use #compilerClass'.
+ ^ self compilerClass
+
+ "Modified: 31.7.1997 / 23:04:33 / cg"
+!
+
compilerClass
"return the compiler to use for this class -
this can be redefined in special classes, to compile classes with
- Lisp, Prolog, ASN1, Basic :-) or whatever syntax."
+ JavaScript, Ruby, Lisp, Prolog, ASN1, Basic :-) or whatever syntax."
^ self class compilerClass.
!
@@ -1595,7 +1613,7 @@
evaluatorClass
"return the compiler to use for expression evaluation for this class -
this can be redefined in special classes, to evaluate expressions with
- Lisp, Prolog, ASN1, Basic :-) or whatever syntax."
+ JavaScript, Ruby, Lisp, Prolog, ASN1, Basic :-) or whatever syntax."
^ self class evaluatorClass.
!
@@ -1603,13 +1621,17 @@
formatterClass
"return the parser to use for formatting (prettyPrinting) this class -
this can be redefined in special classes, to format classes with
- Lisp, Prolog, ASN1, Basic :-) or whatever syntax."
+ JavaScript, Ruby, Lisp, Prolog, ASN1, Basic :-) or whatever syntax."
^ self class formatterClass.
!
language
+ "return the programming language to use for this class.
+ OBSOLETE: This is an old interface which will vanish (easily confused with UI-national language)."
+
<resource: #obsolete>
+
self obsoleteMethodWarning:'use #programmingLanguage or Smalltalk language'.
^ self class programmingLanguage
@@ -1619,7 +1641,7 @@
parserClass
"return the parser to use for parsing this class -
this can be redefined in special classes, to parse classes with
- Lisp, Prolog, ASN1, Basic :-) or whatever syntax."
+ JavaScript, Ruby, Lisp, Prolog, ASN1, Basic :-) or whatever syntax."
^ self class parserClass.
!
@@ -1641,7 +1663,7 @@
syntaxHighlighterClass
"return the class to use for syntaxHighlighting (prettyPrinting) this class -
this can be redefined in special classes, to highlight classes with
- Lisp, Prolog, ASN1, Basic :-) or whatever syntax."
+ JavaScript, Ruby, Lisp, Prolog, ASN1, Basic :-) or whatever syntax."
^ self class syntaxHighlighterClass.
! !
@@ -2945,7 +2967,7 @@
^ self basicNew:anInteger
! !
-!Behavior methodsFor:'misc'!
+!Behavior methodsFor:'misc ui support'!
browse
"open a browser showing the receiver"
@@ -2976,33 +2998,6 @@
"Modified: / 31-01-2011 / 11:05:49 / cg"
!
-flushSubclasses
- "I dont keep my subclasses - but if anyone inherits from me,
- it better knows how to ignore this"
-!
-
-iconInBrowserSymbol
- "can be redefined for a private icon in the browser (for me and my subclasses).
- The returned symbol must be a selector of the ToolbarIconLibrary."
-
- <resource: #programImage>
-
- self isLoaded ifFalse:[
- ^ #autoloadedClassBrowserIcon
- ].
- (self isBrowserStartable) ifTrue:[
- self isVisualStartable ifTrue:[
- ^ #visualStartableClassBrowserIcon
- ].
- ^ #startableClassBrowserIcon
- ].
-
- "/ give ruby and other special metaclasses a chance to provide their own icon...
- ^ self class iconInBrowserSymbol
-
- "Created: / 20-07-2007 / 08:52:17 / cg"
-!
-
sourceCodeTemplate
^ 'messageSelector and arguments
"method comment - purpose of message"
@@ -3022,11 +3017,11 @@
toolListIcon
"VisualWorks icon retrieval for the browser list.
Only redefined in VW classes.
- Notice, that ST/X uses a better scheme, where class only
+ Notice, that ST/X uses a better scheme, where the class only
returns a symbol, which is used to map into the icon library.
Thus allowing different icons as per view style"
- ^ nil
+ ^ nil
! !
!Behavior methodsFor:'printing & storing'!
@@ -5116,10 +5111,10 @@
!Behavior class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.370 2015-03-26 00:38:11 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.371 2015-03-26 10:04:19 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.370 2015-03-26 00:38:11 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.371 2015-03-26 10:04:19 cg Exp $'
! !