Clipboard action stubs

TODO.FACTOR.txt

@@ -5,7 +5,6 @@
 ]
 
 - x11 title bars are funny
-- x11 mouse enter/leave events: update rollover
 - x11: when starting with restored windows, caret invisible
 + httpd:
   - outliners don't work
@@ -91,7 +90,6 @@
 - float= on powerpc doesn't consider nans equal
 - intrinsic fixnum>float float>fixnum
 - win64 port
-- amd64 %unbox-struct
 - complex float type
 - complex float intrinsics
 - remove literal table

library/ui/cocoa/view-utils.factor

@@ -99,6 +99,14 @@ opengl sequences ;
         [ 3drop 1 ]
     }
     
+    { "mouseEntered:" "void" { "id" "SEL" "id" }
+        [ nip send-mouse-moved ]
+    }
+    
+    { "mouseExited:" "void" { "id" "SEL" "id" }
+        [ 3drop forget-rollover ]
+    }
+    
     { "mouseMoved:" "void" { "id" "SEL" "id" }
         [ nip send-mouse-moved ]
     }
@@ -151,6 +159,19 @@ opengl sequences ;
         [ nip send-key-up-event ]
     }
 
+    { "cut:" "id" { "id" "SEL" "id" }
+        USE: io
+        [ 3drop global [ "cut:" print flush ] bind f ]
+    }
+
+    { "copy:" "id" { "id" "SEL" "id" }
+        [ 3drop global [ "copy:" print flush ] bind f ]
+    }
+
+    { "paste:" "id" { "id" "SEL" "id" }
+        [ 3drop global [ "paste:" print flush ] bind f ]
+    }
+
     { "updateFactorGadgetSize:" "void" { "id" "SEL" "id" }
         [ 2drop dup view-dim swap window set-gadget-dim ]
     }