Need Editor Extention Help

[Roger Cabo]

Hi everyone,

I read through the GfaEdExt.pdf. There are so many restricted irritating information that seems to be not true currently.
I wrote a simple extension:


RogerEdExt.g32

(***********************************************************)
(*              GFA-BASIC 32 EDITOR EXTENSIONS             *)
(***********************************************************)
Sub Gfa_init // wird automatisch beim Laden des Basic aufgerufen
 // Diese Prozedur wird unmittelbar nach dem Laden und
 
Sub Sub_Gfa_F9
 'Als "Ausgabe" sind insbesondere Debug.Print und MsgBox möglich, oder
 'eine Änderung im Programmtext natürlich, sowie Gfa_StatusText =
 MsgBox "Pressed F9"
EndSub

* Compiled and copied the compiled RogerEdExt.gll into GFABASIC32/BIN

* The manual says: Copy the RogerEdExt.g32 as well into the /GFA-BASIC32 folder.... Okay Done!
The PDF says: Currently only one editor extension is allowed, which always bear the name GfaEdExt.g32 and are related directory of GFA-BASIC 32 itself.

* Loaded the RogerEdExt.gll into the Extension  Manager.
But nothing happen when pressed F9 on restarting GFABasic.


My questions:

1) Do I have to compile this files as gll ?   // The pfd says. "GFABASIC will compile the extension by it's own because of security reasons".. So I don't have to compile?
2) Where I have to save the RogerEdExt.g32 to get it to work?  // The pfd says "copy into GFABASIC32\ "  .. really?
4) The Pdf says: At the moment there are no file operations directly within GfaExExtpossible. Is this true?
 
I really appreciated some help in this case.
Thank you very much!

[(X)]

This works for me.

I compiled it and copied the gll to the C:\Program Files (x86)\GFABASIC32\Bin directory.

Then I added it via the Extra -> Extension_Manager

Press F9 -> Outputs "F9" to the Debug window.

Sub Gfa_F9      // (Gfa_F* where * is 2, 8, 9 for function keys F2, F8, and F9)
 Debug "F9"
 
Sub Gfa_SF9     //(* = 2,8,9,11,12 for function keys F2, F8, F9, F11, F12)
 Debug "SF9"
 
Sub Gfa_CF9     //(* = 2,8,9,11,12 for function keys F2, F8, F9, F11, F12)
 Debug "CF9"
 
Sub Gfa_AF9     //(* = 2,8,9,11,12 for function keys F2, F8, F9, F11, F12)
 Debug "AF9"
 
Sub Gfa_SCF9    //(* = 2,8,9,11,12 for function keys F2, F8, F9, F11, F12)
 Debug "SCF9"
 
Sub Gfa_SAF9    //(* = 2,8,9,11,12 for function keys F2, F8, F9, F11, F12)
 Debug "SAF9"
 
Sub Gfa_CAF9    //(* = 2,8,9,11,12 for function keys F2, F8, F9, F11, F12)
 Debug "CAF9"
 
Sub Gfa_SCAF9   //(* = 2,8,9,11,12 for function keys F2, F8, F9, F11, F12)
 Debug "SCAF9"
 
 

Debug:

F9
SF9
CF9
AF9
SCF9
CAF9
SAF9
SCAF9

[(X)]

This is the content of the Help file:

GLL Keypress Event Subs
Syntax
Sub Gfa_Ex_?

Sub Gfa_App_?

Sub Gfa_App_S?

Sub Gfa_[SCA]F*

Description
Sub Gfa_Ex_? (? as a placeholder for a alphanumeric key)

When a sub's name starts with Gfa_Ex_ it is considered a Shift + Ctrl + key press event sub. The placeholder ? identifies an alphanumeric key (A-Z, 0-9). A GLL can contain up to 36 Gfa_Ex_? event subs.

Sub Gfa_App_? (? as a placeholder for a alphanumeric key)

When a sub's name starts with Gfa_App_ it is considered a App + key press event sub. The placeholder ? identifies an alphanumeric key (A-Z, 0-9). A GLL can contain up to 36 Gfa_App_? event subs.

