Howto. stacked canvas as splash screen

Question

hello all users of forms world!
problem:
how to display a splash screen with a text inside when a process is launched in a canvas full of iteration etc...
solution:
assume we have a content canvas C playing the role of a data processor, items browser or other ..
and a stacked canvas S playing the role of "splash screen" linked to a B_spash block.
generic code :
function show_waitscreen (msg Varchar2)
begin
:B.message := msg;
show_view('splash_canvas'); --show canvas S
synchronize;
-- here is my contribution :: we must "cut off " the
--relation between C ans S at the visual level
host('waitcmd');
-- waitcmd is a unix shell doing anything :: a date, etc
end;
e.g.
short_process;
show_waitscreen;
long_process; -- a lot of go_block, go_record or loop
hide_waitscreen; -- to implement ! it is very simple
I'll hope that code helps some programmers using forms (4.5 ,6)
Daniel

Answer 1

Hi All,
I found the solution and successfully implemented the desired functionality
DECLARE
     v_Tab VARCHAR2(1000);
BEGIN
     v_Tab := GET_CANVAS_PROPERTY('CAN_TABS', TOPMOST_TAB_PAGE);
     IF v_Tab = 'a1' THEN
     GO_BLOCK('BLK1');
          EXECUTE_QUERY;
     ELSIF v_Tab = 'a2' THEN
          GO_BLOCK('BLK2');
          EXECUTE_QUERY;
     ELSIF v_Tab = 'a3' THEN
*          Set_View_Property('CAN_STK_FIS_NET',HEIGHT,280);*
*          Set_View_Property('CAN_STK_FIS_NET',WIDTH,630);*
*          Set_View_Property('CAN_STK_FIS_NET',DISPLAY_POSITION,6,135);*
*          SHOW_VIEW('CAN_STK_FIS_NET');     *     
          GO_BLOCK('BLK_FIS1_GRID');
          EXECUTE_QUERY;
END IF;
END ;
I have seperately created stacked canvas 'CAN_STK_FIS_NET' and placed multiple blocks as per requirement and able to achieve the functionality.
Please let me know if any one need any detail explanation.
regards
cj