ui.images: load images.gdiplus as default image handler on windows
							parent
							
								
									509f100806
								
							
						
					
					
						commit
						8816b1e215
					
				| 
						 | 
					@ -7,14 +7,14 @@ FROM: images => ARGB ;
 | 
				
			||||||
IN: images.gdiplus
 | 
					IN: images.gdiplus
 | 
				
			||||||
 | 
					
 | 
				
			||||||
SINGLETON: gdi+-image
 | 
					SINGLETON: gdi+-image
 | 
				
			||||||
! "png" gdi+-image register-image-class
 | 
					"png" gdi+-image register-image-class
 | 
				
			||||||
! "tif" gdi+-image register-image-class
 | 
					"tif" gdi+-image register-image-class
 | 
				
			||||||
! "tiff" gdi+-image register-image-class
 | 
					"tiff" gdi+-image register-image-class
 | 
				
			||||||
! "gif" gdi+-image register-image-class
 | 
					"gif" gdi+-image register-image-class
 | 
				
			||||||
! "jpg" gdi+-image register-image-class
 | 
					"jpg" gdi+-image register-image-class
 | 
				
			||||||
! "jpeg" gdi+-image register-image-class
 | 
					"jpeg" gdi+-image register-image-class
 | 
				
			||||||
! "bmp" gdi+-image register-image-class
 | 
					"bmp" gdi+-image register-image-class
 | 
				
			||||||
! "ico" gdi+-image register-image-class
 | 
					"ico" gdi+-image register-image-class
 | 
				
			||||||
 | 
					
 | 
				
			||||||
<PRIVATE
 | 
					<PRIVATE
 | 
				
			||||||
: <GpRect> ( x y w h -- rect )
 | 
					: <GpRect> ( x y w h -- rect )
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
| 
						 | 
					@ -33,9 +33,8 @@ PRIVATE>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
<<
 | 
					<<
 | 
				
			||||||
{
 | 
					{
 | 
				
			||||||
    { [ os macosx? ] [
 | 
					    { [ os macosx? ] [ "images.cocoa"   require ] }
 | 
				
			||||||
        "images.cocoa" require
 | 
					    { [ os winnt?  ] [ "images.gdiplus" require ] }
 | 
				
			||||||
    ] }
 | 
					 | 
				
			||||||
    [
 | 
					    [
 | 
				
			||||||
        "images.png" require
 | 
					        "images.png" require
 | 
				
			||||||
        "images.tiff" require
 | 
					        "images.tiff" require
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Loading…
	
		Reference in New Issue