1 // Copyright 2003 Adam Megacz, see the COPYING file for licensing [LGPL]
2 // Authors: Brian Alliet and Evan Jones
10 #define __private_extern__
11 #include <mach-o/dyld.h>
16 #include <java/lang/Object.h>
17 #include <java/lang/Error.h>
19 #include <org/ibex/plat/Darwin.h>
20 #include <org/ibex/plat/Darwin$CarbonSurface.h>
21 #include <org/ibex/plat/Darwin$GLCarbonSurface.h>
22 #include <org/ibex/plat/Darwin$GLCarbonPixelBuffer.h>
23 #include <org/ibex/plat/Darwin$CarbonMessage.h>
24 #include <org/ibex/plat/Darwin$CarbonOpenGL.h>
25 #include <org/ibex/plat/Darwin$FileDialogHelper.h>
26 #include <org/ibex/plat/GCJ$Retainer.h>
27 #include <org/ibex/HTTP$Proxy.h>
28 #include <org/ibex/util/Semaphore.h>
33 #include "DarwinCarbonHeaders.h"
35 #define Ibex_CARBON_NO_BUNDLE_HACK
36 #ifdef Ibex_CARBON_NO_BUNDLE_HACK
38 OSErr CPSEnableForegroundOperation(ProcessSerialNumber *psn);
39 OSErr CPSSetFrontProcess(ProcessSerialNumber *psn);
43 static const mach_header* CarbonHandle = NULL;
44 static const mach_header* AGLHandle = NULL;
45 static const mach_header* SCHandle = NULL;
46 #define CARBON_LIBRARY_PATH "/System/Library/Frameworks/Carbon.framework/Versions/A/Carbon"
47 #define AGL_LIBRARY_PATH "/System/Library/Frameworks/AGL.framework/Versions/A/AGL"
48 #define SC_LIBRARY_PATH "/System/Library/Frameworks/SystemConfiguration.framework/Versions/A/SystemConfiguration"
50 static void* dlsym(char* symbol) {
51 if (CarbonHandle == NULL) CarbonHandle = NSAddImage(CARBON_LIBRARY_PATH, NSADDIMAGE_OPTION_NONE);
52 if (AGLHandle == NULL) AGLHandle = NSAddImage(AGL_LIBRARY_PATH, NSADDIMAGE_OPTION_NONE);
53 if (SCHandle == NULL) SCHandle = NSAddImage(SC_LIBRARY_PATH, NSADDIMAGE_OPTION_NONE);
54 void* ret = NSAddressOfSymbol(NSLookupSymbolInImage(CarbonHandle, symbol,
55 NSLOOKUPSYMBOLINIMAGE_OPTION_BIND));
56 if (ret == NULL) ret = NSAddressOfSymbol(NSLookupSymbolInImage(AGLHandle, symbol,
57 NSLOOKUPSYMBOLINIMAGE_OPTION_BIND));
58 if (ret == NULL) ret = NSAddressOfSymbol(NSLookupSymbolInImage(SCHandle, symbol,
59 NSLOOKUPSYMBOLINIMAGE_OPTION_BIND));
60 /*printf("linking symbol %s to address %x\n", symbol, ret);
65 #define declare_weak(symbol) typeof(symbol) *symbol##_weak = NULL
67 (*((func##_weak != NULL) ? func##_weak : func##_weak = (typeof(func##_weak))dlsym("_" #func)))
69 declare_weak(GetRegionBounds);
70 declare_weak(RegisterToolboxObjectClass);
71 declare_weak(GetWindowProperty);
72 declare_weak(SetWindowProperty);
73 declare_weak(CreateCustomWindow);
74 declare_weak(InstallWindowContentPaintProc);
75 declare_weak(AEGetNthPtr);
76 declare_weak(CFArrayGetCount);
77 declare_weak(CFArrayGetTypeID);
78 declare_weak(CFArrayGetValueAtIndex);
79 declare_weak(CFDictionaryGetValue);
80 declare_weak(CFGetTypeID);
81 declare_weak(CFNumberGetTypeID);
82 declare_weak(CFNumberGetValue);
83 declare_weak(CFRelease);
84 declare_weak(CFStringCompare);
85 declare_weak(CFStringCreateWithCString);
86 declare_weak(CFStringCreateWithCharacters);
87 declare_weak(CFStringGetCharacters);
88 declare_weak(CFStringGetLength);
89 declare_weak(CFStringGetTypeID);
90 declare_weak(CFURLCopyScheme);
91 declare_weak(CFURLCreateWithString);
92 declare_weak(CGDisplayPixelsHigh);
93 declare_weak(CGDisplayPixelsWide);
94 declare_weak(CallNextEventHandler);
95 declare_weak(CollapseWindow);
96 declare_weak(ConstrainWindowToScreen);
97 declare_weak(CreateEvent);
98 declare_weak(CreateNewWindow);
99 declare_weak(DisposeEventHandlerUPP);
100 declare_weak(DisposeNavEventUPP);
101 declare_weak(DisposeWindow);
102 declare_weak(ExitToShell);
103 declare_weak(FSRefMakePath);
104 declare_weak(FrontWindow);
105 declare_weak(Gestalt);
106 declare_weak(GetApplicationEventTarget);
107 declare_weak(GetCurrentProcess);
108 declare_weak(GetCurrentScrap);
109 declare_weak(GetEventClass);
110 declare_weak(GetEventKind);
111 declare_weak(GetEventParameter);
112 declare_weak(GetMainEventQueue);
113 declare_weak(GetScrapFlavorData);
114 declare_weak(GetScrapFlavorSize);
115 declare_weak(GetWindowBounds);
116 declare_weak(GetWindowEventTarget);
117 declare_weak(GetWindowPort);
118 declare_weak(HideWindow);
119 declare_weak(InstallEventHandler);
120 declare_weak(IsWindowCollapsed);
121 declare_weak(LSOpenCFURLRef);
122 declare_weak(NavCreateGetFileDialog);
123 declare_weak(NavCreatePutFileDialog);
124 declare_weak(NavDialogDispose);
125 declare_weak(NavDialogGetReply);
126 declare_weak(NavDialogGetUserAction);
127 declare_weak(NavDialogRun);
128 declare_weak(NavDisposeReply);
129 declare_weak(NavGetDefaultDialogCreationOptions);
130 declare_weak(NewEventHandlerUPP);
131 declare_weak(NewNavEventUPP);
132 declare_weak(PostEventToQueue);
133 declare_weak(PutScrapFlavor);
134 declare_weak(QuitApplicationEventLoop);
135 declare_weak(ReleaseEvent);
136 declare_weak(RunApplicationEventLoop);
137 declare_weak(SCDynamicStoreCopyProxies);
138 declare_weak(SelectWindow);
139 declare_weak(SendBehind);
140 declare_weak(SetEventParameter);
141 declare_weak(SetThemeCursor);
142 declare_weak(SetWindowBounds);
143 declare_weak(SetWindowResizeLimits);
144 declare_weak(SetWindowTitleWithCFString);
145 declare_weak(ShowWindow);
146 declare_weak(ZoomWindowIdeal);
147 declare_weak(__CFStringMakeConstantString);
148 declare_weak(aglChoosePixelFormat);
149 declare_weak(aglCreateContext);
150 declare_weak(aglDestroyContext);
151 declare_weak(aglSetCurrentContext);
152 declare_weak(aglSetDrawable);
153 declare_weak(aglSurfaceTexture);
154 declare_weak(aglUpdateContext);
155 declare_weak(CPSEnableForegroundOperation);
156 declare_weak(CPSSetFrontProcess);
157 declare_weak(kCFAllocatorDefault);
158 declare_weak(NewWindowPaintUPP);
160 #define GetWindowEventTarget WC(GetWindowEventTarget)
161 #define InstallEventHandler WC(InstallEventHandler)
162 #define __CFStringMakeConstantString WC(__CFStringMakeConstantString)
164 using namespace org::ibex::plat;
165 using gnu::gcj::RawData;
166 using org::ibex::util::Semaphore;
167 using java::lang::Object;
169 namespace org { namespace ibex { namespace plat {
172 #pragma mark ----- Blit Locks ------
173 static pthread_mutex_t blit_mutex;
174 static pthread_cond_t blit_cond;
176 static inline void blit_lock() { if(pthread_mutex_lock(&blit_mutex) != 0) abort(); }
177 static inline void blit_unlock() { if(pthread_mutex_unlock(&blit_mutex) != 0) abort(); }
178 static inline void blit_wait() { if(pthread_cond_wait(&blit_cond,&blit_mutex) != 0) abort(); }
179 static inline void blit_signal() { if(pthread_cond_signal(&blit_cond) != 0) abort(); }
181 void Darwin$CarbonSurface::blitLock() { blit_lock(); }
182 void Darwin$CarbonSurface::blitUnlock() { blit_unlock(); }
183 void Darwin$CarbonSurface::blitWait() { blit_wait(); }
186 template <bool CHECK> static inline int CompileTimeCheck() { const int something_is_wrong=1; something_is_wrong++; return 0; }
187 template <> static inline int CompileTimeCheck<true>() { return 0; }
188 const static int unichar_check = CompileTimeCheck<sizeof(jchar)==sizeof(UniChar)>();
190 static void funcFailed(const char *func,int r);
191 static inline void funcFailed(const char *func) { funcFailed(func,-1); }
193 static inline void checkStatus(OSStatus r, char *func) { if(r != noErr) funcFailed(func,r); }
194 static inline void checkStatus(GLboolean b, char *func) { if(!b) funcFailed(func,-1); }
195 static inline void checkStatus(void *p, char *func) { if(!p) funcFailed(func,-1); }
197 jstring cfStringToJString(CFStringRef s) {
198 CFIndex length = WC(CFStringGetLength)(s);
199 CFRange range = CFRangeMake(0,length);
200 jstring js = JvAllocString(length);
201 UniChar *buf = (UniChar*)JvGetStringChars(js);
202 WC(CFStringGetCharacters)(s,range,buf);
206 #pragma mark ------ SmartCFString ------
207 class SmartCFString {
210 void release() { if(p) WC(CFRelease)(p); }
211 void checkNull() { if(!p) funcFailed("CFString function"); }
214 SmartCFString() : p(0) { }
215 SmartCFString(const char *s) : p(0) { *this = s; }
216 SmartCFString(jstring js) : p(0) { *this = js; }
217 SmartCFString(CFStringRef cf) : p(0) { *this = cf; }
219 ~SmartCFString() { release(); }
221 SmartCFString& operator= (const char *s) {
224 p = WC(CFStringCreateWithCString)(WC(kCFAllocatorDefault),s,kCFStringEncodingISOLatin1);
228 SmartCFString& operator= (jstring js) {
229 if(!js) return *this = "(null)";
231 UniChar *buf = (UniChar*) JvGetStringChars(js);
232 CFIndex length = js->length();
233 p = WC(CFStringCreateWithCharacters)(WC(kCFAllocatorDefault),buf,length);
237 SmartCFString& operator= (CFStringRef cf) {
238 if(cf == NULL) return *this = "(null)";
243 operator CFStringRef() { return p; }
244 operator jstring() { return getJString(); }
246 jstring getJString() { return cfStringToJString(p); }
248 bool equals(const char *s) {
249 SmartCFString cfs(s);
253 bool equals(CFStringRef cfs) {
254 return WC(CFStringCompare)(p,cfs,0) == kCFCompareEqualTo;
258 // CHECKME: Is just making up your own four char codes really correct?
259 const static UInt32 kEventClassCarbonMessage = 'ibexa';
260 const static UInt32 kEventCarbonMessage = 'ibexb';
261 const static UInt32 kEventParamCarbonMessage = 'ibexc';
263 static OSStatus carbonMessageEventHandler(EventHandlerCallRef handler, EventRef e, void *userData);
264 static EventHandlerUPP carbonMessageEventHandlerUPP;
266 static void fileDialogEventHandler(NavEventCallbackMessage callBackSelector, NavCBRecPtr callBackParms, void *userData);
267 static NavEventUPP fileDialogEventHandlerUPP;
269 static OSStatus windowEventHandler(EventHandlerCallRef handler, EventRef e, void *userData);
270 static EventHandlerUPP windowEventHandlerUPP;
272 static OSStatus paintProc(GDHandle device,GrafPtr qdContext,WindowRef window,RgnHandle inClientPaintRgn,RgnHandle outSystemPaintRgn,void *userData);
273 static WindowPaintUPP paintProcUPP;
275 jboolean Darwin::isJaguar() {
277 OSStatus r = WC(Gestalt)(gestaltSystemVersion, &version);
278 checkStatus(r,"Gestalt");
279 return version >= 0x1020;
282 void Darwin$CarbonMessage::natInit() {
285 EventTypeSpec eventTypes = { kEventClassCarbonMessage, kEventCarbonMessage };
286 r = InstallEventHandler(WC(GetApplicationEventTarget)(),carbonMessageEventHandlerUPP,1,&eventTypes,NULL,NULL);
287 checkStatus(r,"InstallEventHandler");
290 void Darwin$CarbonMessage::add(Darwin$CarbonMessage *msg) {
294 GCJ$Retainer::retain(msg);
296 r = WC(CreateEvent)(WC(kCFAllocatorDefault),kEventClassCarbonMessage,kEventCarbonMessage,0,kEventAttributeNone,&event);
297 checkStatus(r,"CreateEvent");
298 r = WC(SetEventParameter)(event,kEventParamCarbonMessage,typeVoidPtr,sizeof(msg),(void*)&msg);
299 checkStatus(r,"SetEventParameter");
300 r = WC(PostEventToQueue)(WC(GetMainEventQueue)(),event,kEventPriorityHigh);
301 checkStatus(r,"PostEventToQueue");
302 WC(ReleaseEvent)(event);
306 static OSStatus carbonMessageEventHandler(EventHandlerCallRef handler, EventRef e, void *userData) {
307 UInt32 eKind = WC(GetEventKind)(e);
308 UInt32 eClass = WC(GetEventClass)(e);
310 Darwin$CarbonMessage *msg;
311 if(eClass != kEventClassCarbonMessage || eKind != kEventCarbonMessage)
312 return eventNotHandledErr;
313 r = WC(GetEventParameter)(e,kEventParamCarbonMessage,typeVoidPtr,NULL,sizeof(msg),NULL,&msg);
314 checkStatus(r,"GetEventParameter");
316 GCJ$Retainer::release(msg);
321 #pragma mark ------ Utility Functions ------
323 static void funcFailed(const char *func,int r){
324 fprintf(stderr,"%s() failed (%d)\n",func,r);
328 #pragma mark ------ CarbonPicture Methods ------
330 #pragma mark ----- Carbon Surface Methods ----
333 void Darwin$CarbonSurface::natSyncCursor(jint n) {
335 // see Carbon.java for what these numbers mean
337 case 1: c = kThemeWatchCursor;
338 case 2: c = kThemePlusCursor;
339 case 3: c = kThemeIBeamCursor;
340 case 4: c = kThemePointingHandCursor;
341 case 5: c = kThemeOpenHandCursor;
342 case 6: c = kThemeResizeLeftRightCursor;
343 default: c = kThemeArrowCursor;
345 WC(SetThemeCursor)(c);
348 void Darwin$CarbonSurface::natSetInvisible(jboolean b) {
349 WindowRef window = (WindowRef) rawWindowRef;
350 fprintf(stderr,"Making window %s\n",b?"invisible":"visible");
351 if(b) WC(HideWindow)(window);
352 else WC(ShowWindow)(window);
355 void Darwin$CarbonSurface::nat_setMaximized(jboolean b) {
356 WindowRef window = (WindowRef) rawWindowRef;
357 Point ideal = { 10000, 10000 };
358 OSStatus r = WC(ZoomWindowIdeal)(window,(b?inZoomOut:inZoomIn),&ideal);
359 checkStatus(r,"ZoomWindowIdeal");
362 void Darwin$CarbonSurface::nat_setMinimized(jboolean b) {
363 WindowRef window = (WindowRef) rawWindowRef;
364 if((WC(IsWindowCollapsed)(window) ? 1 : 0) == (b ? 1 : 0)) return;
365 OSStatus r = WC(CollapseWindow)(window,b);
366 checkStatus(r,"CollapseWindow");
369 void Darwin$CarbonSurface::natSetTitleBarText(jstring js) {
370 SmartCFString s = js;
371 WindowRef window = (WindowRef) rawWindowRef;
372 WC(SetWindowTitleWithCFString)(window,s);
375 void Darwin$CarbonSurface::natToBack() {
376 WindowRef window = (WindowRef) rawWindowRef;
377 WC(SendBehind)(window,NULL);
380 void Darwin$CarbonSurface::natToFront() {
381 WindowRef window = (WindowRef) rawWindowRef;
382 fprintf(stderr,"SelectWindow)()\n");
383 WC(SelectWindow)(window);
386 #pragma mark ---- Window Event Handler ----
387 static const EventTypeSpec eventTypeSpecs[] = {
388 // kEventClassCommand
389 // { kEventClassCommand, ??? },
392 { kEventClassWindow, kEventWindowUpdate },
393 { kEventClassWindow, kEventWindowBoundsChanged },
394 { kEventClassWindow, kEventWindowBoundsChanging },
395 { kEventClassWindow, kEventWindowActivated },
396 { kEventClassWindow, kEventWindowDeactivated },
397 { kEventClassWindow, kEventWindowZoomed },
398 { kEventClassWindow, kEventWindowCollapsed },
399 { kEventClassWindow, kEventWindowExpanded },
400 { kEventClassWindow, kEventWindowClose },
401 { kEventClassWindow, kEventWindowClosed },
402 { kEventClassWindow, kEventWindowDrawFrame },
403 { kEventClassWindow, kEventWindowDrawPart },
405 // kEventClassControl
406 { kEventClassControl, kEventControlApplyBackground },
408 // kEventClassKeyboard
409 { kEventClassKeyboard, kEventRawKeyDown },
410 { kEventClassKeyboard, kEventRawKeyRepeat },
411 { kEventClassKeyboard, kEventRawKeyUp },
412 { kEventClassKeyboard, kEventRawKeyModifiersChanged },
415 { kEventClassMouse, kEventMouseDown },
416 { kEventClassMouse, kEventMouseUp },
417 { kEventClassMouse, kEventMouseMoved },
418 { kEventClassMouse, kEventMouseDragged },
419 { kEventClassMouse, kEventMouseWheelMoved },
422 static OSStatus windowEventHandler(EventHandlerCallRef handler, EventRef e, void *userData) {
423 Darwin$CarbonSurface *surface = (Darwin$CarbonSurface*)userData;
424 UInt32 eKind = WC(GetEventKind)(e);
425 UInt32 eClass = WC(GetEventClass)(e);
427 char* ec = (char*)&eClass;
428 if (surface == NULL) return eventNotHandledErr;
432 case kEventClassCommand:
434 // TODO: handle menu items
437 case kEventClassKeyboard:
439 case kEventRawKeyDown:
440 case kEventRawKeyRepeat:
441 case kEventRawKeyUp: {
445 r = WC(GetEventParameter)(e,kEventParamKeyCode,typeUInt32,NULL,sizeof(keyCode),NULL,&keyCode);
446 checkStatus(r,"GetEventParameter");
449 // These values were obtained by experimentation. I can't find any constants for them
450 // in the header files
451 case 126: js = JvNewStringLatin1("up"); break;
452 case 125: js = JvNewStringLatin1("down"); break;
453 case 124: js = JvNewStringLatin1("right"); break;
454 case 123: js = JvNewStringLatin1("left"); break;
455 case 122: js = JvNewStringLatin1("f1"); break;
456 case 120: js = JvNewStringLatin1("f2"); break;
457 case 99: js = JvNewStringLatin1("f3"); break;
458 case 118: js = JvNewStringLatin1("f4"); break;
459 case 96: js = JvNewStringLatin1("f5"); break;
460 case 97: js = JvNewStringLatin1("f6"); break;
461 case 98: js = JvNewStringLatin1("f7"); break;
462 case 100: js = JvNewStringLatin1("f8"); break;
463 case 101: js = JvNewStringLatin1("f9"); break;
464 case 109: js = JvNewStringLatin1("f10"); break;
465 case 103: js = JvNewStringLatin1("f11"); break;
466 case 111: js = JvNewStringLatin1("f12"); break;
467 case 105: js = JvNewStringLatin1("f13"); break;
468 case 114: js = JvNewStringLatin1("insert"); break;
469 case 117: js = JvNewStringLatin1("delete"); break;
470 case 116: js = JvNewStringLatin1("page_up"); break;
471 case 121: js = JvNewStringLatin1("page_down"); break;
472 case 115: js = JvNewStringLatin1("home"); break;
473 case 119: js = JvNewStringLatin1("end"); break;
474 case 71: js = JvNewStringLatin1("num_lock"); break;
475 case 53: js = JvNewStringLatin1("escape"); break;
476 case 51: js = JvNewStringLatin1("back_space"); break;
477 case 36: js = JvNewStringLatin1("enter"); break;
478 case 48: js = JvNewStringLatin1("tab"); break;
479 case 76: js = JvNewStringLatin1("enter"); break; // number pad enter
482 UInt32 modifiers = surface->modifiers;
483 r = WC(GetEventParameter)(e,kEventParamKeyUnicodes,typeUnicodeText,NULL,0,&size,NULL);
484 checkStatus(r,"GetEventParameter");
485 if(size == 0 || (modifiers & controlKey && size>sizeof(UniChar))) return eventNotHandledErr;
487 js = JvAllocString(size/sizeof(UniChar));
488 UniChar *buf = (UniChar*)JvGetStringChars(js);
489 r = WC(GetEventParameter)(e,kEventParamKeyUnicodes,typeUnicodeText,NULL,size,NULL,buf);
490 checkStatus(r,"GetEventParameter");
492 if(!buf[0]) return eventNotHandledErr; // shouldn't happen
493 // odd, when the ctrl key is pressed a-"`" become 1-31, this brings them back to the corect values
494 if(modifiers & controlKey && buf[0] < 32) buf[0] += 0x60;
499 if(eKind == kEventRawKeyUp)
500 surface->KeyReleased(js);
502 surface->KeyPressed(js);
505 case kEventRawKeyModifiersChanged: {
506 const static struct {
509 } modifiersTable[] = {
510 { shiftKey, JvNewStringLatin1("shift") },
511 { alphaLock, JvNewStringLatin1("caps_lock") },
512 { controlKey, JvNewStringLatin1("control") },
513 { optionKey, JvNewStringLatin1("alt") },
514 { kEventKeyModifierNumLockMask, JvNewStringLatin1("num_lock") },
518 UInt32 oldModifiers = (UInt32) surface->modifiers;
520 r = WC(GetEventParameter)(e,kEventParamKeyModifiers,typeUInt32,NULL,sizeof(newModifiers),NULL,&newModifiers);
521 checkStatus(r,"GetEventParameter");
522 surface->modifiers = (jint) newModifiers;
523 UInt32 changedModifiers = oldModifiers ^ newModifiers;
525 for(int i=0;modifiersTable[i].mask;i++) {
526 UInt32 mask = modifiersTable[i].mask;
527 if(!(changedModifiers & mask)) continue;
528 if(newModifiers & mask)
529 surface->KeyPressed(modifiersTable[i].ibexKey);
531 surface->KeyReleased(modifiersTable[i].ibexKey);
537 case kEventClassMouse:
538 // The default handler gets first dibs on mouse events
539 // (this catches the titlebar, resize box, etc)
540 r = WC(CallNextEventHandler)(handler, e);
541 if(r != eventNotHandledErr && eKind != kEventMouseMoved && eKind != kEventMouseDragged) return r;
544 case kEventMouseMoved:
545 case kEventMouseDragged: {
546 WindowRef window = (WindowRef) surface->rawWindowRef;
550 r = WC(GetEventParameter)(e,kEventParamMouseLocation,typeQDPoint,NULL,sizeof(p),NULL,&p);
551 checkStatus(r,"GetEventParameter");
552 r = WC(GetWindowBounds)(window,kWindowContentRgn,&rect);
553 checkStatus(r,"GetWindowBounds");
554 surface->Move(p.h-rect.left,p.v-rect.top);
557 case kEventMouseDown:
558 case kEventMouseUp: {
559 EventMouseButton button;
562 r = WC(GetEventParameter)(e,kEventParamMouseButton,typeMouseButton,NULL,sizeof(button),NULL,&button);
563 checkStatus(r,"GetEventParameter");
564 r = WC(GetEventParameter)(e,kEventParamClickCount,typeUInt32,NULL,sizeof(clickCount),NULL,&clickCount);
565 checkStatus(r,"GetEventParameter");
568 case kEventMouseButtonPrimary: ibexButton = 1; break;
569 case kEventMouseButtonSecondary: ibexButton = 2; break;
570 case kEventMouseButtonTertiary: ibexButton = 3; break;
571 default: return noErr;
573 if(eKind == kEventMouseDown) {
574 surface->Press(ibexButton);
576 surface->Release(ibexButton);
577 while(clickCount > 1) {
578 surface->DoubleClick(ibexButton);
581 if(clickCount) surface->Click(ibexButton);
585 case kEventMouseWheelMoved: {
586 EventMouseWheelAxis axis;
588 r = WC(GetEventParameter)(e,kEventParamMouseWheelAxis,typeMouseWheelAxis,NULL,sizeof(axis),NULL,&axis);
589 checkStatus(r,"GetEventParameter");
590 r = WC(GetEventParameter)(e,kEventParamMouseWheelDelta,typeSInt32,NULL,sizeof(delta),NULL,&delta);
591 checkStatus(r,"GetEventParameter");
593 case kEventMouseWheelAxisX: surface->HScroll((jint)(40 * delta)); break;
594 case kEventMouseWheelAxisY: surface->VScroll((jint)(40 * delta)); break;
601 case kEventClassWindow: {
603 r = WC(GetEventParameter)(e,kEventParamDirectObject,typeWindowRef,NULL,sizeof(window),NULL,&window);
604 checkStatus(r,"kEventClassWindow/WC(GetEventParameter");
606 if((RawData*)window != surface->rawWindowRef) Darwin::abort(JvNewStringLatin1("window != surface->window"));
609 case kEventWindowBoundsChanging: {
613 r = WC(GetEventParameter)(e,kEventParamAttributes,typeUInt32,NULL,sizeof(attr),NULL,&attr);
614 checkStatus(r,"kEventWindowBoundsChanged/GetEventParameter");
616 r = WC(GetEventParameter)(e,kEventParamCurrentBounds,typeQDRectangle,NULL,sizeof(rect),NULL,&rect);
617 checkStatus(r,"kEventWindowBoundsChanging/GetEventParameter");
619 if(attr & kWindowBoundsChangeSizeChanged) {
620 jint w = rect.right-rect.left;
621 jint h = rect.bottom-rect.top;
625 surface->winWidth = w;
626 surface->winHeight = h;
627 surface->pendingResize = true;
628 surface->needsReshape();
632 surface->SizeChange(w,h);
633 if(attr & kWindowBoundsChangeUserResize && surface->maximized)
634 surface->Maximized(false);
637 if(attr & kWindowBoundsChangeOriginChanged) {
638 surface->PosChange(rect.left,rect.top);
643 case kEventWindowBoundsChanged: {
645 r = WC(GetEventParameter)(e,kEventParamAttributes,typeUInt32,NULL,sizeof(attr),NULL,&attr);
646 checkStatus(r,"kEventWindowBoundsChanged/GetEventParameter");
648 if(attr & kWindowBoundsChangeSizeChanged) {
651 surface->pendingResize = false;
658 case kEventWindowActivated:
659 case kEventWindowDeactivated: {
660 surface->Focused(eKind == kEventWindowActivated);
663 case kEventWindowZoomed: {
664 surface->Maximized(true);
667 case kEventWindowCollapsed: {
668 surface->Minimized(true);
671 case kEventWindowExpanded: {
672 surface->Minimized(false);
675 case kEventWindowClose: {
679 case kEventWindowClosed: {
680 GCJ$Retainer::release(surface);
683 case kEventWindowUpdate: {
684 fprintf(stderr,"kEventWindowUpdate: Should not be here\n");
691 return eventNotHandledErr;
694 static OSStatus paintProc (
698 RgnHandle inClientPaintRgn,
699 RgnHandle outSystemPaintRgn,
702 Darwin$CarbonSurface *surface = (Darwin$CarbonSurface*) userData;
704 WC(GetRegionBounds)(inClientPaintRgn, &rect);
705 surface->Dirty(rect.left,rect.top,rect.right-rect.left,rect.bottom-rect.top);
709 void Darwin$CarbonSurface::natInit(jboolean framed) {
712 WindowClass wc = framed ? kDocumentWindowClass : kPlainWindowClass;
713 // FIXME: unframed windows should appear in the window menu
714 // This probably needs a hack similar to whats in Cocoa.mm
715 WindowAttributes attr = kWindowStandardHandlerAttribute|
716 (framed ? kWindowInWindowMenuAttribute|kWindowStandardDocumentAttributes|kWindowLiveResizeAttribute : 0);
718 rect.top = rect.left = 0;
719 rect.bottom = rect.right = 10;
720 winWidth = winHeight = 10;
722 r = WC(CreateNewWindow)(wc, attr, &rect, &window);
723 checkStatus(r,"CreateNewWindow");
725 rawWindowRef = (RawData*) window;
727 GCJ$Retainer::retain(this); // Need to account for the EventHandlers pointer to us
729 r = InstallWindowEventHandler(window,windowEventHandlerUPP,sizeof(eventTypeSpecs)/sizeof(EventTypeSpec),eventTypeSpecs,this,NULL);
730 checkStatus(r,"InstallWindowEventHandler");
732 r = WC(InstallWindowContentPaintProc)(window,paintProcUPP,kWindowPaintProcOptionsNone,this);
733 checkStatus(r,"InstallWindowContentPaintProc");
735 WC(ShowWindow)(window);
738 void Darwin$CarbonSurface::natDispose() {
739 WindowRef window = (WindowRef) rawWindowRef;
740 WC(DisposeWindow)(window);
743 void Darwin$CarbonSurface::natSetIcon(org::ibex::Picture *_p) {
746 void Darwin$CarbonSurface::natSetLocation() {
747 WindowRef window = (WindowRef) rawWindowRef;
751 OSStatus r = WC(GetWindowBounds)(window,kWindowStructureRgn,&rect);
752 checkStatus(r,"GetWindowBounds");
753 rect.bottom = y + (rect.bottom - rect.top);
754 rect.right = x + (rect.right - rect.left);
757 r = WC(SetWindowBounds)(window,kWindowStructureRgn,&rect);
758 checkStatus(r,"SetWindowBounds");
759 r = WC(ConstrainWindowToScreen)(window,kWindowStructureRgn,kWindowConstrainMoveRegardlessOfFit,NULL,NULL);
760 checkStatus(r,"ConstrainWindowToScreen");
763 void Darwin$CarbonSurface::natSetSize(jint w, jint h) {
764 WindowRef window = (WindowRef) rawWindowRef;
766 OSStatus r = WC(GetWindowBounds)(window,kWindowContentRgn,&rect);
767 checkStatus(r,"GetWindowBounds");
768 rect.bottom = rect.top + h;
769 rect.right = rect.left + w;
770 r = WC(SetWindowBounds)(window,kWindowContentRgn,&rect);
771 checkStatus(r,"SetWindowBounds");
772 r = WC(ConstrainWindowToScreen)(window,kWindowStructureRgn,kWindowConstrainMoveRegardlessOfFit,NULL,NULL);
773 checkStatus(r,"ConstrainWindowToScreen");
776 void Darwin$CarbonSurface::natSetLimits(jint minw, jint minh, jint maxw, jint maxh) {
777 WindowRef window = (WindowRef) rawWindowRef;
778 const int maxMax = 32767;
779 const int minMinW = 80;
780 const int minMinH = 20;
782 min.width = minw > maxMax ? maxMax : (minw < minMinW ? minMinW : minw);
783 min.height = minh > maxMax ? maxMax : (minh < minMinH ? minMinH : minh);
784 max.width = maxw > maxMax ? maxMax : (maxw < minMinW ? minMinW : maxw);
785 max.height = maxh > maxMax ? maxMax : (maxh < minMinH ? minMinH : maxh);
786 OSStatus r = WC(SetWindowResizeLimits)(window,&min,&max);
787 checkStatus(r,"SetWindowResizeLimits");
791 #pragma mark ------ Carbon Methods ------
792 void fileDialogEventHandler(NavEventCallbackMessage callBackSelector, NavCBRecPtr callBackParms, void *userData) {
793 Darwin$FileDialogHelper *helper = (Darwin$FileDialogHelper*) userData;
794 NavDialogRef dialog = callBackParms->context;
796 switch(callBackSelector) {
797 case kNavCBUserAction: {
798 NavUserAction action = WC(NavDialogGetUserAction)(dialog);
799 if(action == kNavUserActionNone || action == kNavUserActionCancel) {
800 helper->fileName = 0;
802 NavReplyRecord reply;
803 r = WC(NavDialogGetReply)(dialog,&reply);
804 checkStatus(r,"NavDialogGetReply");
809 r = WC(AEGetNthPtr)(&reply.selection,1,typeFSRef,&keyword,NULL,&ref,sizeof(ref),NULL);
810 checkStatus(r,"AEGetNthPtr");
811 r = WC(FSRefMakePath)(&ref,(UInt8*)buf,sizeof(buf)-1);
812 checkStatus(r,"FSRefMakePath");
813 helper->fileName = JvNewStringLatin1(buf);
814 if(helper->save) helper->saveName = cfStringToJString(reply.saveFileName);
815 r = WC(NavDisposeReply)(&reply);
816 checkStatus(r,"NavDialogGetReply");
818 helper->sem->release();
821 case kNavCBTerminate:
822 WC(NavDialogDispose)(dialog);
827 void Darwin::natFileDialog(Darwin$FileDialogHelper *helper,jstring suggestion_, jboolean write) {
829 SmartCFString suggestion = suggestion_;
830 CFStringRef message = CFSTR("By selecting a file in this dialog you are giving this Ibex application permission to access that file.");
832 WindowRef window = WC(FrontWindow)();
833 NavDialogCreationOptions options;
835 WC(NavGetDefaultDialogCreationOptions)(&options);
836 options.optionFlags =
837 (options.optionFlags|kNavAllFilesInPopup|kNavSelectAllReadableItem|kNavDontUseCustomFrame|kNavDontConfirmReplacement)
838 &~(kNavAllowStationery|kNavAllowMultipleFiles);
839 options.clientName = CFSTR("Ibex");
841 options.saveFileName = suggestion;
842 options.message = message;
843 options.modality = window ? kWindowModalityWindowModal : kWindowModalityAppModal;
844 options.parentWindow = window;
847 r = WC(NavCreatePutFileDialog)(&options,0,0,fileDialogEventHandlerUPP,helper,&dlg);
849 r = WC(NavCreateGetFileDialog)(&options,NULL,fileDialogEventHandlerUPP,NULL,NULL,helper,&dlg);
850 checkStatus(r,"NavCreate(Get/Put)FileDialog");
852 WC(NavDialogRun)(dlg);
855 jstring Darwin::natGetClipBoard() {
860 r = WC(GetCurrentScrap)(&scrap);
861 checkStatus(r,"GetCurrentScrap");
863 r = WC(GetScrapFlavorSize)( scrap, kScrapFlavorTypeUnicode, &size);
864 if(r == scrapFlavorNotFoundErr) return JvNewStringLatin1("");
865 checkStatus(r,"GetScrapFlavorSize");
867 unsigned int length = size/sizeof(UniChar);
869 jstring js = JvAllocString(length);
870 UniChar *buf = (UniChar*) JvGetStringChars(js);
872 r = WC(GetScrapFlavorData)(scrap,kScrapFlavorTypeUnicode,&size2,buf);
873 if(r == scrapFlavorNotFoundErr);
874 checkStatus(r,"GetScrapFlavorData");
875 if(size2 != size) return JvNewStringLatin1("");
880 void Darwin::natSetClipBoard(jstring js) {
881 unsigned int length = js->length();
885 r = WC(GetCurrentScrap)(&scrap);
886 checkStatus(r,"GetCurrentScrap");
888 r = WC(PutScrapFlavor)(scrap,kScrapFlavorTypeUnicode,0,sizeof(UniChar)*length,JvGetStringChars(js));
889 checkStatus(r,"PutScrapFlavor");
892 HTTP$Proxy *Darwin::natDetectProxy() {
893 using org::ibex::HTTP$Proxy;
897 SmartCFString smartString;
898 CFArrayRef exceptionList;
901 CFDictionaryRef proxyInfo = WC(SCDynamicStoreCopyProxies)(NULL);
902 if(proxyInfo == NULL) return 0;
904 #define doproto(proto,var) \
905 number = (CFNumberRef) WC(CFDictionaryGetValue)(proxyInfo,kSCPropNetProxies ## proto ## Enable); \
906 if(number != NULL && WC(CFGetTypeID)(number) != WC(CFNumberGetTypeID)()) number = NULL; \
907 if(number && WC(CFNumberGetValue)(number,kCFNumberIntType,&i) && i) { \
908 string = (CFStringRef) WC(CFDictionaryGetValue)(proxyInfo, kSCPropNetProxies ## proto ## Proxy);\
909 if(string != NULL && WC(CFGetTypeID)(string) != WC(CFStringGetTypeID)()) string = NULL; \
910 number = (CFNumberRef) WC(CFDictionaryGetValue)(proxyInfo, kSCPropNetProxies ## proto ## Port); \
911 if(number != NULL && WC(CFGetTypeID)(number) != WC(CFNumberGetTypeID)()) number = NULL; \
912 if(string && number && WC(CFNumberGetValue)(number,kCFNumberIntType,&i) && i) { \
913 if(!p) p = new HTTP$Proxy(); \
914 p->var ## ProxyHost = cfStringToJString(string); \
915 p->var ## ProxyPort = i; \
923 exceptionList = (CFArrayRef) WC(CFDictionaryGetValue)(proxyInfo,kSCPropNetProxiesExceptionsList);
924 if(exceptionList != NULL && WC(CFGetTypeID)(exceptionList) != WC(CFArrayGetTypeID)()) exceptionList = NULL;
925 if(p && exceptionList && WC(CFArrayGetCount)(exceptionList)) {
926 CFIndex count = WC(CFArrayGetCount)(exceptionList);
927 p->excluded = (JArray<java::lang::String*>*)
928 JvNewObjectArray(count,&java::lang::String::class$,0);
929 for(i=0;i<count;i++) {
930 string = (CFStringRef) WC(CFArrayGetValueAtIndex)(exceptionList,i);
931 if(string != NULL && WC(CFGetTypeID)(string) != WC(CFStringGetTypeID)()) string = NULL;
932 elements(p->excluded)[i] = string ? cfStringToJString(string) : JvNewStringLatin1("(null)");
935 WC(CFRelease)(proxyInfo);
939 exceptionList = [proxyInfo objectForKey: (NSString*) kSCPropNetProxiesExceptionsList];
940 if(p && exceptionList && [exceptionList count]) {
941 NSLog(@"excl: %@",exceptionList);
942 p->excluded = (JArray<java::lang::String*>*)
943 JvNewObjectArray([exceptionList count],&java::lang::String::class$,0);
944 for(i=0;i<[exceptionList count];i++)
945 elements(p->excluded)[i] = [[exceptionList objectAtIndex: i] jstring];
951 using org::ibex::Proxy;
956 NSArray *exceptionList;
958 NSDictionary *proxyInfo = (NSDictionary*)WC(SCDynamicStoreCopyProxies)(NULL);
960 if(proxyInfo == NULL) return 0;
961 if([[proxyInfo objectForKey: (NSString*) kSCPropNetProxiesHTTPEnable] boolValue]) {
962 host = [proxyInfo objectForKey: (NSString*) kSCPropNetProxiesHTTPProxy];
963 port = [proxyInfo objectForKey: (NSString*) kSCPropNetProxiesHTTPPort];
964 if(host && [port intValue]) {
965 if(!p) p = new Proxy();
966 p->httpProxyHost = [host jstring];
967 p->httpProxyPort = [port intValue];
970 if([[proxyInfo objectForKey: (NSString*) kSCPropNetProxiesHTTPSEnable] boolValue]) {
971 host = [proxyInfo objectForKey: (NSString*) kSCPropNetProxiesHTTPSProxy];
972 port = [proxyInfo objectForKey: (NSString*) kSCPropNetProxiesHTTPSPort];
973 if(host && [port intValue]) {
974 if(!p) p = new Proxy();
975 p->httpsProxyHost = [host jstring];
976 p->httpsProxyPort = [port intValue];
979 if([[proxyInfo objectForKey: (NSString*) kSCPropNetProxiesSOCKSEnable] boolValue]) {
980 host = [proxyInfo objectForKey: (NSString*) kSCPropNetProxiesSOCKSProxy];
981 port = [proxyInfo objectForKey: (NSString*) kSCPropNetProxiesSOCKSPort];
982 if(host && [port intValue]) {
983 if(!p) p = new Proxy();
984 p->socksProxyHost = [host jstring];
985 p->socksProxyPort = [port intValue];
989 exceptionList = [proxyInfo objectForKey: (NSString*) kSCPropNetProxiesExceptionsList];
990 if(p && exceptionList && [exceptionList count]) {
991 NSLog(@"excl: %@",exceptionList);
992 p->excluded = (JArray<java::lang::String*>*)
993 JvNewObjectArray([exceptionList count],&java::lang::String::class$,0);
994 for(i=0;i<[exceptionList count];i++)
995 elements(p->excluded)[i] = [[exceptionList objectAtIndex: i] jstring];
1001 jint Darwin::cgScreenWidth() {
1002 return WC(CGDisplayPixelsWide)(((CGDirectDisplayID)0));
1005 jint Darwin::cgScreenHeight() {
1006 return WC(CGDisplayPixelsHigh)(((CGDirectDisplayID)0));
1009 void Darwin::_newBrowserWindow(jstring js) {
1010 SmartCFString cfs = js;
1011 CFURLRef url = WC(CFURLCreateWithString)(WC(kCFAllocatorDefault),cfs,NULL);
1012 SmartCFString scheme = WC(CFURLCopyScheme)(url);
1013 if(scheme.equals(CFStringRef("http")))
1014 WC(LSOpenCFURLRef)(url,NULL);
1018 void Darwin::natInit() {
1021 if(pthread_mutex_init(&blit_mutex,NULL) != 0) funcFailed("pthread_mutex_init");
1022 if(pthread_cond_init(&blit_cond,NULL) != 0) funcFailed("pthread_cond_init");
1024 carbonMessageEventHandlerUPP = WC(NewEventHandlerUPP)(carbonMessageEventHandler);
1025 windowEventHandlerUPP = WC(NewEventHandlerUPP)(windowEventHandler);
1026 fileDialogEventHandlerUPP = WC(NewNavEventUPP)(fileDialogEventHandler);
1027 paintProcUPP = WC(NewWindowPaintUPP)(paintProc);
1029 #ifdef Ibex_CARBON_NO_BUNDLE_HACK
1031 ProcessSerialNumber currentProcess = { 0, kCurrentProcess };
1033 ::fprintf(stderr,"Doing Ibex_CARBON_NO_BUNDLE_HACK\n");
1034 r = WC(GetCurrentProcess)(¤tProcess);
1035 checkStatus(r,"GetCurrentProcess");
1036 r = WC(CPSEnableForegroundOperation)( ¤tProcess );
1037 checkStatus(r,"CPSEnableForegroundOperation");
1038 r = WC(CPSSetFrontProcess)(¤tProcess);
1039 checkStatus(r,"CPSSetFrontProcess");
1044 r = CreateNibReference(CFSTR("MainMenu"), &nib);
1045 checkStatus(r,"CreateNibReference");
1046 r = SetMenuBarFromNib(nib, CFSTR("MenuBar"));
1047 checkStatus(r,"SetMenuBarFromNib");
1048 DisposeNibReference(nib);
1050 // FEATURE: Install menu event handler
1055 void Darwin::runApplicationEventLoop() {
1056 WC(RunApplicationEventLoop)();
1060 #pragma mark ------ OpenGL Functions -----
1062 void Darwin$CarbonOpenGL::activateSharedContext() {
1063 AGLContext ctx = (AGLContext) rawSharedContext;
1064 WC(aglSetCurrentContext)(ctx);
1067 jboolean Darwin$CarbonOpenGL::initPixelFormat() {
1079 rawPixelFormat = (RawData*) WC(aglChoosePixelFormat)(NULL,0,attr);
1080 return rawPixelFormat != 0;
1083 void Darwin$CarbonOpenGL::initSharedContext() {
1084 AGLPixelFormat fmt = (AGLPixelFormat) rawPixelFormat;
1085 rawSharedContext = (RawData*) WC(aglCreateContext)(fmt,NULL);
1086 checkStatus(rawSharedContext,"aglCreateContext");
1089 void Darwin$GLCarbonPixelBuffer::natInit() {
1090 WindowClass wc = kPlainWindowClass;
1091 WindowAttributes attr = 0;
1095 AGLContext ctx,shared;
1101 rect.top = rect.left = 0;
1102 rect.right = width + rect.left;
1103 rect.bottom = height + rect.top;
1105 r = WC(CreateNewWindow)(wc,attr,&rect,&window);
1106 checkStatus(r,"CreateNewWindow");
1108 shared = (AGLContext) gl->rawSharedContext;
1109 fmt = (AGLPixelFormat) gl->rawPixelFormat;
1110 ctx = WC(aglCreateContext)(fmt,shared);
1111 checkStatus(ctx, "aglCreateContext");
1113 b = WC(aglSetDrawable)(ctx,WC(GetWindowPort)(window));
1114 checkStatus(b,"aglSetDrawable");
1116 WC(aglSetCurrentContext)(ctx);
1117 WC(aglUpdateContext)(ctx);
1118 drawableInit(width,height);
1119 glClear(GL_COLOR_BUFFER_BIT);
1121 WC(aglSetCurrentContext)(shared);
1122 target = rectTexture ? GL_TEXTURE_RECTANGLE_EXT : GL_TEXTURE_2D;
1124 glGenTextures(1,&tex);
1125 glBindTexture(target,tex);
1126 glTexParameterf(target, GL_TEXTURE_MIN_FILTER, GL_NEAREST);
1127 glTexParameterf(target, GL_TEXTURE_MAG_FILTER, GL_NEAREST);
1128 WC(aglSurfaceTexture) (shared, target, GL_RGBA, ctx);
1132 //WC(ShowWindow)(window);
1133 textureName = (jint) tex;
1134 rawWindowRef = (RawData*) window;
1135 rawCTX = (RawData*) ctx;
1138 void Darwin$GLCarbonPixelBuffer::activateContext() {
1139 AGLContext ctx = (AGLContext) rawCTX;
1140 WC(aglSetCurrentContext)(ctx);
1143 void Darwin$GLCarbonPixelBuffer::natCleanup(RawData* rawWindowRef, RawData* rawCTX) {
1144 WindowRef window = (WindowRef) rawWindowRef;
1145 AGLContext ctx = (AGLContext) rawCTX;
1146 WC(aglDestroyContext)(ctx);
1147 WC(DisposeWindow)(window);
1150 void Darwin$GLCarbonSurface::clear() {
1151 AGLContext ctx = (AGLContext) rawCTX;
1152 WC(aglSetCurrentContext)(ctx);
1153 glColor4f(1.0f,1.0f,1.0f,1.0f);
1155 glMatrixMode (GL_MODELVIEW);
1158 glMatrixMode (GL_PROJECTION);
1162 glVertex3i (-1, -1, -1);
1163 glVertex3i (1, -1, -1);
1164 glVertex3i (1, 1, -1);
1165 glVertex3i (-1, 1, -1);
1168 glMatrixMode (GL_MODELVIEW);
1172 void Darwin$GLCarbonSurface::flush() {
1173 AGLContext ctx = (AGLContext) rawCTX;
1174 WC(aglSetCurrentContext)(ctx);
1178 // blit_lock is assumed to be held
1179 void Darwin$GLCarbonSurface::reshape(jint w, jint h) {
1180 AGLContext ctx = (AGLContext) rawCTX;
1181 WC(aglSetCurrentContext)(ctx);
1182 WC(aglUpdateContext)(ctx);
1184 glViewport(0,0,w,h);
1185 glMatrixMode(GL_PROJECTION);
1187 glOrtho(0,w,h,0,-1,1);
1188 glMatrixMode(GL_MODELVIEW);
1190 glTranslatef (0.375f, 0.375f, 0.0f);
1194 // blit_lock is assumed to be held
1195 void Darwin$GLCarbonSurface::natBlit(Darwin$GLCarbonPixelBuffer *db, jint sx1, jint sy1, jint dx1, jint dy1, jint dx2, jint dy2) {
1196 AGLContext ctx = (AGLContext) rawCTX;
1197 int sx2 = sx1 + (dx2-dx1);
1198 int sy2 = sy1 + (dy2-dy1);
1200 db->activateContext();
1204 WC(aglSetCurrentContext)(ctx);
1207 if(db->rectTexture) {
1208 glEnable(GL_TEXTURE_RECTANGLE_EXT);
1210 glBindTexture(GL_TEXTURE_RECTANGLE_EXT, db->textureName);
1213 glTexCoord2i (sx1, sy1 );
1214 glVertex3i (dx1, dy1, 0);
1215 glTexCoord2i (sx2, sy1 );
1216 glVertex3i (dx2, dy1, 0);
1217 glTexCoord2i (sx2, sy2 );
1218 glVertex3i (dx2, dy2, 0);
1219 glTexCoord2i (sx1, sy2 );
1220 glVertex3i (dx1, dy2, 0);
1223 glDisable(GL_TEXTURE_RECTANGLE_EXT);
1226 float tx1,ty1,tx2,ty2; // normalized texture coords
1227 tx1 = (float) sx1 / (float) db->width;
1228 ty1 = (float) sy1 / (float) db->height;
1229 tx2 = (float) sx2 / (float) db->width;
1230 ty2 = (float) sy2 / (float) db->height;
1232 glColor4f(1.0f,1.0f,1.0f,1.0f);
1233 glEnable(GL_TEXTURE_2D);
1234 glBindTexture(GL_TEXTURE_2D, db->textureName);
1237 glTexCoord2f (tx1, ty1 );
1238 glVertex3i (dx1, dy1, 0);
1239 glTexCoord2f (tx2, ty1 );
1240 glVertex3i (dx2, dy1, 0);
1241 glTexCoord2f (tx2, ty2 );
1242 glVertex3i (dx2, dy2, 0);
1243 glTexCoord2f (tx1, ty2 );
1244 glVertex3i (dx1, dy2, 0);
1246 glDisable(GL_TEXTURE_2D);
1251 void Darwin$GLCarbonSurface::natInit() {
1252 WindowRef window = (WindowRef) rawWindowRef;
1253 AGLContext ctx,shared;
1257 shared = (AGLContext) gl->rawSharedContext;
1258 fmt = (AGLPixelFormat) gl->rawPixelFormat;
1259 ctx = WC(aglCreateContext)(fmt,shared);
1260 checkStatus(ctx, "aglCreateContext");
1262 b = WC(aglSetDrawable)(ctx,WC(GetWindowPort)(window));
1263 checkStatus(b,"aglSetDrawable");
1265 WC(aglSetCurrentContext)(ctx);
1266 glHint(GL_PERSPECTIVE_CORRECTION_HINT, GL_NICEST);
1268 glClearColor (1.0f, 1.0f, 1.0f, 1.0f);
1269 glClearDepth( 0.0f );
1273 rawCTX = (RawData*)ctx;
1276 void Darwin$GLCarbonSurface::natDispose() {
1277 AGLContext ctx = (AGLContext) rawCTX;
1278 WC(aglDestroyContext)(ctx);
1279 Darwin$CarbonSurface::natDispose();
1282 } } } // end namepsace org::ibex::plat