Showing windows like pc manner

, , , ,
1

I am trying to show natural like pc windows.
So i am using set control ‘WA’ to save screens.
I am not able to show PRUEBA windows with no PRUEBA2 Window showed.
Please, help

/** New Program TESTWIND.
/**
/** :author Javato
/* TODO Enter your code here
SET KEY PF3=‘%.’ named ‘fin’
DEFINE WINDOW PRUEBA
base 2/2
TITLE ‘VENTANA UNO’
CONTROL SCREEN
DEFINE WINDOW PRUEBA2
BASE CURSOR
TITLE ‘VENTANA dos’
CONTROL SCREEN
REPEAT
INPUT WINDOW=‘PRUEBA’ /
‘ESTO ES UNA PRUEBA’ / *com (al=70 ad=m’')
set control ‘WA’
INPUT WINDOW=‘PRUEBA2’ /
‘ESTO ES UNA PRUEBA2 ’ / *com (al=70 ad=m’')
END-REPEAT
END

2

Javier,

Are you asking why the 2nd pop-up window, PRUEBA2, does not disappear completely on the 2nd pass through the REPEAT loop when PRUEBA is redisplayed? If so, then I don’t believe pop-up window remnants (frames, etc) can be erased unless the main window is a full sized screen, or at least bigger than all the pop-ups. When the main INPUT statement is executed again it will overlay any pop-ups that have been opened and give you a fresh screen again with no pop-up remnants.

I don’t think there is any other way to erase a pop-up screen, but someone else may have a trick that works.

If my interpretation of your question is not correct, I apologize. Then it would be a good idea to repost with a screen shot of the results you are getting and add more clarification of what you want the output to look like.

Thanks,
George

3

Thank you very much.

About “Are you asking why the 2nd pop-up window, PRUEBA2, does not disappear completely on the 2nd pass through the REPEAT loop when PRUEBA is redisplayed?” I confirm yes, I am.

So, how can I do it ?
So, I need example program to use → set control ‘WA’ to clarify.

4

Use

SET WINDOW OFF
5

Using SET WINDOW OFF I am having same result.
Second window frame is showed.

6

Javier,

I’m still not clear what type of screen interaction you are trying to accomplish, but give this a try and see if it is close to what you want. At least the main INPUT statement erases the two pop-ups when it is redisplayed. I don’t believe you can get Natural windows to work exactly like PC windows, they just sort of looked like PC windows on the mainframe green screen terminals we all used way back when the developers added the windows commands to the language.

Hope this works for you. Good luck.
George

/** New Program TESTWIND.
/**
/** :author Javato
/* TODO Enter your code here
SET KEY PF3='%.' named 'fin'
DEFINE WINDOW PRUEBA
  SIZE 40 * 76
  BASE 2/2
  TITLE 'VENTANA UNO'
*  CONTROL SCREEN
DEFINE WINDOW PRUEBA2
  BASE CURSOR
  TITLE 'VENTANA dos'
*  CONTROL SCREEN
REPEAT
  INPUT 20x  'Hello - Main Screen'  
        20/78 *com(al=70 ad=M'_')
  set control 'WA'
  INPUT WINDOW='PRUEBA' /
    'ESTO ES UNA PRUEBA' / *com (al=70 ad=m'_')
  set control 'WA'
  INPUT WINDOW='PRUEBA2' /
    'ESTO ES UNA PRUEBA2 ' / *com (al=70 ad=m'_')
END-REPEAT
END
7

I am attaching two issues of Inside Natural that may help you achieve your objective.
IN Vol 17 No 3.pdf (514 KB)
IN Vol 17 No 1.pdf (324 KB)

8

Thank you very much for your help.
I want to do exactly what the Inside Natural pdf shows about %WA and %WZ.
I am happy.
I appreciate you help.