forums.silverfrost.com

[Zach]

In an effort to code ad analogiam Kenneth's code

program main
use clrwin
implicit none
integer :: iw
integer :: x = 10
integer :: y = 5
iw = winio@('%nl%gr[white]&',500,500)
call draw_filled_rectangle@(0,0,500,500,rgb@(255,255,255))
call draw_characters@('Hello World',x,y,rgb@(1,1,1))
end program main

What is wrong? / How to get it to work? Apologies if this is very stupid.

[wahorger]

Your program has a couple of faults. No matter, we've all done this at one time or another (for me about a week ago).

Your code should read:

[Zach]

Hi, your corrected code works nicely. Thank you. How do I get rid of the black ugly compiler output frame behind the new white frame? Calling clear_screen@ doesn't do the job. And how do I make the font bigger in the new white frame?

[Zach]

program main
use clrwin
implicit none

integer :: iw,control=0
integer, dimension(2)::loc = (/20,50/)
iw = winio@('%nl%gr[white]&',500,500)
iw = winio@('%lw',control)
call draw_filled_rectangle@(100,100,500,500,rgb@(255,255,255))
!here
call locate(loc)
end program main


subroutine locate(loc)
use clrwin
integer,intent(in)::loc(2)
!there
call draw_characters@('Hello World',loc(1),loc(2),rgb@(1,1,1))
end subroutine

Hello World is being printed, But how do I pass "Hi there" form !here to !there and cause the called statement to print "Hi There"

Q: How do i make the font bigger?
Q: How could I get rid of the big black compiler output frame, behind the newly created white frame?

[Kenneth_Smith]

One of a few possibilities:

[wahorger]

Just FYI: your variable LOC is also an intrinsic integer(7) function. It returns the address of the argument.

FTN95 is really good about divining intent of reserved function names usage. Still, best to avoid using function names as variables with dimensions.

In the example:

[wahorger]

Use WINAPP and the black DOS command box will not be displayed.

If you do console output in a WINAPP application, an output window will be created automatically. All I/O from to/from the console are carried out in this window.

Please note: When you close you main window and there is a console window displayed, you'll need to also close this window in order re-compile and run.

[Zach]

Removed

[Kenneth_Smith]

Look up the help file for IMPORT_IMAGE@

Clearwin+ is extremely powerful and you should persevere with it.

Given the complexity of some of the user interfaces I have developed over the last 10 years using Clearwin+, I cannot fault the library, everything needed is there.

[Zach]

Is there a way to change the as is big cross-cursor into something more modest? And can the font be changed to Consolas, because the output as is, is very feeble. And can the size of big the black compiler output frame be reduced in size, and also to say: "One moment please."? Thank you very much in advance.

[wahorger]

I suggest you look at the help available on cursors found in the FTN95 and Clearwin HELP file available through Plato. Search for cursor and gets lots of references. Read up on them. I use it constantly, even after a decade of using this product!

Specifically, winio@() format code%cu. I think you'll find good stuff there.

The help is available there, to start.

[Zach]

I did not expect to find (a reference to) the language manual under the help button of the ide. Sorry.

[wahorger]

From PLATO. find "Help" on the menu bar and click it.

[wahorger]

There is also an FTN95 link on this HELP menu, as well as for ClearWin, etc. Just pull it up, and search. It's a single HELP file (generally) that has links in Plato to the appropriate starting sections for the HELP you're looking for.

[Zach]

I am taking a break from this discussion. Thank you for having shown so much patience with me.