Remove 'grid-add*'
							parent
							
								
									2066adcfec
								
							
						
					
					
						commit
						2291c2d18a
					
				| 
						 | 
				
			
			@ -20,11 +20,6 @@ grid
 | 
			
		|||
 | 
			
		||||
: grid-child ( grid i j -- gadget ) rot grid>> nth nth ;
 | 
			
		||||
 | 
			
		||||
: grid-add* ( grid child i j -- grid )
 | 
			
		||||
  >r >r dupd swap r> r>
 | 
			
		||||
  >r >r 2dup swap add-gadget drop r> r>
 | 
			
		||||
  3dup grid-child unparent rot grid>> nth set-nth ;
 | 
			
		||||
 | 
			
		||||
: grid-add ( grid child i j -- grid )
 | 
			
		||||
  >r >r dupd swap r> r>
 | 
			
		||||
  >r >r 2dup swap add-gadget drop r> r>
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue