Tested in Moose-6.1
AST styler needs to be (re)enabled.
MetalinkIconStyler class>>shouldStyle
^true
Debugger code
Tested in Moose-6.1
AST styler needs to be (re)enabled.
MetalinkIconStyler class>>shouldStyle
^true
Debugger code
BaselineOfXMLMAGenerator project latestVersion projects collect: [ :each | each name -> each versionString ] as: Array. "{'XMLParser'->#stable. 'XPath'->#stable. 'Magritte'->#stable. 'MagritteXMLBindings'->'baseline'. 'ChangesBuilder'->'baseline'}" | |
version := BaselineOfXMLMAGenerator project latestVersion. | |
nodes := version projects, version packages, version groups. | |
b := RTMondrian new. | |
b shape text text: #name. | |
b nodes: nodes. |
xmi := OPUMLBootstrapGeneratorTest umlSpecs. | |
reader := OPUMLXMIReader new. | |
reader classPrefix: 'OPUML'. | |
model := (reader readXmi: xmi) first. | |
"select all classes in the entire metamodel" | |
cls := (model packagedElements flatCollect: #packagedElements) select: [ :each | each isKindOf: OPUMLClass ]. | |
rootName := 'Behavior'. |
1 to: 100 do: [ :o | | |
'log.txt' asFileReference | |
writeStreamDo: [ :stream | | |
stream | |
setToEnd; | |
nextPutAll: 'o('; | |
nextPutAll: o asString; | |
nextPutAll: ')'; | |
crlf ]. | |
sourceHandle := interpreterProxy fetchInteger: FormBitsIndex ofObject: sourceForm.
The above returns 0
just before the crash; the surface was NOT GCed however.
sourceForm
was retrieved from here loadBitBltFrom.warping..st
sourceForm := interpreterProxy fetchPointer: BBSourceFormIndex ofObject: bitBltOop.
"For more than 1 depth stencilling (form with alpha for example). use rule 37" | |
| stencil blitter output color | | |
color := Color orange. | |
stencil := Form extent: 32@32 depth: 32. | |
(FormCanvas on: stencil) | |
fillOval: (1@1 corner: 31@31) | |
color: (Color white alpha: 0.5) |
abort: | |
abort:title: | |
alert: | |
alert:title: | |
confirm: | |
confirm:label: | |
* label is actually a title, returns true/false | |
confirm:orCancel: | |
* the same, except returns the result of cancelBlock | |
confirm:trueChoice:falseChoice: |
v := RTView new. | |
"o := TRAnnouncingOverseer new. | |
v canvas eventOverseer: o. | |
o announcer inspect." | |
droppable := RTBox new | |
size: 300; | |
borderColor: Color black; | |
elementOn: 'drop here'. |