equal
deleted
inserted
replaced
1883 (self confirm:'create ' , specClass , ' ?') ifTrue:[ |
1883 (self confirm:'create ' , specClass , ' ?') ifTrue:[ |
1884 superclass subclass:(specClass asSymbol) |
1884 superclass subclass:(specClass asSymbol) |
1885 instanceVariableNames:'' |
1885 instanceVariableNames:'' |
1886 classVariableNames:'' |
1886 classVariableNames:'' |
1887 poolDictionaries:'' |
1887 poolDictionaries:'' |
1888 category:'New-Applications'. |
1888 category:'Applications'. |
1889 ^ true. |
1889 ^ true. |
1890 ]. |
1890 ]. |
1891 ^ false. |
1891 ^ false. |
1892 ]. |
1892 ]. |
1893 cls isBehavior ifFalse:[ |
1893 cls isBehavior ifFalse:[ |
1924 ] |
1924 ] |
1925 ]. |
1925 ]. |
1926 |
1926 |
1927 ^ true |
1927 ^ true |
1928 |
1928 |
1929 "Modified: 25.6.1997 / 13:37:11 / cg" |
1929 "Modified: 12.8.1997 / 23:39:10 / cg" |
1930 ! |
1930 ! |
1931 |
1931 |
1932 defineClassAndSelector |
1932 defineClassAndSelector |
1933 "launch a dialog to define class, superclass and method" |
1933 "launch a dialog to define class, superclass and method" |
1934 |
1934 |