Clear out expired aliens in Cocoa UI startup

slava 2006-04-01 01:16:03 +00:00
parent ce48c96903
commit 22c0257dbe
2 changed files with 12 additions and 8 deletions

View File

@ -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

View File

@ -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