I'm trying to have my display work with my Global SCREEN, that when I change SCREEN's value it changes what is displayed but it won't work, I'm sure its something stupid... please help.
; ----------------------------------------------------------------------------- ; Event Constants ; ----------------------------------------------------------------------------- Const EVENT_None = $0 ; No event (eg. a WaitEvent timeout) Const EVENT_KeyDown = $101 ; Key pressed Const EVENT_KeyUp = $102 ; Key released Const EVENT_ASCII = $103 ; ASCII key pressed Const EVENT_MouseDown = $201 ; Mouse button pressed Const EVENT_MouseUp = $202 ; Mouse button released Const EVENT_MouseMove = $203 ; Mouse moved Const EVENT_Gadget = $401 ; Gadget clicked Const EVENT_Move = $801 ; Window moved Const EVENT_Size = $802 ; Window resized Const EVENT_Close = $803 ; Window closed Const EVENT_Front = $804 ; Window brought to front Const EVENT_Menu = $1001 ; Menu item selected Const EVENT_LostFocus = $2001 ; App lost focus Const EVENT_GotFocus = $2002 ; App got focus Const EVENT_Timer = $4001 ; Timer event occurred ; ----------------------------------------------------------------------------- ; Globals ; ----------------------------------------------------------------------------- Global SCREEN = 1 ;( 0 Nothing, 1 First Screen...) ; ----------------------------------------------------------------------------- ; Create Window ; ----------------------------------------------------------------------------- WIN = CreateWindow("Game - Patcher", 100, 100, 400, 465, window, 1) ; ----------------------------------------------------------------------------- ; Create Window & Layout ; ----------------------------------------------------------------------------- Repeat ;-------------------------------------------------------------------------- ; Wait for an event from the user. ;-------------------------------------------------------------------------- Select WaitEvent() Case EVENT_Close End End Select ;-------------------------------------------------------------------------- ; Keeps track of what your viewing depending on your actions ;-------------------------------------------------------------------------- Select SCREEN Case 1 TAB = CreateTabber(5,5,380,350,WIN) InsertGadgetItem(TAB,0,"Game News",0) InsertGadgetItem(TAB,1," List ",1) SCREEN = 0 Case 2 End Select Until (KeyHit(1)) End