| The attached file LSE$EDIT.COM fixes the "hide this dialog" box problem
that existed in LSE V2.3. There was a missing hyphen on the end of a
boolean expression that caused this problem.
The file is VUE$LIBRARY:LSE$EDIT.COM. Doing a diffence should show
only the hyphen change and the edit history explaining the change.
$ !
$ ! COPYRIGHT � 1988, 1989 BY
$ ! DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS
$ ! ALL RIGHTS RESERVED
$ !
$ ! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
$ ! ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE
$ ! INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER
$ ! COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
$ ! OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY
$ ! TRANSFERRED.
$ !
$ ! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
$ ! AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
$ ! CORPORATION.
$ !
$ ! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
$ ! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
$
$ !++
$ ! FACILITY:
$ ! Language Sensitive Editor (VAXLSE)
$ !
$ ! ABSTRACT:
$ ! This is the command file VUE uses to invoke LSE.
$ !
$ ! ENVIRONMENT:
$ ! VAX/VMS with DECwindows
$ !
$ ! AUTHORS:
$ ! Duane A. Smith
$ ! Adopted from August G. Reinig (VAXTPU) on 13-Sep-1988
$ !
$ !
$ ! CREATION DATE:
$ ! 13-SEP-88
$ !
$ ! MODIFIED BY:
$ !
$ ! V01-003 Duane A. Smith 02-JUN-1989
$ ! Added missing hyphen in two line expression.
$ !
$ ! V01-002 Duane A. Smith 06-APR-1988
$ ! Incorporated new development from VAXTPU.
$ !
$ ! V01-001 Duane A. Smith 13-SEP-1988
$ ! Initial development from VAXTPU.
$ !
$ !
$ !
$
$
$ on error then exit
$
$ !
$ ! Get the default application name
$ !
$ if P1 .eqs. "" then P1 = "LSE"
$
$ !
$ ! Get the input file. We invoke LSE once for each selected file
$ !
$ vue$get_selection_count
$ vue$read lse$selection_count
$
$ edit_loop:
$ lse$input_file = ""
$
$ !
$ ! If there are no selected files, we start up LSE without an input file.
$ ! Otherwise, we exit when we run out of file.
$ !
$ if lse$selection_count .ne. 0
$ then
$ vue$get_next_selection
$ vue$read lse$input_file
$ if lse$input_file .eqs. "" then exit
$ endif
$
$ !
$ ! Get information about the previous invocations of LSE
$ !
$ vue$get_symbol vue$show_hidden_dialogs
$ vue$read vue$show_hidden_dialogs
$
$ write vue$output "VUE$C_READ_PROFILE LSE$EDIT_''P1'_HIDE_DIALOG"
$ vue$read lse$fetched_hide_dialog
$ lse$hide_dialog = lse$fetched_hide_dialog
$
$ write vue$output "VUE$C_READ_PROFILE LSE$EDIT_''P1'_QUALIFIERS"
$ vue$read lse$fetched_qualifiers
$ lse$qualifiers = lse$fetched_qualifiers
$
$ !
$ ! See if we have to display the VAXLSE qualifier dialog box to get the
$ ! qualifiers to use. If we do, save them away for the next we run.
$ !
$ if (lse$fetched_hide_dialog .nes. "TRUE") -
.or. (vue$show_hidden_dialogs .eqs. "TRUE")
$ then
$ lse$cancel = "FALSE"
$ run vue$library:lse$edit_qualifiers
$ if lse$cancel .eqs. "TRUE" then exit
$
$ if lse$hide_dialog .nes. lse$fetched_hide_dialog
$ then
$ write vue$output "VUE$C_WRITE_PROFILE LSE$EDIT_''P1'_HIDE_DIALOG ''LSE$HIDE_DIALOG'"
$ endif
$ if lse$qualifiers .nes. lse$fetched_qualifiers
$ then
$ write vue$output "VUE$C_WRITE_PROFILE LSE$EDIT_''P1'_QUALIFIERS ''lse$qualifiers'"
$ endif
$ endif
$
$ !
$ ! Start up LSE
$ !
$ lsedit 'lse$qualifiers 'lse$input_file
$
$ !
$ ! Go for the next file but only if we have selected files. If no
$ ! files are selection, we invoke LSE only once.
$ !
$ if lse$selection_count .eq. 0 then exit
$ goto edit_loop
|