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

Contrib fixes

slava 2006-10-14 20:14:55 +00:00
parent d85c285046
commit 9ed810a4c6
4 changed files with 22 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
contrib/action-field.factor
View File

@ -1,8 +1,24 @@
USING: kernel models namespaces math sequences arrays hashtables gadgets
gadgets-text gadgets-buttons ;
USING: kernel models namespaces math sequences arrays hashtables
gadgets gadgets-text gadgets-buttons generic ;
IN: action-field
TUPLE: field model ;
C: field ( model -- field )
<editor> over set-delegate
[ set-field-model ] keep
dup dup set-control-self ;
: field-commit ( field -- string )
[ editor-text ] keep
[ field-model [ dupd set-model ] when* ] keep
select-all ;
field "Field commands" {
{ "Clear input" T{ key-down f { C+ } "k" } [ control-model clear-doc ] }
{ "Accept input" T{ key-down f f "RETURN" } [ field-commit drop ] }
} define-commands
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
TUPLE: action-field quot ;

2
contrib/all.factor
View File

@ -4,7 +4,7 @@ REQUIRES: contrib/action-field contrib/alien contrib/automata
contrib/benchmarks contrib/boids contrib/cairo contrib/calendar
contrib/concurrency contrib/coroutines contrib/crypto
contrib/dlists contrib/emacs contrib/embedded contrib/furnace
contrib/furance-pastebin contrib/gap-buffer contrib/hexdump
contrib/furnace-pastebin contrib/gap-buffer contrib/hexdump
contrib/http contrib/httpd contrib/http-client contrib/jedit
contrib/jni contrib/json contrib/lambda contrib/lazy-lists
contrib/lindenmayer contrib/match contrib/math

2
contrib/gap-buffer/circular.factor
View File

@ -5,7 +5,7 @@ IN: circular
! element in the underlying sequence.
TUPLE: circular start ;
C: circular ( seq circular -- circular )
C: circular ( seq -- circular )
0 over set-circular-start [ set-delegate ] keep ;
: circular@ ( n circular -- n seq )

2
contrib/gap-buffer/gap-buffer.factor
View File

@ -19,7 +19,7 @@ TUPLE: gb
: required-space ( n gb -- n )
tuck gb-expand-factor * ceiling >fixnum swap gb-min-size max ;
C: gb ( seq gb -- gb )
C: gb ( seq -- gb )
5 over set-gb-min-size
1.5 over set-gb-expand-factor
[ >r length r> set-gb-gap-start ] 2keep