forums.silverfrost.com

Wilfried Linder · Posted: Thu May 05, 2011 9:40 am Post subject:

OK, please test the following:

Wilfried Linder · Posted: Thu May 05, 2011 9:58 am Post subject:

Sorry, I forgot two things:

(a) add %ww[no_border] after j = winio@('%lw
(b) set the text size to 1.D0

This looks better Wink

Regards - Wilfried

Little-Acorn · Joined: 06 Jul 2008 Posts: 111 Location: San Diego

Tried it.

I got a run-time exception saying "local_font is an invalid CLEARWIN option".

I then replaced the words local_font with the word vscroll . Now the program ran, a window came up, and the messages you put here, appeared one after the other every few seconds... but they were in System font, not Arial.

Hmmm....

BTW, I converted the program to fixed-format, and had to put in a continuation line in the longest statement. I don't believe the continuation line affected the program. Is it possible that going to fixed-format, did affect the program somehow?

I am also using Plato with Silverfrost FORTRAN. When I click on "Help" and then "About Plato", I get a small banner saying "Plato Version 4.10 - Copyright c Silverfrost Ltd 2011" across the top.

My version of this program:

WINAPP
OPTIONS(INTL)

PROGRAM TEST

IMPLICIT NONE
INCLUDE <WINDOWS.INS>

integer*4 j,handle

handle = -1

j = winio@
1('%lw%ww[no_border]%sy[3d_thin]%fn[ARIAL]%ts%120.40cw[local_font]'
2 ,handle,1.0D0,6)
write(6,'(A)')'hello'

call sleep@(3.)
write(6,'(A)')'... back again after some work'

call sleep@(3.)
write(6,'(A)')'window will be closed soon'

call sleep@(3.)
handle = 0
call window_update@(handle)

end

LitusSaxonicum · Posted: Thu May 05, 2011 8:54 pm Post subject:

Hi Little Acorn,

Then you had better tell us what version you are using: some of the updates to %cw are comparatively recent, and require the appropriate version of FTN95. This is less of a problem if you are using the Personal Edition than if you are the proud possessor of a licence: in the former case, updating to the latest version is free, in the latter, it isn't!

Eddie

Wilfried Linder · Posted: Thu May 05, 2011 9:01 pm Post subject:

Hmmm... really funny. I've written and tested exactly that code today. Are you sure that you have an actual version of FTN95/ClearWin?

Little-Acorn · Joined: 06 Jul 2008 Posts: 111 Location: San Diego

While both of you were replying, I was editing my post to show the version of Plato and the actual code I ran. This forum took out my spaces, but in fact there are six spaces before every line except the two continuation lines, which have five spaces in front of each.

I was able to find the version of Plato (Version 4.10), as you see. How do I find the version of Fortran?

I started using Silverfrost Fortran several years ago, and have never manually updated it. Does any updating happen automatically? I note that the Plato banner shows a date of 2011, though I have never done any updating in several years.

Little-Acorn · Joined: 06 Jul 2008 Posts: 111 Location: San Diego

Perhaps I should simply go to the website, find out how to do updates, and update manually to see if anything changes. Sound like a plan?

Wilfried Linder · Posted: Thu May 05, 2011 9:18 pm Post subject:

Hi Little-Acorn, just now I tested the following code in Fortran 95 without any leading blanks:

Little-Acorn · Joined: 06 Jul 2008 Posts: 111 Location: San Diego

I just updated my Fortran Personal Edition. Now the Plato banner says that Plato is at version 4.40 (an hour ago it was at 4.10).

And your test program now works! The contents of the window are in ARIAL font, and not boldfaced!

Thank you Wilfried and Eddie! I deeply appreciate all your help.

....

Now back to my main program, with the status window. Even after this update, the status window still contains text that remains stubbornly in System font.

The code that sets it up is:

CALL set_default_proportional_font@()
IStatWinHandle=create_window@('Status',70,720,700,240)
CALL OPEN_TO_WINDOW@(6,IStatWinHandle)

And later I write to it with a statement like:

....
CALL WRITSTAT("What font will this text be in?")
.....
SUBROUTINE WRITSTAT(newstat)
include <windows.ins>
CHARACTER*(*) newstat
WRITE(6,'(A)') newstat
RETURN
END

I can dig in and start trying new ways to get this to produce Arial font too. But can you give me any tips off the top of your head?

BTW, what does that '(A)' mean in the WRITE statement?

Wilfried Linder · Posted: Fri May 06, 2011 5:48 am Post subject:

????

Forget our first idea using open_to_window@ and take the code with %cw[local_font]!

'(A)' means character string, equivalent to * for numerical values.

LitusSaxonicum · Posted: Fri May 06, 2011 12:48 pm Post subject:

Hi Little Acorn,

I forget when it was changed, probably when Fortran-77 came out, but it stopped being necessary to have a format statement unless you really wanted one. So, you can slip the formatting information into the WRITE statement, keep it in a numbered FORMAT statement, or use "unformatted" output. Slipping it into the WRITE statement means putting the formatting information in as a character constant, or variable. Hence, you could equally well write:

Little-Acorn · Joined: 06 Jul 2008 Posts: 111 Location: San Diego

Wilfried Linder · Posted: Thu Nov 17, 2011 9:15 am Post subject:

I don't think that magic is the reason. I suggest that you should try a very simple example (take my first one - previous page, 2nd post). If even this doesn't work anymore, then try to remember what is changed on your PC since then: Hardware, operating system, FTN95 version?

Good luck...

LitusSaxonicum · Posted: Thu Nov 17, 2011 3:01 pm Post subject:

My guess is that you re-used or over-wrote the handle. This is always a peril if it is not uniquely named, i.e. "handle" is not a good name. If you called it, for example, iHandle_for_Status_Box, then you aren't likely to use that for anything else. Also, keep it in COMMON (or use MODULES) to make sure that it doesn't disappear when exiting a subprogram in which it is defined.

Fortran's rules on type are such that handle might not be of integer type when it should be, and (just guessing here!) it hasn't mattered up till now. That's my second guess.

My third guess is that you used logical unit 6 for something else, perhaps redefining it in some way. Again, as Fortran used to very commonly have 6 for output to a printer, this could crop up in old code, or you could have programmed it by force of old habit. You wouldn't mix them up if you used a name like Logical_Unit_for_Status_Box and set this to maybe 199!

While FTN95 sometimes appears to operate by magic, this is only an application of Arthur C. Clarke's Third Law: "Any sufficiently advanced technology is indistinguishable from magic"!

Eddie

Little-Acorn · Joined: 06 Jul 2008 Posts: 111 Location: San Diego

Eddie and Wilfried, it is indeed possible that I may have overwritten the handle. But while looking, I finally figured out (to my surprise) a way to make the edit box (%eb) Work as I had wanted, scrolling to the end of the filled part of the buffer!

So now I have stopped using File 6 as a default status box, since the %eb lets me use proportional fints, and even edit facilities.

Thank you for your help in this long chase, though... it has finally reached an exemplary conclusion!