meanwhile, Esteban works on ObjC bridge ;)

---------- Forwarded message ----------
From: Esteban Lorenzano <estebanlm@gmail.com>
Date: 16 April 2013 17:56
Subject: [Lsehub-staff] do you know what is this?
To: RMoD private list <lsehub-staff@lists.gforge.inria.fr>


uh? do you know?
this is the code:

ObjCClass nbSessionChanged.

pool := (ObjCClass named: #NSAutoreleasePool) alloc init.

rect := ObjCNSRect fromRect: (0@0 corner: 800@600).��
window := (ObjCClass named: #NSWindow) alloc autorelease.
window
initWithContentRect: rect
styleMask: 15 "NSTitledWindowMask | NSClosableWindowMask | NSMiniaturizableWindowMask | NSResizableWindowMask"
backing: 2 "NSBackingStoreRetained"
defer: 0 "NO".
window setTitle: ((ObjCClass named: #NSString) stringWithCString: 'Hello' encoding: 1).

window makeKeyAndOrderFront: ObjCObject new. "nil"

graphicsPort := window graphicsContext graphicsPort.

surface := AthensQuartzSurface newContext: graphicsPort extent: 200@200.
paint := surface��
createRadialGradient: { 0->Color red . 1->Color green }��
center: 100@100
radius: 100.
surface drawDuring: [ :canvas |
surface clear.

canvas pathTransform loadIdentity.
canvas setPaint: paint.
canvas drawShape: (0@0 corner: 200@200) ].




So... pretty simple in fact :)

Esteban



--
Best regards,
Igor Stasenko.