2007-09-20 18:09:08 -04:00
|
|
|
USING: cocoa cocoa.messages cocoa.application cocoa.nibs
|
2008-03-05 17:00:34 -05:00
|
|
|
assocs namespaces kernel words compiler.units sequences
|
2008-05-09 18:11:10 -04:00
|
|
|
ui ui.cocoa ;
|
2007-09-20 18:09:08 -04:00
|
|
|
|
|
|
|
|
"stop-after-last-window?" get
|
|
|
|
|
global [
|
|
|
|
|
stop-after-last-window? set
|
|
|
|
|
|
|
|
|
|
[ "MiniFactor.nib" load-nib ] cocoa-init-hook set-global
|
|
|
|
|
|
|
|
|
|
! Only keeps those methods that we actually call
|
2008-04-13 23:58:07 -04:00
|
|
|
sent-messages get super-sent-messages get assoc-union
|
|
|
|
|
objc-methods [ assoc-intersect ] change
|
2007-09-20 18:09:08 -04:00
|
|
|
|
|
|
|
|
sent-messages get
|
|
|
|
|
super-sent-messages get
|
2008-03-29 21:36:58 -04:00
|
|
|
[ keys [ objc-methods get at dup ] H{ } map>assoc ] bi@
|
2008-04-13 23:58:07 -04:00
|
|
|
super-message-senders [ assoc-intersect ] change
|
|
|
|
|
message-senders [ assoc-intersect ] change
|
2007-09-20 18:09:08 -04:00
|
|
|
|
|
|
|
|
sent-messages off
|
|
|
|
|
super-sent-messages off
|
|
|
|
|
|
|
|
|
|
! We need this for strip-stack-traces to work fully
|
|
|
|
|
{ message-senders super-message-senders }
|
2007-12-21 21:18:24 -05:00
|
|
|
[ get values compile ] each
|
2007-09-20 18:09:08 -04:00
|
|
|
] bind
|
