Fixes to v-checkbox
parent
585d977ed0
commit
65b1a62f6a
|
@ -3,7 +3,7 @@ strings math regexp regexp.backend ;
|
||||||
IN: validators
|
IN: validators
|
||||||
|
|
||||||
HELP: v-checkbox
|
HELP: v-checkbox
|
||||||
{ $values { "str" string } }
|
{ $values { "str" string } { "?" "a boolean" } }
|
||||||
{ $description "Converts the string value of a checkbox component (either \"on\" or \"off\") to a boolean value." } ;
|
{ $description "Converts the string value of a checkbox component (either \"on\" or \"off\") to a boolean value." } ;
|
||||||
|
|
||||||
HELP: v-captcha
|
HELP: v-captcha
|
||||||
|
|
|
@ -2,11 +2,11 @@
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: kernel continuations sequences math namespaces make sets
|
USING: kernel continuations sequences math namespaces make sets
|
||||||
math.parser math.ranges assocs regexp unicode.categories arrays
|
math.parser math.ranges assocs regexp unicode.categories arrays
|
||||||
hashtables words classes quotations xmode.catalog ;
|
hashtables words classes quotations xmode.catalog unicode.case ;
|
||||||
IN: validators
|
IN: validators
|
||||||
|
|
||||||
: v-checkbox ( str -- ? )
|
: v-checkbox ( str -- ? )
|
||||||
"on" = ;
|
>lower "on" = ;
|
||||||
|
|
||||||
: v-default ( str def -- str/def )
|
: v-default ( str def -- str/def )
|
||||||
over empty? spin ? ;
|
over empty? spin ? ;
|
||||||
|
|
Loading…
Reference in New Issue