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

View File

@ -2,13 +2,12 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors alien alien.c-types alien.data alien.strings USING: accessors alien alien.c-types alien.data alien.strings
arrays assocs cocoa cocoa.application cocoa.classes arrays assocs cocoa cocoa.application cocoa.classes
cocoa.pasteboard cocoa.runtime cocoa.subclassing cocoa.touchbar cocoa.pasteboard cocoa.runtime cocoa.subclassing cocoa.types
cocoa.types cocoa.views combinators core-foundation.strings cocoa.views combinators core-foundation.strings core-graphics
core-graphics core-graphics.types core-text io.encodings.utf8 core-graphics.types core-text io.encodings.utf8 kernel literals
kernel literals locals math math.rectangles namespaces opengl locals math math.rectangles namespaces opengl sequences threads
sequences threads ui.gadgets ui.gadgets.private ui.gadgets ui.gadgets.private ui.gadgets.worlds ui.gestures
ui.gadgets.worlds ui.gestures ui.private ui.tools.listener ui.private ;
vocabs.refresh ;
IN: ui.backend.cocoa.views IN: ui.backend.cocoa.views
: send-mouse-moved ( view event -- ) : send-mouse-moved ( view event -- )
@ -183,29 +182,6 @@ CONSTANT: selector>action H{
] when ] 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 ! Rendering
METHOD: void drawRect: NSRect rect [ self window [ draw-world ] when* ] ; METHOD: void drawRect: NSRect rect [ self window [ draw-world ] when* ] ;