"c-type" word-prop members>> values ;
: enum>keys ( enum -- seq )
- "c-type" word-prop members>> keys [ name>> ] map ;
\ No newline at end of file
+ "c-type" word-prop members>> keys [ name>> ] map ;
self
action-string lookup-selector -> buttonWithTitle:target:action: :> button
item button -> setView:
- item ;
\ No newline at end of file
+ item ;
[ bi-curry ] swap call-n ; inline
MACRO: map-compose ( quots quot -- quot' )
- '[ _ compose ] map '[ _ ] ;
\ No newline at end of file
+ '[ _ compose ] map '[ _ ] ;
USE: prettyprint
USE: prettyprint.config
USE: environment
-os-envs [ . ] without-limits
\ No newline at end of file
+os-envs [ . ] without-limits
: call-effect-unsafe? ( quot effect -- ? ) 2drop t ; inline
-: execute-effect-unsafe? ( word effect -- ? ) 2drop t ; inline
\ No newline at end of file
+: execute-effect-unsafe? ( word effect -- ? ) 2drop t ; inline
IN: io.tests
USE: math
: foo ( -- x ) 2 2 + ;
-FORGET: foo
\ No newline at end of file
+FORGET: foo
: main ( -- ) [ L-system abop-5-angular "L-system" open-window ] with-ui ;
MAIN: main
-
\ No newline at end of file
+
: main ( -- ) [ L-system abop-5 "L-system" open-window ] with-ui ;
MAIN: main
-
\ No newline at end of file
+
: main ( -- ) [ L-system abop-6 "L-system" open-window ] with-ui ;
MAIN: main
-
\ No newline at end of file
+
: main ( -- ) [ L-system airhorse "L-system" open-window ] with-ui ;
MAIN: main
-
\ No newline at end of file
: main ( -- ) [ L-system tree-5 "L-system" open-window ] with-ui ;
MAIN: main
-
\ No newline at end of file
ARTICLE: "advice" "Advice"
"Advice is a simple way of adding additition functionality to words by adding 'hooks' to a word, which can act before, after, or around the calling of the word." ;
-ABOUT: "advice"
\ No newline at end of file
+ABOUT: "advice"
: main ( -- ) [ hadron-chamber ] with-ui ;
-MAIN: main
\ No newline at end of file
+MAIN: main
: main ( -- ) [ large ] with-ui ;
-MAIN: main
\ No newline at end of file
+MAIN: main
: main ( -- ) [ medium ] with-ui ;
-MAIN: main
\ No newline at end of file
+MAIN: main
: main ( -- ) [ original ] with-ui ;
-MAIN: main
\ No newline at end of file
+MAIN: main
: main ( -- ) [ quark-chamber ] with-ui ;
-MAIN: main
\ No newline at end of file
+MAIN: main
: main ( -- ) [ small ] with-ui ;
-MAIN: main
\ No newline at end of file
+MAIN: main
: main ( -- ) [ ten-hadrons ] with-ui ;
-MAIN: main
\ No newline at end of file
+MAIN: main
USE: fry
: cfdg-window. ( quot -- )
- '[ [ @ <cfdg-gadget> "CFDG" open-window ] with-scope ] with-ui ;
\ No newline at end of file
+ '[ [ @ <cfdg-gadget> "CFDG" open-window ] with-scope ] with-ui ;
: push-modelview-matrix ( -- )
get-modelview-matrix modelview-matrix-stack get push ;
-: pop-modelview-matrix ( -- ) modelview-matrix-stack get pop glLoadMatrixd ;
\ No newline at end of file
+: pop-modelview-matrix ( -- ) modelview-matrix-stack get pop glLoadMatrixd ;
: run ( -- ) [ init ] cfdg-window. ;
-MAIN: run
\ No newline at end of file
+MAIN: run
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-MAIN: run
\ No newline at end of file
+MAIN: run
: run ( -- ) [ init ] cfdg-window. ;
-MAIN: run
\ No newline at end of file
+MAIN: run
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-MAIN: run
\ No newline at end of file
+MAIN: run
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-: forever ( quot: ( -- ) -- ) [ call ] [ forever ] bi ; inline recursive
\ No newline at end of file
+: forever ( quot: ( -- ) -- ) [ call ] [ forever ] bi ; inline recursive
] [ 0 exit ] if*
] with-ui ;
-MAIN: drill
\ No newline at end of file
+MAIN: drill
] when*
] with-ui ;
-MAIN: drill
\ No newline at end of file
+MAIN: drill
"java/io/PrintStream" "env" get find-class ! jstr out class
"println" "(I)V" "env" get get-method-id ! jstr out id
rot "env" get call1 ;
-
\ No newline at end of file
+
: w-2* ( a b quot -- mapped ) 2 w-n* ; inline
: w-3* ( a b c quot -- mapped ) 3 w-n* ; inline
: w-4* ( a b c d quot -- mapped ) 4 w-n* ; inline
-;FUNCTOR
\ No newline at end of file
+;FUNCTOR
IN: modules.rpc-server
HELP: service
{ $syntax "IN: my-vocab service" }
-{ $description "Allows words defined in the vocabulary to be used as remote procedure calls by " { $link POSTPONE: USING*: } } ;
\ No newline at end of file
+{ $description "Allows words defined in the vocabulary to be used as remote procedure calls by " { $link POSTPONE: USING*: } } ;
"Send arglist"
"Send word as string"
"Receive result list"
-} ;
\ No newline at end of file
+} ;
: remote-load ( addr vocabspec -- voabspec ) [ swap
9012 <inet> binary [ "loader" serialize serialize flush deserialize ] with-client ] keep
- [ dictionary get-global set-at ] keep ;
\ No newline at end of file
+ [ dictionary get-global set-at ] keep ;
HELP: USING*:
{ $syntax "USING: rpc-server::module fetch-sever:module { module qualified-name } { module => word ... } { qualified-module } { module EXCEPT word ... } { module word => importname } ;" }
-{ $description "Adds vocabularies to the search path. Vocabularies can be loaded off a server or called as an rpc if preceded by a valid hostname. Bracketed pairs facilitate all types of qualified imports on both remote and local modules." } ;
\ No newline at end of file
+{ $description "Adds vocabularies to the search path. Vocabularies can be loaded off a server or called as an rpc if preceded by a valid hostname. Bracketed pairs facilitate all types of qualified imports on both remote and local modules." } ;
short = modspec => [[ use-vocab ignore ]]
wordSpec = long | short
using = wordSpec+ ";" => [[ drop ignore ]]
-;ON-BNF
\ No newline at end of file
+;ON-BNF
: (METHOD:) ( -- method def ) CREATE-METHOD parse-definition ;
-: METHOD: (METHOD:) define ; parsing
\ No newline at end of file
+: METHOD: (METHOD:) define ; parsing
HELP: factor
{ $values { "input" string } { "ast" "a sequence of tokens" } }
-{ $description "Tokenizer that acts like standard factor lexer, separating tokens by whitespace." } ;
\ No newline at end of file
+{ $description "Tokenizer that acts like standard factor lexer, separating tokens by whitespace." } ;
{ V{ "heavy" "duty" "testing" } } [
test3 heavy duty testing
-] unit-test
\ No newline at end of file
+] unit-test
ON-BNF: test3
tokenizer = <foreign factor>
expr= "heavy" "duty" "testing"
-;ON-BNF
\ No newline at end of file
+;ON-BNF
2merge 0 <basic> switch-models >>model
] with-interface "recipes" open-window ] with-ui ;
-MAIN: recipe-browser
\ No newline at end of file
+MAIN: recipe-browser
: go ( -- ) [ [ springies-window* 1000 sleep model ] with-scope ] with-ui ;
-MAIN: go
\ No newline at end of file
+MAIN: go
: go ( -- ) [ model ] go* ;
-MAIN: go
\ No newline at end of file
+MAIN: go
: go ( -- ) [ model ] go* ;
-MAIN: go
\ No newline at end of file
+MAIN: go
: go ( -- ) [ [ springies-window* 1000 sleep model ] with-scope ] with-ui ;
-MAIN: go
\ No newline at end of file
+MAIN: go
: go ( -- ) [ model ] go* ;
-MAIN: go
\ No newline at end of file
+MAIN: go
: go ( -- ) [ model ] go* ;
-MAIN: go
\ No newline at end of file
+MAIN: go
: go ( -- ) [ model ] go* ;
-MAIN: go
\ No newline at end of file
+MAIN: go
swap node-id >>node-b
swap node-id >>node-a
springs> swap suffix >springs
- drop ;
\ No newline at end of file
+ drop ;
} set-gestures
: <combobox> ( options -- combobox ) [ first [ combobox new-label ] keep <basic> >>model ] keep
- <basic> combo-table new-table [ 1array ] >>quot >>table ;
\ No newline at end of file
+ <basic> combo-table new-table [ 1array ] >>quot >>table ;
HELP: output-model
{ $values { "gadget" gadget } { "model" model } }
-{ $description "Returns the model a gadget uses for output. Often the same as " { $link model>> } } ;
\ No newline at end of file
+{ $description "Returns the model a gadget uses for output. Often the same as " { $link model>> } } ;
"For examples using normal layout, see the " { $vocab-link "sudokus" } " demo. "
"For examples of templating, see the " { $vocab-link "recipes" } " demo." ;
-ABOUT: "ui.gadgets.layout"
\ No newline at end of file
+ABOUT: "ui.gadgets.layout"
{ T{ key-down f f "a" } [ zoom-in drop ] }
{ T{ key-down f f "z" } [ zoom-out drop ] }
}
-set-gestures
\ No newline at end of file
+set-gestures
[ [ value>> [ <popped> ] map ] dip [ f track-add ] reduce request-focus ] bi ;
M: popped pref-dim* editor>> [ pref-dim* first ] [ line-height ] bi 2array ;
-M: popper focusable-child* children>> [ t ] [ first ] if-empty ;
\ No newline at end of file
+M: popper focusable-child* children>> [ t ] [ first ] if-empty ;