Fix up images.viewer
							parent
							
								
									bfc7b3ce8f
								
							
						
					
					
						commit
						cdfab25bb1
					
				| 
						 | 
				
			
			@ -16,7 +16,7 @@ M: image-gadget pref-dim*
 | 
			
		|||
    [ bitmap>> ] bi glDrawPixels ;
 | 
			
		||||
 | 
			
		||||
M: image-gadget draw-gadget* ( gadget -- )
 | 
			
		||||
    origin get [ image>> draw-image ] with-translation ;
 | 
			
		||||
    image>> draw-image ;
 | 
			
		||||
 | 
			
		||||
: <image-gadget> ( image -- gadget )
 | 
			
		||||
    \ image-gadget new-gadget
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue