Mercurial Mercurial > hg > stx-libcomp / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
.
authorclaus
Sat, 06 May 1995 16:12:26 +0200
changeset 85 31681583c44f
parent 84 ecb74f0507fd
child 86 26316d17e8c0
.
BCompiler.st file | annotate | diff | comparison | revisions
ByteCodeCompiler.st file | annotate | diff | comparison | revisions
Parser.st file | annotate | diff | comparison | revisions 
--- a/BCompiler.st	Tue May 02 01:04:40 1995 +0200
+++ b/BCompiler.st	Sat May 06 16:12:26 1995 +0200
@@ -26,7 +26,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libcomp/Attic/BCompiler.st,v 1.20 1995-05-01 23:03:42 claus Exp $
+$Header: /cvs/stx/stx/libcomp/Attic/BCompiler.st,v 1.21 1995-05-06 14:12:09 claus Exp $
 '!
 
 !ByteCodeCompiler class methodsFor:'documentation'!
@@ -47,7 +47,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libcomp/Attic/BCompiler.st,v 1.20 1995-05-01 23:03:42 claus Exp $
+$Header: /cvs/stx/stx/libcomp/Attic/BCompiler.st,v 1.21 1995-05-06 14:12:09 claus Exp $
 "
 !
 
@@ -84,6 +84,18 @@
 
 !ByteCodeCompiler class methodsFor:'compiling methods'!
 
+compile:textOrStream in:aClass notifying:aRequestor ifFail:aBlock
+    "name alias for ST-80 compatibility"
+
+    ^ self compile:textOrStream
+	  forClass:aClass 
+	inCategory:'others'
+	 notifying:aRequestor 
+	   install:true
+	skipIfSame:false
+	    silent:false
+!
+
 compile:methodText forClass:classToCompileFor
     "compile a source-string for a method in classToCompileFor"
 
--- a/ByteCodeCompiler.st	Tue May 02 01:04:40 1995 +0200
+++ b/ByteCodeCompiler.st	Sat May 06 16:12:26 1995 +0200
@@ -26,7 +26,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.20 1995-05-01 23:03:42 claus Exp $
+$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.21 1995-05-06 14:12:09 claus Exp $
 '!
 
 !ByteCodeCompiler class methodsFor:'documentation'!
@@ -47,7 +47,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.20 1995-05-01 23:03:42 claus Exp $
+$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.21 1995-05-06 14:12:09 claus Exp $
 "
 !
 
@@ -84,6 +84,18 @@
 
 !ByteCodeCompiler class methodsFor:'compiling methods'!
 
+compile:textOrStream in:aClass notifying:aRequestor ifFail:aBlock
+    "name alias for ST-80 compatibility"
+
+    ^ self compile:textOrStream
+	  forClass:aClass 
+	inCategory:'others'
+	 notifying:aRequestor 
+	   install:true
+	skipIfSame:false
+	    silent:false
+!
+
 compile:methodText forClass:classToCompileFor
     "compile a source-string for a method in classToCompileFor"
 
--- a/Parser.st	Tue May 02 01:04:40 1995 +0200
+++ b/Parser.st	Sat May 06 16:12:26 1995 +0200
@@ -41,7 +41,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.37 1995-05-01 23:04:17 claus Exp $
+$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.38 1995-05-06 14:12:26 claus Exp $
 '!
 
 !Parser class methodsFor:'documentation'!
@@ -62,7 +62,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.37 1995-05-01 23:04:17 claus Exp $
+$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.38 1995-05-06 14:12:26 claus Exp $
 "
 !
 
@@ -2783,11 +2783,11 @@
 
     |box|
 
+    "in systems without widgets ..."
     ListSelectionBox isNil ifTrue:[
 	^ self confirm:aString
     ].
-    box := ListSelectionBox new.
-    box title:aString.
+    box := ListSelectionBox title:aString.
     box initialText:(aList at:1).
     box list:aList.
     box okText:'correct'.
hg/stx-libcomp