equal
deleted
inserted
replaced
4219 mode := Dialog choose:(resources string:'Save including sources ?') |
4219 mode := Dialog choose:(resources string:'Save including sources ?') |
4220 labels:(resources array:#('Cancel' 'Discard' 'By file Reference' 'Include Source')) |
4220 labels:(resources array:#('Cancel' 'Discard' 'By file Reference' 'Include Source')) |
4221 values:#(nil #discard #reference #keep) |
4221 values:#(nil #discard #reference #keep) |
4222 default:#keep. |
4222 default:#keep. |
4223 |
4223 |
4224 mode isNil ifTrue:[^ self]. "/ cancelled |
4224 mode isNil ifTrue:[^ self]. "/ canceled |
4225 |
4225 |
4226 self doClassMenu:[:currentClass | |
4226 self doClassMenu:[:currentClass | |
4227 |msg| |
4227 |msg| |
4228 |
4228 |
4229 currentClass isPrivate ifTrue:[ |
4229 currentClass isPrivate ifTrue:[ |
4268 self normalLabel. |
4268 self normalLabel. |
4269 ] |
4269 ] |
4270 |
4270 |
4271 "Created: / 29-12-1998 / 21:35:13 / cg" |
4271 "Created: / 29-12-1998 / 21:35:13 / cg" |
4272 "Modified: / 06-10-2006 / 16:16:47 / cg" |
4272 "Modified: / 06-10-2006 / 16:16:47 / cg" |
|
4273 "Modified (comment): / 24-08-2017 / 14:57:36 / cg" |
4273 ! |
4274 ! |
4274 |
4275 |
4275 classHierarchy |
4276 classHierarchy |
4276 "show current classes hierarchy in codeView" |
4277 "show current classes hierarchy in codeView" |
4277 |
4278 |
4387 |
4388 |
4388 |ownerName owner| |
4389 |ownerName owner| |
4389 |
4390 |
4390 ownerName := Dialog request:(resources string:'Name of owner class:'). |
4391 ownerName := Dialog request:(resources string:'Name of owner class:'). |
4391 ownerName size == 0 ifTrue:[ |
4392 ownerName size == 0 ifTrue:[ |
4392 "/ cancelled |
4393 "/ canceled |
4393 ^ self |
4394 ^ self |
4394 ]. |
4395 ]. |
4395 owner := Smalltalk classNamed:ownerName. |
4396 owner := Smalltalk classNamed:ownerName. |
4396 owner isNil ifTrue:[ |
4397 owner isNil ifTrue:[ |
4397 self warn:(resources string:'No class named ''%1'' found - try again.' with:ownerName). |
4398 self warn:(resources string:'No class named ''%1'' found - try again.' with:ownerName). |
4407 ^ self |
4408 ^ self |
4408 ]. |
4409 ]. |
4409 |
4410 |
4410 currentClass makePrivateIn:owner |
4411 currentClass makePrivateIn:owner |
4411 |
4412 |
4412 "Modified: / 29.5.1998 / 19:03:19 / cg" |
4413 "Modified: / 29-05-1998 / 19:03:19 / cg" |
|
4414 "Modified (format): / 24-08-2017 / 14:57:40 / cg" |
4413 ! |
4415 ! |
4414 |
4416 |
4415 classMakePublic |
4417 classMakePublic |
4416 "change a class from private to public; |
4418 "change a class from private to public; |
4417 check if a public class with the same name exists, |
4419 check if a public class with the same name exists, |