1 USING: help.syntax help.markup kernel math classes classes.tuple
\r
6 { $class-description "Range models implement the " { $link "range-model-protocol" } " with real numbers as the minimum, current, maximum, and page size. Range models are created with " { $link <range> } "." }
\r
7 { $notes { $link "ui.gadgets.sliders" } " use range models." } ;
\r
10 { $values { "value" real } { "page" real } { "min" real } { "max" real } { "step" real } { "range" range } }
\r
11 { $description "Creates a new " { $link range } " model." } ;
\r
14 { $values { "range" range } { "model" model } }
\r
15 { $description "Outputs a model holding a range model's current value." }
\r
16 { $notes "This word is not part of the " { $link "range-model-protocol" } ", and can only be used on direct instances of " { $link range } "." } ;
\r
19 { $values { "range" range } { "model" model } }
\r
20 { $description "Outputs a model holding a range model's minimum value." }
\r
21 { $notes "This word is not part of the " { $link "range-model-protocol" } ", and can only be used on direct instances of " { $link range } "." } ;
\r
24 { $values { "range" range } { "model" model } }
\r
25 { $description "Outputs a model holding a range model's maximum value." }
\r
26 { $notes "This word is not part of the " { $link "range-model-protocol" } ", and can only be used on direct instances of " { $link range } "." } ;
\r
29 { $values { "range" range } { "model" model } }
\r
30 { $description "Outputs a model holding a range model's page size." }
\r
31 { $notes "This word is not part of the " { $link "range-model-protocol" } ", and can only be used on direct instances of " { $link range } "." } ;
\r
34 { $values { "amount" real } { "range" range } }
\r
35 { $description "Adds a number to a range model's current value." }
\r
36 { $side-effects "range" } ;
\r
39 { $values { "amount" real } { "range" range } }
\r
40 { $description "Adds a multiple of the page size to a range model's current value." }
\r
41 { $side-effects "range" } ;
\r
43 ARTICLE: "models-range" "Range models"
\r
44 "Range models ensure their value is a real number within a fixed range."
\r
45 { $subsection range }
\r
46 { $subsection <range> }
\r
47 "Range models conform to a protocol for getting and setting the current value, as well as the endpoints of the range."
\r
48 { $subsection "range-model-protocol" } ;
\r
50 ARTICLE: "range-model-protocol" "Range model protocol"
\r
51 "The range model protocol is implemented by the " { $link range } " and " { $link compose } " classes. User-defined models may implement it too."
\r
52 { $subsection range-value }
\r
53 { $subsection range-page-value }
\r
54 { $subsection range-min-value }
\r
55 { $subsection range-max-value }
\r
56 { $subsection range-max-value* }
\r
57 { $subsection set-range-value }
\r
58 { $subsection set-range-page-value }
\r
59 { $subsection set-range-min-value }
\r
60 { $subsection set-range-max-value } ;
\r
62 ABOUT: "models-range"
\r