: <alphanum-insensitive> ( obj -- alphanum )
alphanum new
- swap dup string? [ w/collation-key ] when >>obj ; inline
+ swap dup string? [ collation-key/nfd drop ] when >>obj ; inline
M: alphanum <=>
[ obj>> ] bi@
io.encodings.string classes.struct ;
IN: ui.backend.cocoa.views
+SLOT: window
+
: send-mouse-moved ( view event -- )
[ mouse-location ] [ drop window ] 2bi
[ move-hand fire-motion yield ] [ drop ] if* ;
} ;
HELP: first-grapheme
-{ $values { "str" string } { "i" "an index" } }
+{ $values { "entire-str" string } { "start" string } { "i" "an index" } }
{ $description "Finds the length of the first grapheme of the string. This can be used repeatedly to efficiently traverse the graphemes of the string, using slices." } ;
HELP: last-grapheme