Fix from Sam
parent
35bd6202ef
commit
1306649c59
|
@ -83,7 +83,7 @@ HELP: filter
|
||||||
{ $examples
|
{ $examples
|
||||||
"The following code displays a label showing the result of applying " { $link sq } " to the value 5:"
|
"The following code displays a label showing the result of applying " { $link sq } " to the value 5:"
|
||||||
{ $code
|
{ $code
|
||||||
"USING: models gadgets-labels gadgets-panes ;"
|
"USING: models ui.gadgets.labels ui.gadgets.panes ;"
|
||||||
"5 <model> [ sq ] <filter> [ number>string ] <filter>"
|
"5 <model> [ sq ] <filter> [ number>string ] <filter>"
|
||||||
"<label-control> gadget."
|
"<label-control> gadget."
|
||||||
}
|
}
|
||||||
|
@ -142,7 +142,7 @@ HELP: delay
|
||||||
{ $examples
|
{ $examples
|
||||||
"The following code displays a sliders and a label which is updated half a second after the slider stops changing:"
|
"The following code displays a sliders and a label which is updated half a second after the slider stops changing:"
|
||||||
{ $code
|
{ $code
|
||||||
"USING: models gadgets-labels gadgets-sliders gadgets-panes ;"
|
"USING: models ui.gadgets.labels ui.gadgets.sliders ui.gadgets.panes ;"
|
||||||
": <funny-slider>"
|
": <funny-slider>"
|
||||||
" 0 0 0 100 <range> <x-slider> 500 over set-slider-max ;"
|
" 0 0 0 100 <range> <x-slider> 500 over set-slider-max ;"
|
||||||
"<funny-slider> dup gadget."
|
"<funny-slider> dup gadget."
|
||||||
|
|
Loading…
Reference in New Issue