equal
deleted
inserted
replaced
7209 Class updateHistoryLineQuerySignal) answer:true |
7209 Class updateHistoryLineQuerySignal) answer:true |
7210 do:[ |
7210 do:[ |
7211 Class nameSpaceQuerySignal |
7211 Class nameSpaceQuerySignal |
7212 answer:(aClass nameSpace) |
7212 answer:(aClass nameSpace) |
7213 do:[ |
7213 do:[ |
7214 Class packageQuerySignal |
7214 "/ the compiler already cares for the package... |
7215 answer:(aClass package ? PackageId noProjectID) |
7215 |
7216 do:[ |
7216 "/ Class packageQuerySignal |
|
7217 "/ answer:(aClass package ? PackageId noProjectID) |
|
7218 "/ do:[ |
7217 codeView contents:someCode. |
7219 codeView contents:someCode. |
7218 newMethod := aClass compilerClass |
7220 newMethod := aClass compilerClass |
7219 compile:someCode |
7221 compile:someCode |
7220 forClass:aClass |
7222 forClass:aClass |
7221 inCategory:category |
7223 inCategory:category |
7222 notifying:codeView. |
7224 notifying:codeView. |
7223 ]. |
7225 "/ ]. |
7224 ]. |
7226 ]. |
7225 ]. |
7227 ]. |
|
7228 |
|
7229 methodCodeToggleSelectionHolder value:2. "/ showing current code |
|
7230 methodCodeToggle beVisible. |
7226 |
7231 |
7227 inspecting ifFalse:[ |
7232 inspecting ifFalse:[ |
7228 " |
7233 " |
7229 if it worked, remove everything up to and including top |
7234 if it worked, remove everything up to and including top |
7230 from context chain |
7235 from context chain |
7317 ]. |
7322 ]. |
7318 category := method category |
7323 category := method category |
7319 ] |
7324 ] |
7320 ] ifFalse:[ |
7325 ] ifFalse:[ |
7321 implementorClass := selectedContext receiver class. |
7326 implementorClass := selectedContext receiver class. |
|
7327 implementorClass := implementorClass whichClassImplements:sel. |
|
7328 |
7322 implementorClass ~~ Object ifTrue:[ |
7329 implementorClass ~~ Object ifTrue:[ |
7323 implementorClass := Dialog |
7330 implementorClass := Dialog |
7324 request:('Define ''%1'' in class:' bindWith:sel allBold) |
7331 request:('Define ''%1'' in class:' bindWith:sel allBold) |
7325 initialAnswer:implementorClass name |
7332 initialAnswer:implementorClass name |
7326 list:(implementorClass withAllSuperclasses collect:[:each| each name]). |
7333 list:(implementorClass withAllSuperclasses collect:[:each| each name]). |
8247 ! ! |
8254 ! ! |
8248 |
8255 |
8249 !DebugView class methodsFor:'documentation'! |
8256 !DebugView class methodsFor:'documentation'! |
8250 |
8257 |
8251 version |
8258 version |
8252 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.574 2013-03-26 16:53:21 cg Exp $' |
8259 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.575 2013-03-27 15:40:42 cg Exp $' |
8253 ! |
8260 ! |
8254 |
8261 |
8255 version_CVS |
8262 version_CVS |
8256 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.574 2013-03-26 16:53:21 cg Exp $' |
8263 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.575 2013-03-27 15:40:42 cg Exp $' |
8257 ! |
8264 ! |
8258 |
8265 |
8259 version_SVN |
8266 version_SVN |
8260 ^ '§Id: DebugView.st 7818 2011-08-18 11:42:39Z vranyj1 §' |
8267 ^ '§Id: DebugView.st 7818 2011-08-18 11:42:39Z vranyj1 §' |
8261 ! ! |
8268 ! ! |