equal
deleted
inserted
replaced
5291 classesInProjectOnly add:clsName |
5291 classesInProjectOnly add:clsName |
5292 ]. |
5292 ]. |
5293 ]. |
5293 ]. |
5294 |
5294 |
5295 (classesInImageOnly isEmpty and:[classesInProjectOnly isEmpty]) ifTrue:[ |
5295 (classesInImageOnly isEmpty and:[classesInProjectOnly isEmpty]) ifTrue:[ |
5296 self information:'Set of classes in project and image are equesl.'. |
5296 self information:'Set of classes in project and image are equal.'. |
5297 ^ self. |
5297 ^ self. |
5298 ]. |
5298 ]. |
5299 |
5299 |
5300 classesInImageOnly := classesInImageOnly asOrderedCollection sort. |
5300 classesInImageOnly := classesInImageOnly asOrderedCollection sort. |
5301 classesInProjectOnly := classesInProjectOnly asOrderedCollection sort. |
5301 classesInProjectOnly := classesInProjectOnly asOrderedCollection sort. |
5306 |
5306 |
5307 SimpleDialog |
5307 SimpleDialog |
5308 openDialogInterfaceSpec:(self class classValidationDialogSpec) |
5308 openDialogInterfaceSpec:(self class classValidationDialogSpec) |
5309 withBindings:bindings |
5309 withBindings:bindings |
5310 |
5310 |
|
5311 "Modified: / 26.9.1999 / 16:03:50 / cg" |
5311 ! ! |
5312 ! ! |
5312 |
5313 |
5313 !ProjectBrowser methodsFor:'user actions - canvas'! |
5314 !ProjectBrowser methodsFor:'user actions - canvas'! |
5314 |
5315 |
5315 accept |
5316 accept |