--- a/Metaclass.st Tue Feb 02 22:40:51 1999 +0100
+++ b/Metaclass.st Wed Feb 03 11:55:06 1999 +0100
@@ -1480,10 +1480,10 @@
(but thats how its defined in the book - maybe I will change it anyway).
"
- |names idx what doChecks|
+ |names idx what doChecks answ|
doChecks := ConfirmationQuerySignal raise.
- doChecks ifFalse:[^ true].
+ doChecks == false ifTrue:[^ true].
"let user confirm, if the classname is no good"
className first isUppercase ifFalse:[
@@ -1493,6 +1493,9 @@
what := 'class'
].
+ answ := Class classConventionViolationConfirmationQuerySignal raise.
+ answ notNil ifTrue:[^ answ].
+
(self confirm:(what , ' name ''' , className ,
''' should start with an uppercase letter
(by convention only)
@@ -1507,6 +1510,9 @@
"let user confirm, if any instvarname is no good"
(idx := names findFirst:[:word | word first isUppercase]) ~~ 0 ifTrue:[
+ answ := Class classConventionViolationConfirmationQuerySignal raise.
+ answ notNil ifTrue:[^ answ].
+
(self confirm:className , ': instance variable named ''' , (names at:idx) asText allBold , '''
should start with a lowercase letter (by convention only).
@@ -1520,6 +1526,9 @@
"let user confirm, if any classvarname is no good"
(idx := names findFirst:[:word | word first isLowercase]) ~~ 0 ifTrue:[
+ answ := Class classConventionViolationConfirmationQuerySignal raise.
+ answ notNil ifTrue:[^ answ].
+
(self confirm:className , ': class variable named ''' , (names at:idx) asText allBold , '''
should start with an uppercase letter (by convention only).
@@ -1531,8 +1540,8 @@
^ true
- "Created: 15.10.1996 / 11:56:38 / cg"
- "Modified: 31.7.1997 / 21:56:23 / cg"
+ "Created: / 15.10.1996 / 11:56:38 / cg"
+ "Modified: / 3.2.1999 / 11:24:52 / cg"
!
checkForAliasesOf:oldClass with:newClass
@@ -1975,6 +1984,6 @@
!Metaclass class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.133 1998-08-29 15:01:25 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.134 1999-02-03 10:55:06 cg Exp $'
! !
Metaclass initialize!