equal
deleted
inserted
replaced
836 onCancel:nil. |
836 onCancel:nil. |
837 |
837 |
838 logMessage notNil ifTrue:[ |
838 logMessage notNil ifTrue:[ |
839 Smalltalk allClassesInCategory:currentClassCategory do:[:aClass | |
839 Smalltalk allClassesInCategory:currentClassCategory do:[:aClass | |
840 self busyLabel:'checking in %1' with:aClass name. |
840 self busyLabel:'checking in %1' with:aClass name. |
|
841 "/ ca does not want boxes to pop up all over ... |
841 InformationSignal handle:[:ex | |
842 InformationSignal handle:[:ex | |
842 Transcript showCr:ex parameter |
843 Transcript showCr:ex errorString |
843 ] do:[ |
844 ] do:[ |
844 (aClass sourceCodeManager) |
845 (aClass sourceCodeManager) |
845 checkinClass:aClass |
846 checkinClass:aClass |
846 logMessage:logMessage. |
847 logMessage:logMessage. |
847 ]. |
848 ]. |
850 ]. |
851 ]. |
851 self normalLabel. |
852 self normalLabel. |
852 ] |
853 ] |
853 |
854 |
854 "Created: 23.11.1995 / 11:41:38 / cg" |
855 "Created: 23.11.1995 / 11:41:38 / cg" |
855 "Modified: 11.4.1996 / 15:43:09 / cg" |
856 "Modified: 11.4.1996 / 15:49:34 / cg" |
856 ! |
857 ! |
857 |
858 |
858 classCategoryRepositoryHistory |
859 classCategoryRepositoryHistory |
859 (self checkSelectionChangeAllowedWithCompare:false) ifFalse:[^ self]. |
860 (self checkSelectionChangeAllowedWithCompare:false) ifFalse:[^ self]. |
860 |
861 |
6977 ! ! |
6978 ! ! |
6978 |
6979 |
6979 !BrowserView class methodsFor:'documentation'! |
6980 !BrowserView class methodsFor:'documentation'! |
6980 |
6981 |
6981 version |
6982 version |
6982 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.120 1996-04-11 13:47:18 cg Exp $' |
6983 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.121 1996-04-11 13:50:59 cg Exp $' |
6983 ! ! |
6984 ! ! |
6984 BrowserView initialize! |
6985 BrowserView initialize! |