equal
deleted
inserted
replaced
2009 ]. |
2009 ]. |
2010 ]. |
2010 ]. |
2011 ]. |
2011 ]. |
2012 pkg notNil ifTrue:[ |
2012 pkg notNil ifTrue:[ |
2013 "/ Transcript showCR:('set package of class: ' , newClass name , ' to ' , pkg printString). |
2013 "/ Transcript showCR:('set package of class: ' , newClass name , ' to ' , pkg printString). |
2014 newClass package:pkg. |
2014 oldPkg = pkg ifTrue:[ |
|
2015 newClass setPackage:pkg "/ does not produce update requests... |
|
2016 ] ifFalse:[ |
|
2017 newClass package:pkg. |
|
2018 ] |
2015 ]. |
2019 ]. |
2016 |
2020 |
2017 "Modified: / 29-09-2011 / 15:58:56 / cg" |
2021 "Modified: / 29-09-2011 / 15:58:56 / cg" |
2018 ! |
2022 ! |
2019 |
2023 |
2364 ! ! |
2368 ! ! |
2365 |
2369 |
2366 !ClassBuilder class methodsFor:'documentation'! |
2370 !ClassBuilder class methodsFor:'documentation'! |
2367 |
2371 |
2368 version |
2372 version |
2369 ^ '$Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.118 2013-01-18 20:56:08 cg Exp $' |
2373 ^ '$Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.119 2013-03-25 12:13:09 cg Exp $' |
2370 ! |
2374 ! |
2371 |
2375 |
2372 version_CVS |
2376 version_CVS |
2373 ^ '$Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.118 2013-01-18 20:56:08 cg Exp $' |
2377 ^ '$Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.119 2013-03-25 12:13:09 cg Exp $' |
2374 ! ! |
2378 ! ! |
2375 |
2379 |
2376 |
2380 |
2377 ClassBuilder initialize! |
2381 ClassBuilder initialize! |