OpenEuphoria

EditText Bug?

• Posted by Andy Feb 10, 2009
• 1344 views

Hey Guys,

I seem to have a bug or something. It won't let me input text in an editbox, even though there dosen't seem to be anything from preventing it from doing that. I'll post my code to see if anyone can see why?

constant MainWin = createEx(Window,"Frost Editor - DarkScar Games",0,Default,Default,640,480,0,0), 
NPWin = createEx(Window,"New Project Settings",MainWin,0,0,640,480,{WS_CHILD,WS_CLIPSIBLINGS,WS_OVERLAPPEDWINDOW},0), 
EDWin = createEx(Window,"Edit Project",MainWin,0,0,640,480,{WS_CHILD,WS_CLIPSIBLINGS,WS_OVERLAPPEDWINDOW},0), 
TPWin = createEx(Window,"",0,Default,Default,640,480,0,0), 
MUWin = createEx(Window,"Music Player",0,Default,Default,640,480,0,0), 
DAWin = createEx(Window,"Drawing Editor",0,Default,Default,640,480,0,0), 
COWin = createEx(Window,"Coding Editor",0,Default,Default,640,480,0,0), 
MAWin = createEx(Window,"Map Editor",0,Default,Default,640,480,0,0), 
ANWin = createEx(Window,"Animation Editor",0,Default,Default,640,480,0,0), 
EVWin = createEx(Window,"Event Editor",MainWin,0,0,640,480,{WS_CHILD, WS_CLIPSIBLINGS,WS_OVERLAPPEDWINDOW},0), 
EVWin2 = createEx(Window,"Event List",MainWin,0,0,640,480,{WS_CHILD, WS_CLIPSIBLINGS,WS_OVERLAPPEDWINDOW},0), 
EVWin3 = createEx(Window,"Event Settings",MainWin,0,0,640,480,{WS_CHILD, WS_CLIPSIBLINGS,WS_OVERLAPPEDWINDOW},0), 
OPWin = createEx(Window,"Frost Options",MainWin,0,0,640,480,{WS_CHILD, WS_CLIPSIBLINGS,WS_OVERLAPPEDWINDOW},0), 
OPWin2 = createEx(Window,"Map Options",MAWin,0,0,640,480,{WS_CHILD, WS_CLIPSIBLINGS,WS_OVERLAPPEDWINDOW},0), 
LVWin = createEx(Window,"Level Up System",EDWin,0,0,640,480,{WS_CHILD, WS_CLIPSIBLINGS,WS_OVERLAPPEDWINDOW},0), 
MainStatus = createEx(StatusBar,"RPG Development Kit",MainWin,0,0,0,0,0,0), 
MusicStatus = createEx(StatusBar,"",MUWin,0,0,0,0,0,0), 
DrawStatus = createEx(StatusBar,"",DAWin,0,0,0,0,0,0), 
CodeStatus = createEx(StatusBar,"",COWin,0,0,0,0,0,0), 
MapStatus = createEx(StatusBar,"",MAWin,0,0,0,0,0,0), 
AniStatus = createEx(StatusBar,"",ANWin,0,0,0,0,0,0), 
EveStatus = createEx(StatusBar,"",EVWin,0,0,0,0,0,0), 
CodeText = createEx(RichEdit,"",COWin,Default,Default,640,480,0,0) 
 
constant Tabber = createEx(TabControl,"",OPWin,10,30,530,430,0,0), 
Tab_Frost = createEx(TabItem,"Frost Options",Tabber,0,0,0,0,0,0), 
Tab_Game = createEx(TabItem,"Game Options",Tabber,0,0,0,0,0,0), 
Tab_Day = createEx(TabItem,"Day&&Night",Tabber,0,0,0,0,0,0), 
Tab_FC = createEx(TabItem,"Frost Code",Tabber,0,0,0,0,0,0), 
Tab_Multi = createEx(TabItem,"Multitasking",Tabber,0,0,0,0,0,0), 
Tab_Plug = createEx(TabItem,"Plugins",Tabber,0,0,0,0,0,0) 
 
constant Bit_8_Rad = createEx(Radio,"8-Bit",Tab_Game,10,30,80,20,0,0), 
Bit_16_Rad = createEx(Radio,"16-Bit",Tab_Game,10,60,80,20,0,0), 
Bit_24_Rad = createEx(Radio,"24-Bit",Tab_Game,10,90,80,20,0,0), 
Bit_32_Rad = createEx(Radio,"32-Bit",Tab_Game,10,120,80,20,0,0) 
 
constant Full_Screen_Check = createEx(CheckBox,"Full Screen",Tab_Game,10,150,80,20,0,0), 
Windowed_Check = createEx(CheckBox,"Windowed",Tab_Game,10,180,80,20,0,0), 
Custom_Check = createEx(CheckBox,"Custom",Tab_Game,10,210,80,20,0,0) 
 
constant X_Text = createEx(LText,"X:",Tab_Game,10,240,30,20,0,0), 
X_Edit = createEx(EditText,"",Tab_Game,40,240,40,22,0,0), 
Y_Text = createEx(LText,"Y:",Tab_Game,90,240,30,20,0,0), 
Y_Edit = createEx(EditText,"",Tab_Game,120,240,40,22,0,0) 
 
integer FullScreenChecked, 
FullScreenNotChecked, 
WindowedChecked, 
WindowedNotChecked, 
CustomChecked, 
CustomNotChecked 
 
FullScreenChecked = 0 
FullScreenNotChecked = 1 
WindowedChecked = 0 
WindowedNotChecked = 1 
CustomChecked = 0 
CustomNotChecked = 1 
 
setEnable(X_Edit,w32False) 
setEnable(Y_Edit,w32False) 
 
 
procedure Full_Screen_Checks(integer self, integer event, sequence parm) 
	if FullScreenNotChecked = isChecked(Full_Screen_Check) then 
		setEnable(Windowed_Check,w32False) 
		setEnable(Custom_Check,w32False) 
	elsif FullScreenChecked = isChecked(Full_Screen_Check) then 
		setEnable(Windowed_Check,w32True) 
		setEnable(Custom_Check,w32True) 
	end if 
end procedure 
setHandler(Full_Screen_Check,w32HClick,routine_id("Full_Screen_Checks")) 
 
procedure Windowed_Checks(integer self, integer event, sequence parm) 
	if WindowedNotChecked = isChecked(Windowed_Check) then 
		setEnable(Full_Screen_Check,w32False) 
		setEnable(Custom_Check,w32False) 
	elsif WindowedChecked = isChecked(Windowed_Check) then 
		setEnable(Full_Screen_Check,w32True) 
		setEnable(Custom_Check,w32True) 
	end if 
end procedure 
setHandler(Windowed_Check,w32HClick,routine_id("Windowed_Checks")) 
 
procedure Custom_Checks(integer self, integer event, sequence parm) 
	if CustomNotChecked = isChecked(Custom_Check) then 
		setEnable(Full_Screen_Check,w32False) 
		setEnable(Windowed_Check,w32False) 
		setEnable(X_Edit,w32True) 
		setEnable(Y_Edit,w32True) 
	elsif CustomChecked = isChecked(Custom_Check) then 
		setEnable(Full_Screen_Check,w32True) 
		setEnable(Windowed_Check,w32True) 
		setEnable(X_Edit,w32False) 
		setEnable(Y_Edit,w32False) 
	end if 
end procedure 
setHandler(Custom_Check,w32HClick,routine_id("Custom_Checks")) 

I probably posted more code than was needed, but hopefuly someone will be able to see why.