Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations SkipVought on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

TAB/Mouse click initiates proc from Dialog box.

Status
Not open for further replies.
May 5, 2004
3
0
0
US
I am having trouble with my menu kicking off the subproc before I have entered all the variables. When in Procomm itself, (not the editor test) the tab key or a mouse click will "OK" the script before I can input all the variables. I probably have some extra stuff in here because I copied half and rewrote the other half. Need some help. Might be with the while functions, not sure...

----------------------------------------------------------
proc VerifyMMF
Integer Event
Integer Loop = 0
String MMF1
String MMF2
String MMF3
String MMF4
String MMF5
String MMF6
String MMF7
String MMF8
String MMF9



dialogbox 0 23 28 188 177 3 "Verify MMF"
editbox 20 11 33 86 12 MMF1 10
editbox 21 11 48 86 12 MMF2 10
editbox 22 11 64 86 12 MMF3 10
editbox 23 11 79 86 12 MMF4 10
editbox 24 11 95 86 12 MMF5 10
editbox 25 11 110 86 12 MMF6 10
editbox 26 11 125 86 12 MMF7 10
editbox 27 11 141 86 12 MMF8 10
editbox 28 11 156 86 12 MMF9 10
text 7 14 23 70 21 "Enter MMF's to verify" left
pushbutton 12 129 9 40 22 "RUN" OK
pushbutton 14 129 36 40 22 "Cancel" CANCEL
enddialog




while 6 ;Main Menu While
dlgevent 0 Event ; Read dialog event.
switch Event ; Evaluate dialog event.
case 0 ; No event occurred.
endcase
case 1
endcase
case 2
endcase
case 3
endcase
case 4
endcase
case 6
dlgdestroy 0 CANCEL ; Destroy dialog box.
call mainmenu
endcase
default ; Exit event selected.
exitwhile ; Exit the loop.
endcase
endswitch
endwhile ;end Main Menu while
dlgdestroy 0 CANCEL ; Destroy dialog box.

if not nullstr MMF1


; dial telnet "AK Speech Server"
; waitfor "login:"
; transmit "^M"
; waitfor "Password:"
; transmit "^M"

call vfymmf WITH MMF1, MMF2, MMF3, MMF4, MMF5, MMF6, MMF7, MMF8, MMF9
else
usermsg "You Must Enter an MMF to verify"
endif

endproc
 
nevermind, fixed it.

integer Choice = 2
integer Loops = 0
integer Done = 0
integer Event ; Dialog box event.
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top