peteruhnak

Tested in Moose-6.1

AST styler needs to be (re)enabled.

MetalinkIconStyler class>>shouldStyle
	^true

Debugger code

peteruhnak

Subscription Slot vs Accessor

Base (subscription to the model in some manner)

BaseController>>subscribeTo: aModel
  aModel announcer when: ModelRenamed do: [ :ann | self logCr: self class name, ': ' , aModel name ]

BaseController>>unsubscribeFrom: aModel
  aModel announcer unsubscribe: self

peteruhnak

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.

peteruhnak

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'.

peteruhnak

1 to: 100 do: [ :o |
	'log.txt' asFileReference
		writeStreamDo: [ :stream |
			stream
				setToEnd;
				nextPutAll: 'o(';
				nextPutAll: o asString;
				nextPutAll: ')';
				crlf ].
		

peteruhnak

Packages RPackage

Retrieving existing package by name

• 'MyPackage' asPackage
• RPackage organizer packageNamed: 'MyPackage'

Create package

• (RPackage named: 'MyPackage') register

peteruhnak

lockSurfaces.st#L68

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.

peteruhnak

"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)

peteruhnak

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:

peteruhnak

v := RTView new.
"o := TRAnnouncingOverseer new.
v canvas eventOverseer: o.
o announcer inspect."

droppable := RTBox new
	size: 300;
	borderColor: Color black;
	elementOn: 'drop here'.