diff --git a/TODO.FACTOR.txt b/TODO.FACTOR.txt index 990dd28d8e..77ad150f62 100644 --- a/TODO.FACTOR.txt +++ b/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 diff --git a/library/ui/cocoa/view-utils.factor b/library/ui/cocoa/view-utils.factor index b937cb4dbc..7509ead135 100644 --- a/library/ui/cocoa/view-utils.factor +++ b/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 ] }