steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ui.backend.cocoa.views: remove listener touchbar support (temporarily). 

... it breaks deploys of other UI apps that aren't the listener.
factor-shell
John Benediktsson 2017-10-29 15:38:20 -07:00
parent da0ca21fc8
commit d2f3977768
1 changed files with 6 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
basis/ui/backend/cocoa/views/views.factor
View File

@ -2,13 +2,12 @@
! See http://factorcode.org/license.txt for BSD license.
USING: accessors alien alien.c-types alien.data alien.strings
arrays assocs cocoa cocoa.application cocoa.classes
cocoa.pasteboard cocoa.runtime cocoa.subclassing cocoa.touchbar
cocoa.types cocoa.views combinators core-foundation.strings
core-graphics core-graphics.types core-text io.encodings.utf8
kernel literals locals math math.rectangles namespaces opengl
sequences threads ui.gadgets ui.gadgets.private
ui.gadgets.worlds ui.gestures ui.private ui.tools.listener
vocabs.refresh ;
cocoa.pasteboard cocoa.runtime cocoa.subclassing cocoa.types
cocoa.views combinators core-foundation.strings core-graphics
core-graphics.types core-text io.encodings.utf8 kernel literals
locals math math.rectangles namespaces opengl sequences threads
ui.gadgets ui.gadgets.private ui.gadgets.worlds ui.gestures
ui.private ;
IN: ui.backend.cocoa.views
: send-mouse-moved ( view event -- )
@ -183,29 +182,6 @@ CONSTANT: selector>action H{
] when
] ;
METHOD: void refreshAllAction [
[ refresh-all ] \ refresh-all call-listener
] ;
METHOD: void autoUseAction [
[ com-auto-use ] \ com-auto-use call-listener
] ;
METHOD: Class makeTouchBar [ default-touchbar self make-touchbar ] ;
METHOD: Class touchBar: Class touchbar makeItemForIdentifier: Class string [
string CF>string
{
{ "refresh-all-action" [
self "refresh-all-action" "refresh-all" "refreshAllAction" make-NSTouchBar-button
] }
{ "auto-use-action" [
self "auto-use-action" "auto-use" "autoUseAction" make-NSTouchBar-button
] }
[ drop f ]
} case
] ;
! Rendering
METHOD: void drawRect: NSRect rect [ self window [ draw-world ] when* ] ;