1 USING: cocoa cocoa.messages cocoa.application cocoa.nibs
2 assocs namespaces kernel words compiler.units sequences
5 "stop-after-last-window?" get
7 stop-after-last-window? set
9 [ "MiniFactor.nib" load-nib ] cocoa-init-hook set-global
11 ! Only keeps those methods that we actually call
12 sent-messages get super-sent-messages get assoc-union
13 objc-methods [ assoc-intersect ] change
16 super-sent-messages get
17 [ keys [ objc-methods get at dup ] H{ } map>assoc ] bi@
18 super-message-senders [ assoc-intersect ] change
19 message-senders [ assoc-intersect ] change
22 super-sent-messages off
27 ! We need this for strip-stack-traces to work fully
28 { message-senders super-message-senders }
29 [ get values compile ] each