Reflection transfers in Quick

[Stanton, Ken]

One way of making a single mouse click transfer in Reflection while in Quick
is this:

1)	In the Reflection file transfer setup, remove the "RUN VAXLINK" from
the startup command.
2)	Create a custom button on the tool bar that runs a script.  The
script can be generated using the Record feature of Reflection.
3)	Have the script enter a command that runs a design procedure that
executes the "RUN VAXLINK" (or the HP equivalent).
4)	Then either have the script automatically transfer the file, or have
the user complete the dialog box.
5)	I have tested this.  It took me 5 minutes to generate this code and
have it work.  There is only one major weakness in this setup.  PowerHouse
does not have global design procedures, so the user would have to be at the
right screen for the button to work.  Anyone know a good work-around for
this?

Here is the Qdesign code:

screen foo menu

command "RUN VAXLINK2" label "Set Up for Transfer" NOW REFRESH ALL

build

Here is the script generated from the Record button:

' Generated by the Reflection Script Recorder on 02-23-1999 08:57:18.90.
' Generated by Reflection for UNIX and Digital 6.00.
Option Explicit
Sub Main
	Const NEVER_TIME_OUT = 0

	Dim CR As String	' Chr$(rcCR) = Chr$(13) = Control-M
	Dim ESC As String	' Chr$(rcESC) = Chr$(27) = Control-[
	Dim CSI As String	' Chr$(rcCSI) = Chr$(155)

	CR = Chr$(rcCR)
	ESC = Chr$(rcESC)
	CSI = Chr$(rcCSI)

	With Application
		.Transmit "1" & CR

		.StatusBar = "Waiting for Prompt: (#@#@#@)"
		.WaitForString ESC & "[?3h(#@#@#@)", NEVER_TIME_OUT,
rcAllowKeystrokes
		.StatusBar = ""
		.WRQSendFile "c:\autoexec.bat", "autoexec.bat", rcASCII,
rcAskUser

		.StatusBar = "Waiting for Prompt: MODE:  ACTION:"
		.WaitForString "f" & CSI & ";15f", NEVER_TIME_OUT,
rcAllowKeystrokes + rcNoTranslation
		.StatusBar = ""
	End With
End Sub

= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Subscribe: "subscribe powerh-l" in message body to majordomo@lists.swau.edu
Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
powerh-l@lists.swau.edu is gatewayed one-way to bit.listserv.powerh-l
This list is closed, thus to post to the list, you must be a subscriber.