equal
deleted
inserted
replaced
8281 !BrowserView methodsFor:'method category list menu'! |
8281 !BrowserView methodsFor:'method category list menu'! |
8282 |
8282 |
8283 createAccessMethodsFor:aCollectionOfInstVarNames withChange:withChange |
8283 createAccessMethodsFor:aCollectionOfInstVarNames withChange:withChange |
8284 "workhorse for creating access methods for instvars." |
8284 "workhorse for creating access methods for instvars." |
8285 |
8285 |
8286 CodeGeneratorTool |
8286 SmalltalkCodeGeneratorTool |
8287 createAccessMethodsFor:aCollectionOfInstVarNames |
8287 createAccessMethodsFor:aCollectionOfInstVarNames |
8288 in:currentClass theNonMetaclass |
8288 in:currentClass theNonMetaclass |
8289 withChange:withChange |
8289 withChange:withChange |
8290 asValueHolder:false |
8290 asValueHolder:false |
8291 readersOnly:false |
8291 readersOnly:false |
8292 writersOnly:false. |
8292 writersOnly:false. |
8293 |
8293 |
8294 "Modified: / 12.7.2002 / 11:59:07 / cg" |
8294 "Modified: / 31-01-2011 / 18:28:27 / cg" |
8295 ! |
8295 ! |
8296 |
8296 |
8297 methodCategoryCopyCategory |
8297 methodCategoryCopyCategory |
8298 "show the enter box to copy from an existing method category" |
8298 "show the enter box to copy from an existing method category" |
8299 |
8299 |
8374 |
8374 |
8375 methodCategoryCreateApplicationMethods |
8375 methodCategoryCreateApplicationMethods |
8376 "create an empty application framework" |
8376 "create an empty application framework" |
8377 |
8377 |
8378 self checkClassSelected ifFalse:[^ self]. |
8378 self checkClassSelected ifFalse:[^ self]. |
8379 CodeGeneratorTool createApplicationCodeFor:currentClass. |
8379 SmalltalkCodeGeneratorTool createApplicationCodeFor:currentClass. |
|
8380 |
|
8381 "Modified: / 31-01-2011 / 18:28:29 / cg" |
8380 ! |
8382 ! |
8381 |
8383 |
8382 methodCategoryCreateDocumentationMethods |
8384 methodCategoryCreateDocumentationMethods |
8383 "create empty documentation methods" |
8385 "create empty documentation methods" |
8384 |
8386 |
8386 |
8388 |
8387 self checkClassSelected ifFalse:[^ self]. |
8389 self checkClassSelected ifFalse:[^ self]. |
8388 |
8390 |
8389 metaClass := currentClass theMetaclass. |
8391 metaClass := currentClass theMetaclass. |
8390 self withWaitCursorDo:[ |
8392 self withWaitCursorDo:[ |
8391 CodeGeneratorTool createDocumentationMethodsFor:metaClass. |
8393 SmalltalkCodeGeneratorTool createDocumentationMethodsFor:metaClass. |
8392 CodeGeneratorTool createExamplesMethodFor:metaClass. |
8394 SmalltalkCodeGeneratorTool createExamplesMethodFor:metaClass. |
8393 |
8395 |
8394 self instanceProtocol:false. |
8396 self instanceProtocol:false. |
8395 self switchToMethodNamed:#documentation |
8397 self switchToMethodNamed:#documentation |
8396 ] |
8398 ] |
|
8399 |
|
8400 "Modified: / 31-01-2011 / 18:28:32 / cg" |
8397 ! |
8401 ! |
8398 |
8402 |
8399 methodCategoryCreateUpdateMethod |
8403 methodCategoryCreateUpdateMethod |
8400 "create an update:with:from: method |
8404 "create an update:with:from: method |
8401 (I'm tired of typing)" |
8405 (I'm tired of typing)" |
8405 self warn:'class already implements #update:with:from:\\No code generated.' withCRs. |
8409 self warn:'class already implements #update:with:from:\\No code generated.' withCRs. |
8406 ^ self |
8410 ^ self |
8407 ]. |
8411 ]. |
8408 |
8412 |
8409 self withWaitCursorDo:[ |
8413 self withWaitCursorDo:[ |
8410 CodeGeneratorTool createUpdateMethodIn:actualClass. |
8414 SmalltalkCodeGeneratorTool createUpdateMethodIn:actualClass. |
8411 self instanceProtocol:true. |
8415 self instanceProtocol:true. |
8412 self switchToMethodNamed:#'update:with:from:' |
8416 self switchToMethodNamed:#'update:with:from:' |
8413 ] |
8417 ] |
8414 |
8418 |
8415 "Modified: / 10.2.2000 / 13:47:17 / cg" |
8419 "Modified: / 31-01-2011 / 18:28:35 / cg" |
8416 ! |
8420 ! |
8417 |
8421 |
8418 methodCategoryFileOut |
8422 methodCategoryFileOut |
8419 "fileOut all methods in the selected methodcategory of |
8423 "fileOut all methods in the selected methodcategory of |
8420 the current class" |
8424 the current class" |
14511 ! ! |
14515 ! ! |
14512 |
14516 |
14513 !BrowserView class methodsFor:'documentation'! |
14517 !BrowserView class methodsFor:'documentation'! |
14514 |
14518 |
14515 version |
14519 version |
14516 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.831 2011-01-22 14:32:55 cg Exp $' |
14520 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.832 2011-01-31 17:31:51 cg Exp $' |
14517 ! |
14521 ! |
14518 |
14522 |
14519 version_CVS |
14523 version_CVS |
14520 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.831 2011-01-22 14:32:55 cg Exp $' |
14524 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.832 2011-01-31 17:31:51 cg Exp $' |
14521 ! ! |
14525 ! ! |
14522 |
14526 |
14523 BrowserView initialize! |
14527 BrowserView initialize! |