2008-03-07 21:02:58 -05:00
|
|
|
USING: help.markup help.syntax kernel words ;
|
2008-04-01 17:51:48 -04:00
|
|
|
IN: classes.singleton
|
2008-03-05 22:35:08 -05:00
|
|
|
|
2008-04-02 17:32:34 -04:00
|
|
|
ARTICLE: "singletons" "Singleton classes"
|
2008-04-03 22:19:20 -04:00
|
|
|
"A singleton is a class with only one instance and with no state."
|
2008-04-02 17:32:34 -04:00
|
|
|
{ $subsection POSTPONE: SINGLETON: }
|
2008-12-17 19:10:01 -05:00
|
|
|
{ $subsection POSTPONE: SINGLETONS: }
|
2008-04-03 22:19:20 -04:00
|
|
|
{ $subsection define-singleton-class }
|
|
|
|
"The set of all singleton classes is itself a class:"
|
|
|
|
{ $subsection singleton-class? }
|
|
|
|
{ $subsection singleton-class } ;
|
2008-04-02 17:32:34 -04:00
|
|
|
|
|
|
|
HELP: define-singleton-class
|
|
|
|
{ $values { "word" "a new word" } }
|
|
|
|
{ $description
|
2008-04-03 22:19:20 -04:00
|
|
|
"Defines a singleton class. This is the run-time equivalent of " { $link POSTPONE: SINGLETON: } "." } ;
|
2008-04-02 17:32:34 -04:00
|
|
|
|
|
|
|
{ POSTPONE: SINGLETON: define-singleton-class } related-words
|
|
|
|
|
2008-04-03 22:19:20 -04:00
|
|
|
HELP: singleton-class
|
|
|
|
{ $class-description "The class of singleton classes." } ;
|
|
|
|
|
2008-04-02 17:32:34 -04:00
|
|
|
ABOUT: "singletons"
|