DC,
I am afraid I can not help you with that little information. Sorry.
Regards,
Ignacio Ortiz de Zúñiga
[Equipo de Xailer / Xailer team]
http://www.xailer.com
http://www.xailer.info
http://www.xailer.com/forum
http://www.xailer.com/dokuwiki
"DC" escribió en el mensaje de noticias:4ce98bbb$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
Hi Ignacio,
Sorry for the loooong delay, had to take care of other priorities for
the second half of the year.
This is a simple debugger for a third-party tool.
There's no point in uploading the whole project, because it requires
some setup from an external application.
Below are some code snippets from the project. Let me know if there's
any other information needed, thanks.
After inputting a command in the edtOtherCommands textbox, when you
press <Enter> it does nothing. If you press tab, then it will move to
the btnOtherCommands button as desired, where you can press <Enter>. Or
you can use the hotkey to click the btnOtherCommands.
The problem is, to be able to press <Enter> after typing a command in
edtOtherCommands, and for it to automatically jump to the
btnOtherCommands. The two components are immediately adjacent, on the form.
(I'll share all of this with the Xailer community, when it's complete):
....
COMPONENT edtOtherCommands
COMPONENT btnOtherCommands
COMPONENT edtCurrentRule
COMPONENT edtIncludePaths
....
The OnEnter event method for edtOtherCommands is
METHOD ClickOtherButton( oSender, oPrevCtl ) CLASS frmDebuggerMain
// Support for typing commands not covered by the basic debugger form.
::btnOtherCommands:Click()
RETURN Nil
The OnClick event for btnOtherCommands is
METHOD ExecuteOtherCommand( oSender ) CLASS frmDebuggerMain
Local aLines := {}
Local sLine := ""
Local sLines := ""
Local nthLine := 0
Local nLineCounter := 0
Local sCommand := AllTrim( ::edtOtherCommands:Value )
If sCommand == "stop"
// For use in development
// Breakpoint in Xailer IDE here
sCommand := sCommand
Endif
oStdIn:WriteLine( sCommand )
sLines := ReadUntilDebuggerString(oStdErr, Self)
::memOtherOutput:Value := sLines
RETURN Nil