Sub Gfa_App_S? (* as a placeholder for a alphanumeric key)

When a sub's name starts with Gfa_App_S it is considered a App + Shift + key press event sub. The placeholder ? identifies an alphanumeric key (A-Z, 0-9). A GLL can contain up to 36 Gfa_App_S? event subs.

Sub Gfa_F* (* = 2,8,9 for function keys F2, F8, and F9)

Sub Gfa_SF* (* = 2,8,9,11,12 for function keys F2, F8, F9, F11, F12)

Sub Gfa_CF* (* = 2,8,9,11,12 for function keys F2, F8, F9, F11, F12)

Sub Gfa_AF* (* = 2,8,9,11,12 for function keys F2, F8, F9, F11, F12)

Sub Gfa_SCF* (* = 2,8,9,11,12 for function keys F2, F8, F9, F11, F12)

Sub Gfa_SAF* (* = 2,8,9,11,12 for function keys F2, F8, F9, F11, F12)

Sub Gfa_CAF* (* = 2,8,9,11,12 for function keys F2, F8, F9, F11, F12)

Sub Gfa_SCAF* (* = 2,8,9,11,12 for function keys F2, F8, F9, F11, F12)

Function key sub events. The following sub names identify the valid key combinations.

Gfa_F2, Gfa_F8, Gfa_F9, Gfa_SF2, Gfa_SF8, Gfa_SF9, Gfa_SF11, Gfa_SF12, Gfa_CF2, Gfa_CF8, Gfa_CF9, Gfa_CF11, Gfa_CF12, Gfa_SCF2, Gfa_SCF8, Gfa_SCF9, Gfa_SCF11, Gfa_SCF12, Gfa_AF2, Gfa_AF8, Gfa_AF9, Gfa_AF11, Gfa_AF12, Gfa_SAF2, Gfa_SAF8, Gfa_SAF9, Gfa_SAF11, Gfa_SAF12, Gfa_CAF2, Gfa_CAF8, Gfa_CAF9, Gfa_CAF11, Gfa_CAF12, Gfa_SCAF2, Gfa_SCAF8, Gfa_SCAF9, Gfa_SCAF11, and Gfa_SCAF12.

S = Shift, C = Ctrl, A = Alt, SCA = Shift + Ctrl + Alt

See Also
Gfa_Key, Gfa_KeyGet, Gfa_AddMenu

{Created by Sjouke Hamstra; Last updated: 12/05/14 by James Gaite}

[(X)]

Oct 5, 2022 17:55:39 GMT 1 Roger Cabo said:

(***********************************************************)
(*              GFA-BASIC 32 EDITOR EXTENSIONS             *)
(***********************************************************)
Sub Gfa_init // wird automatisch beim Laden des Basic aufgerufen
 // Diese Prozedur wird unmittelbar nach dem Laden und
 
Sub Sub_Gfa_F9
 'Als "Ausgabe" sind insbesondere Debug.Print und MsgBox möglich, oder
 'eine Änderung im Programmtext natürlich, sowie Gfa_StatusText =
 MsgBox "Pressed F9"
EndSub

I think all you need to do is change "Sub Sub_Gfa_F9" to "Sub Gfa_F9"

[(X)]

Unfortunately GfaEdExt.pdf dates to 1999.

I would suggest relying on the latest Help documentation.

As I understand the German or Deutsch help file version has not been updated.

[Roger Cabo]

Sub Sub_Gfa_F9 // ouchie!

Thank you..

[Roger Cabo]

There is one thing that would be very useful!

When compile a xxx.gll then it would be great to have an option in the Compile Dialogue:
[X] Remove existing and insert as new Editor Extension

It's a bit ugly to permanently remove and insert the new extension manually.

[(X)]

I will look into automating this with a GLL Add-in.

Perhaps there is a way to get a GLL to automatically "click" on menu options...

[(X)]

There are definitely some GFA Registry entries created for GLLs...

I don't know what the Glt entries refer to.  Possibly the start address of the GLL.