| 
									
										
										
										
											2009-04-07 22:32:45 -04:00
										 |  |  | ! Copyright (C) 2006, 2009 Slava Pestov. | 
					
						
							| 
									
										
										
										
											2007-09-20 18:09:08 -04:00
										 |  |  | ! See http://factorcode.org/license.txt for BSD license. | 
					
						
							| 
									
										
										
										
											2009-04-07 22:32:45 -04:00
										 |  |  | USING: kernel namespaces opengl opengl.gl fry ;
 | 
					
						
							| 
									
										
										
										
											2007-09-20 18:09:08 -04:00
										 |  |  | IN: ui.backend | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | SYMBOL: ui-backend | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | HOOK: set-title ui-backend ( string world -- )
 | 
					
						
							|  |  |  | 
 | 
					
						
							| 
									
										
										
										
											2009-05-13 23:28:33 -04:00
										 |  |  | HOOK: (set-fullscreen) ui-backend ( world ? -- )
 | 
					
						
							| 
									
										
										
										
											2008-02-09 03:17:24 -05:00
										 |  |  | 
 | 
					
						
							| 
									
										
										
										
											2009-05-13 23:28:33 -04:00
										 |  |  | HOOK: (fullscreen?) ui-backend ( world -- ? )
 | 
					
						
							| 
									
										
										
										
											2008-02-09 03:17:24 -05:00
										 |  |  | 
 | 
					
						
							| 
									
										
										
										
											2007-11-22 01:40:17 -05:00
										 |  |  | HOOK: (open-window) ui-backend ( world -- )
 | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | HOOK: (close-window) ui-backend ( handle -- )
 | 
					
						
							| 
									
										
										
										
											2007-09-20 18:09:08 -04:00
										 |  |  | 
 | 
					
						
							| 
									
										
										
										
											2008-12-08 22:30:10 -05:00
										 |  |  | HOOK: (open-offscreen-buffer) ui-backend ( world -- )
 | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | HOOK: (close-offscreen-buffer) ui-backend ( handle -- )
 | 
					
						
							|  |  |  | 
 | 
					
						
							| 
									
										
										
										
											2008-02-21 00:13:31 -05:00
										 |  |  | HOOK: raise-window* ui-backend ( world -- )
 | 
					
						
							| 
									
										
										
										
											2007-09-20 18:09:08 -04:00
										 |  |  | 
 | 
					
						
							| 
									
										
										
										
											2008-12-08 22:30:10 -05:00
										 |  |  | GENERIC: select-gl-context ( handle -- )
 | 
					
						
							| 
									
										
										
										
											2007-09-20 18:09:08 -04:00
										 |  |  | 
 | 
					
						
							| 
									
										
										
										
											2008-12-08 22:30:10 -05:00
										 |  |  | GENERIC: flush-gl-context ( handle -- )
 | 
					
						
							| 
									
										
										
										
											2007-09-20 18:09:08 -04:00
										 |  |  | 
 | 
					
						
							| 
									
										
										
										
											2008-12-10 09:49:50 -05:00
										 |  |  | HOOK: offscreen-pixels ui-backend ( world -- alien w h )
 | 
					
						
							| 
									
										
										
										
											2008-12-09 13:07:57 -05:00
										 |  |  | 
 | 
					
						
							| 
									
										
										
										
											2009-05-08 16:07:15 -04:00
										 |  |  | HOOK: (with-ui) ui-backend ( quot -- )
 | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | HOOK: (grab-input) ui-backend ( handle -- )
 | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | HOOK: (ungrab-input) ui-backend ( handle -- )
 |