splashscreentest

Red [
	Needs: 'view
]

; Declaring the window
win: make face! [
	type: 'window text: "Red Splash screen By Arnold" offset: -500x0 size: 100x200
]

; -- Declare window pane
win/pane: reduce [
	make face! [
		type: 'base 
		offset: 1100x450
		size: 400x400
		image: load %Red_Language_Tower_Logo.png
		actors: object [
			on-down: func [face [object!] event [event!]][
				print "calling unview"
				unview/all
				; view another-window 
			]
		]
	]
]

view win