equal
deleted
inserted
replaced
4918 ! |
4918 ! |
4919 |
4919 |
4920 classModifyPackage |
4920 classModifyPackage |
4921 "change the classes package assignment (dangerous)" |
4921 "change the classes package assignment (dangerous)" |
4922 |
4922 |
4923 |newPackage| |
4923 |newPackage p| |
4924 |
4924 |
4925 currentClass owningClass notNil ifTrue:[ |
4925 currentClass owningClass notNil ifTrue:[ |
4926 self warn:'Private classes always belong to the owners package.\\Cannot change the packageID.' withCRs. |
4926 self warn:'Private classes always belong to the owners package.\\Cannot change the packageID.' withCRs. |
4927 ^ self |
4927 ^ self |
4928 ]. |
4928 ]. |
4939 newPackage size == 0 ifTrue:[ |
4939 newPackage size == 0 ifTrue:[ |
4940 ^ self |
4940 ^ self |
4941 ]. |
4941 ]. |
4942 |
4942 |
4943 self doClassMenu:[:currentClass | |
4943 self doClassMenu:[:currentClass | |
4944 currentClass package:newPackage |
4944 currentClass package:newPackage. |
|
4945 (p := Project projectNamed:newPackage) notNil ifTrue:[ |
|
4946 p addClass:currentClass |
|
4947 ] |
4945 ] |
4948 ] |
4946 |
4949 |
4947 "Created: 23.11.1995 / 11:41:38 / cg" |
4950 "Created: 23.11.1995 / 11:41:38 / cg" |
4948 "Modified: 6.2.1996 / 16:58:58 / cg" |
4951 "Modified: 6.2.1996 / 16:58:58 / cg" |
4949 ! |
4952 ! |
13953 ! ! |
13956 ! ! |
13954 |
13957 |
13955 !BrowserView class methodsFor:'documentation'! |
13958 !BrowserView class methodsFor:'documentation'! |
13956 |
13959 |
13957 version |
13960 version |
13958 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.563 1999-10-08 10:41:09 cg Exp $' |
13961 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.564 1999-10-09 11:36:34 cg Exp $' |
13959 ! ! |
13962 ! ! |
13960 BrowserView initialize! |
13963 BrowserView initialize! |