Update hello-world.scm.
This commit is contained in:
		
							parent
							
								
									7146e4176a
								
							
						
					
					
						commit
						78aef417bd
					
				| 
						 | 
				
			
			@ -5,5 +5,7 @@
 | 
			
		|||
(gtk-init (command-line-args))
 | 
			
		||||
(define window (gtk-window-new 'gtk-window-toplevel))
 | 
			
		||||
(gtk-window-set-title window "Hello, World!")
 | 
			
		||||
(define callback (lambda args (gtk-main-quit)))
 | 
			
		||||
(g-signal-connect window "destroy" callback)
 | 
			
		||||
(gtk-widget-show-all window)
 | 
			
		||||
(gtk-main)
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue