Clear out expired aliens in Cocoa UI startup
parent
ce48c96903
commit
22c0257dbe
|
@ -1,17 +1,15 @@
|
||||||
should fix in 0.82:
|
should fix in 0.82:
|
||||||
|
|
||||||
|
- 3 >n fep
|
||||||
- amd64 %box-struct
|
- amd64 %box-struct
|
||||||
- get factor running on mac intel
|
- get factor running on mac intel
|
||||||
- when generating a 32-bit image on a 64-bit system, large numbers which should
|
- when generating a 32-bit image on a 64-bit system, large numbers which should
|
||||||
be bignums become fixnums
|
be bignums become fixnums
|
||||||
- httpd fep
|
- httpd fep
|
||||||
- expired aliens in view hash
|
|
||||||
- clicks sent twice
|
- clicks sent twice
|
||||||
- speed up ideas:
|
- speed up ideas:
|
||||||
- only do clipping for certain gadgets
|
- only do clipping for certain gadgets
|
||||||
- use glRect
|
- use glRect
|
||||||
- remove <char*>, <ushort*>, set-char*-nth, set-ushort*-nth since they
|
|
||||||
have incorrect semantics
|
|
||||||
- cocoa: global menu bar with useful commands
|
- cocoa: global menu bar with useful commands
|
||||||
|
|
||||||
+ portability:
|
+ portability:
|
||||||
|
@ -58,6 +56,8 @@ should fix in 0.82:
|
||||||
- core foundation should use unicode strings
|
- core foundation should use unicode strings
|
||||||
- alien>utf16-string, utf16-string>alien words
|
- alien>utf16-string, utf16-string>alien words
|
||||||
- can <void*> only be called with an alien?
|
- can <void*> only be called with an alien?
|
||||||
|
- remove <char*>, <ushort*>, set-char*-nth, set-ushort*-nth since they
|
||||||
|
have incorrect semantics
|
||||||
- improve callback efficiency
|
- improve callback efficiency
|
||||||
- float intrinsics
|
- float intrinsics
|
||||||
- complex float type
|
- complex float type
|
||||||
|
|
|
@ -3,11 +3,11 @@
|
||||||
IN: objc-FactorView
|
IN: objc-FactorView
|
||||||
DEFER: FactorView
|
DEFER: FactorView
|
||||||
|
|
||||||
USING: arrays cocoa errors freetype gadgets gadgets-launchpad
|
USING: alien arrays cocoa errors freetype gadgets
|
||||||
gadgets-layouts gadgets-listener gadgets-panes hashtables kernel
|
gadgets-launchpad gadgets-layouts gadgets-listener gadgets-panes
|
||||||
lists math namespaces objc objc-NSApplication objc-NSEvent
|
hashtables kernel lists math namespaces objc objc-NSApplication
|
||||||
objc-NSObject objc-NSOpenGLContext objc-NSOpenGLView objc-NSView
|
objc-NSEvent objc-NSObject objc-NSOpenGLContext
|
||||||
objc-NSWindow sequences threads ;
|
objc-NSOpenGLView objc-NSView objc-NSWindow sequences threads ;
|
||||||
|
|
||||||
! Cocoa backend for Factor UI
|
! Cocoa backend for Factor UI
|
||||||
|
|
||||||
|
@ -18,6 +18,9 @@ SYMBOL: views
|
||||||
|
|
||||||
H{ } clone views set-global
|
H{ } clone views set-global
|
||||||
|
|
||||||
|
: purge-expired ( hash -- hash )
|
||||||
|
[ drop expired? not ] hash-subset ;
|
||||||
|
|
||||||
: view ( handle -- world ) views get hash ;
|
: view ( handle -- world ) views get hash ;
|
||||||
|
|
||||||
: mouse-location ( view event -- loc )
|
: mouse-location ( view event -- loc )
|
||||||
|
@ -189,6 +192,7 @@ IN: shells
|
||||||
[
|
[
|
||||||
[
|
[
|
||||||
init-ui
|
init-ui
|
||||||
|
purge-expired
|
||||||
launchpad-window
|
launchpad-window
|
||||||
listener-window
|
listener-window
|
||||||
finish-launching
|
finish-launching
|
||||||
|
|
Loading…
Reference in New Issue