11 lines
		
	
	
		
			390 B
		
	
	
	
		
			Factor
		
	
	
			
		
		
	
	
			11 lines
		
	
	
		
			390 B
		
	
	
	
		
			Factor
		
	
	
| USING: classes help.markup help.syntax sequences ui.gadgets ;
 | |
| IN: ui.tools.common
 | |
| 
 | |
| HELP: set-tool-dim
 | |
| { $values { "class" class } { "dim" sequence } }
 | |
| { $description "Sets the preferred dimensions for instances of the given tool gadget class." } ;
 | |
| 
 | |
| HELP: with-lines
 | |
| { $values { "track" gadget } }
 | |
| { $description "Lines are added to the track gadget to visually demarcate its children." } ;
 |