equal
deleted
inserted
replaced
1985 Tools::ToDoListBrowser notNil ifTrue:[ |
1985 Tools::ToDoListBrowser notNil ifTrue:[ |
1986 "/ experimental |
1986 "/ experimental |
1987 self |
1987 self |
1988 notifyTodo:msg position:nil |
1988 notifyTodo:msg position:nil |
1989 className:newName selector:nil |
1989 className:newName selector:nil |
1990 severity:#error priority:#high |
1990 severity:#error priority:(Tools::ToDoList highPriority) |
1991 equalityParameter:nm |
1991 equalityParameter:nm |
1992 checkAction:[:e | |
1992 checkAction:[:e | |
1993 |superClass class| |
1993 |superClass class| |
1994 |
1994 |
1995 superClass := Smalltalk classNamed:aClass name. |
1995 superClass := Smalltalk classNamed:aClass name. |
2029 Tools::ToDoListBrowser notNil ifTrue:[ |
2029 Tools::ToDoListBrowser notNil ifTrue:[ |
2030 "/ experimental |
2030 "/ experimental |
2031 self |
2031 self |
2032 notifyTodo:msg position:nil |
2032 notifyTodo:msg position:nil |
2033 className:newName selector:nil |
2033 className:newName selector:nil |
2034 severity:#error priority:#high |
2034 severity:#error priority:(Tools::ToDoList highPriority) |
2035 equalityParameter:nm |
2035 equalityParameter:nm |
2036 checkAction:[:e | |
2036 checkAction:[:e | |
2037 |class| |
2037 |class| |
2038 |
2038 |
2039 Class flushSubclassInfo. |
2039 Class flushSubclassInfo. |
2127 ! ! |
2127 ! ! |
2128 |
2128 |
2129 !ClassBuilder class methodsFor:'documentation'! |
2129 !ClassBuilder class methodsFor:'documentation'! |
2130 |
2130 |
2131 version |
2131 version |
2132 ^ '$Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.69 2007-02-19 15:04:44 cg Exp $' |
2132 ^ '$Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.70 2007-03-13 17:41:03 cg Exp $' |
2133 ! ! |
2133 ! ! |