First button strange behaviour 2

[Echilon]

I have several macros which create a dialog, and I'm using the same structure for each one, just different text. The first button on each one is sending the text,l but the cursor's disappearing from the terminal until I click, whereas with all other buttons, the text is sent and the cursor blinks at the last line of text. Even if I change 'Case 1' to send just one letter, the cursor disappears.

My code is:


Sub Main

Dim System As Object
Dim Sess As Object
Set System = CreateObject("EXTRA.System")
Set Sess = System.ActiveSession
Begin Dialog UserDialog 23, 26, 86, 62, "New DACs"
ButtonGroup .AllButtons
PushButton 0, 0, 84, 18, "New DACs Required"
PushButton 0, 20, 84, 18, "Double DACs"
PushButton 0, 40, 84, 20, "B1 Unsuitable"
End Dialog

Dim optsdialog as UserDialog
ichoice = Dialog(optsdialog)

Select Case ichoice
Case 1
Sess.Screen.SendKeys("Some text")
Case 2
Sess.Screen.SendKeys("Some text")
Case 3
Sess.Screen.SendKeys("Some text")
End Select
End Sub



Regardless of the text I send, the first button always makes the cursor disappear, which makes me think there's a problem with the syntax somewhere. Thanks for any help.

 

[WinblowsME]

I don't see any problems with your code. When you select Tools -> Your Macro, the popup with the buttons becomes the top-most window. Therefore, your emulator loses focus, which is why the cursor is "disappearing."

Begin Dialog UserDialog 23, [COLOR=red]226[/color], 86, 62, "New DACs"

Consider using .PutString

Sess.Screen.PutString "A String", row_num, col_num

 

[Echilon]

PutString won't work because there's a dynamic amount of text on the screen. The second and subsequent buttons work straight from the quickpad, but the first one causes the cursor to lose focus.

 

[WinblowsME]

When you click the first button and the cursor disappears, does anything print to the terminal? Your code runs perfectly on my machine.

 

[Skie]

Have you tried using a MoveRelative to see if it brings back the cursor?

Sess.Screen.MoveRelative 0,0

 

[Echilon]

Thanks Skie, that worked perfectly. One less mouse click for me