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. |
+----------------------------------------------------------------------------+