Revert Unnecessary Changes
parent
bada736a3f
commit
2f2cb869f1
|
@ -15,6 +15,8 @@ ui.backend.cocoa.input-methods.editors io.encodings.utf16n
|
||||||
io.encodings.string classes.struct ;
|
io.encodings.string classes.struct ;
|
||||||
IN: ui.backend.cocoa.views
|
IN: ui.backend.cocoa.views
|
||||||
|
|
||||||
|
SLOT: window
|
||||||
|
|
||||||
: send-mouse-moved ( view event -- )
|
: send-mouse-moved ( view event -- )
|
||||||
[ mouse-location ] [ drop window ] 2bi
|
[ mouse-location ] [ drop window ] 2bi
|
||||||
[ move-hand fire-motion yield ] [ drop ] if* ;
|
[ move-hand fire-motion yield ] [ drop ] if* ;
|
||||||
|
|
|
@ -22,7 +22,7 @@ TUPLE: editor < line-gadget
|
||||||
preedit-underlines ;
|
preedit-underlines ;
|
||||||
|
|
||||||
M: editor preedit? preedit-start>> [ t ] [ f ] if ;
|
M: editor preedit? preedit-start>> [ t ] [ f ] if ;
|
||||||
|
|
||||||
<PRIVATE
|
<PRIVATE
|
||||||
|
|
||||||
: <loc> ( -- loc ) { 0 0 } <model> ;
|
: <loc> ( -- loc ) { 0 0 } <model> ;
|
||||||
|
|
Loading…
Reference in New Issue