[comp.os.vms] Correction to Swing and yet one more MODIFICATION

perkins@arc.CDN (Ernie Perkins) (09/09/87)

The following quick fix stops swing from blowing up as per problem with respect
to left/right arrow key as mentioned earlier in INFO-VAX A quick fix to remove
directories  from the filer listing is also given below.  All line number are
approximate as they refer to my version, which has a number of small
modifications........ 

In file 2.for, in subroutine change_options,

    change:      integer code ---> integer, code, ii

and at (approx) line 273, change the call as follows:

  273            ii = 7
  274            call pd_list_choice( board_id, keyboard, width, ii,
  275        .                        %val(pull_choices.ptr(7)), 

And in the file 3.for, in subroutine file_options, the identical changes..

  change line 252 to read -------->        integer    code, ii

  and 256 to read ------------>

  256            ii = 4
  257            call pd_list_choice( board_id, keyboard, width, ii,
  258        .                        %val(pull_choices.ptr(4)), 

To remove the directory files from the files listed in the filer options,
change subroutine load_files (approx line 661 in file 3.for)  to read as
follows: ... 

C
C         Modified to exclude directories ....... EHP  7/sep/87
C
         ii = index( spec, '.DIR')
         if (ii .eq. 0) call append_fnode( spec )

Before it was

         call append_fnode( spec ) 

 ..............................................................................
                    Ernie Perkins alias "der Schrumpfschluch"
 +----------------------------------------------------------------------------+
 | E.H. Perkins,                  CSNET             perkins%arc.cdn@ubc.csnet |
 | Alberta Research Council,      MTSNET              perkins%arc.cdn@alberta |
 | Oil Sands Research Dept.,      UUCP            ...!alberta!arc.cdn!perkins |
 | PO Box 8330, Postal Station F, ARPA perkins%arc.cdn%ubc.csnet@relay.cs.net |
 | Edmonton, Alberta, Canada                                                  |
 | T6H 5X2                                                                    |
 |                                                                            |
 | Voice:  (403) 464-9212          alternate bitnet: userehp@UBCMTSG          |
 | Telex:  037-2147                alternate bitnet: usertcak@UALTAMTS        |
 +----------------------------------------------------------------------------+
 |  The views expressed herein reflect my own interests, prejudices,          |
 |  misconceptions and ignorance.  When the truth is known, they are probably |
 |  incorrect. They do not necessarily reflect the views of my employers who  |
 |  have their own unique set of interests, prejudices and misconceptions.    |
 +----------------------------------------------------------------------------+