| 
									
										
										
										
											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" |