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

factor: SEL: to selector\ postpone: \foo

modern-harvey2
Doug Coleman 2017-08-26 15:09:29 -05:00
parent 4a2fffe2f3
commit 9fc62092a4
4 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/cocoa/cocoa.factor
View File

@ -16,7 +16,7 @@ SYNTAX: \send\ scan-token dup remember-send suffix! \ send suffix! ;
SYNTAX: \?send\ scan-token dup remember-send suffix! \ ?send suffix! ; SYNTAX: \?send\ scan-token dup remember-send suffix! \ ?send suffix! ;
SYNTAX: \SEL: SYNTAX: \selector\
scan-token scan-token
[ remember-send ] [ remember-send ]
[ <selector> suffix! \ cocoa.messages:selector suffix! ] bi ; [ <selector> suffix! \ cocoa.messages:selector suffix! ] bi ;

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

@ -166,13 +166,13 @@ CONSTANT: selector>action H{
METHOD: void prepareOpenGL [ METHOD: void prepareOpenGL [
self SEL: setWantsBestResolutionOpenGLSurface: self selector\ setWantsBestResolutionOpenGLSurface:
send\ respondsToSelector: c-bool> [ send\ respondsToSelector: c-bool> [
self SEL: setWantsBestResolutionOpenGLSurface: 1 self selector\ setWantsBestResolutionOpenGLSurface: 1
void f "objc_msgSend" { id SEL char } f alien-invoke void f "objc_msgSend" { id SEL char } f alien-invoke
self SEL: backingScaleFactor self selector\ backingScaleFactor
double f "objc_msgSend" { id SEL } f alien-invoke double f "objc_msgSend" { id SEL } f alien-invoke
dup 1.0 > [ dup 1.0 > [
@ -435,7 +435,7 @@ CONSTANT: selector>action H{
METHOD: void windowDidChangeBackingProperties: id notification METHOD: void windowDidChangeBackingProperties: id notification
[ [
notification send\ object dup SEL: backingScaleFactor notification send\ object dup selector\ backingScaleFactor
send\ respondsToSelector: c-bool> [ send\ respondsToSelector: c-bool> [
{ double { id SEL } } ?send\ backingScaleFactor { double { id SEL } } ?send\ backingScaleFactor

2
basis/ui/theme/switching/switching.factor
View File

@ -39,7 +39,7 @@ IN: ui.theme.switching
listener-word-style text-color foreground update-style listener-word-style text-color foreground update-style
! prettyprint.stylesheet ! prettyprint.stylesheet
{ postpone: USING: postpone: USE: postpone: IN: } { postpone: \USING: postpone: \USE: postpone: \IN: }
[ "word-style" word-prop [ dim-color foreground ] dip set-at ] each [ "word-style" word-prop [ dim-color foreground ] dip set-at ] each
base-word-style text-color foreground update-style base-word-style text-color foreground update-style
highlighted-word-style highlighted-word-color foreground update-style highlighted-word-style highlighted-word-color foreground update-style