FreeForm update --> 4.54

[grimblefritz]

I've never actually used it, but I got annoyed at the non-working help in Win10.

So I found a fix for it.

freeform454.zip (45.17 KB)

If you don't care about FreeForm help not working, then you can skip this.

[rnbw]

Apr 1, 2021 7:22:29 GMT -5 grimblefritz said:

I've never actually used it, but I got annoyed at the non-working help in Win10.

So I found a fix for it.

View Attachment

If you don't care about FreeForm help not working, then you can skip this.

I was scrolling through the Freeform topics because I had found a few errors (at least I thought they were errors) in Freeform450.bas.  The same errors are present in Freeform454.bas.

1.  Although LB seems to allow this, near the beginning of the program font$() is accessed before it is DIMd.  It is DIMd in the SUB [defineVariables], which follows font$():

defaultWinHandle$="#main"
   defaultWindowType$="window"
   dFont$="ms_sans_serif 10"
   windowType$=defaultWindowType$
   winHandle$=defaultWinHandle$
   font$(1)=dFont$
   promptOnExit=1

   gosub [defineVariables]   'font$() is DIMd here
To DIM font$() correctly re-order the code as below:

   defaultWinHandle$="#main"
   defaultWindowType$="window"
   dFont$="ms_sans_serif 10"
   windowType$=defaultWindowType$
   winHandle$=defaultWinHandle$
   promptOnExit=1

   gosub [defineVariables]
   font$(1)=dFont$

2. There are several instances of code like this:

if mid$(mi$,brl,1)=chr$(0))then brk=brlwhich gives an error because of the double )) after chr$(0).  The second ) should be deleted.

3. in the sub [doneProducingCode], I think the following line is incorrect and one of the = 1 should be omitted.

if makeStatusbar = 1 = 1 or ttC = 1 then

I think the code should read

if makeStatusbar = 1 or ttC = 1 then
I hope this is of use to users.