L
ltoral
Guest
Hi, here is a copy of those lines. is the main block. * *************************** Main Block *************************** */ /* Include custom Main Block code for SmartWindows. */ /********************************************************************* * Copyright (C) 2000 by Progress Software Corporation ("PSC"), * * 14 Oak Park, Bedford, MA 01730, and other contributors as listed * * below. All Rights Reserved. * * * * The Initial Developer of the Original Code is PSC. The Original * * Code is Progress IDE code released to open source December 1, 2000.* * * * The contents of this file are subject to the Possenet Public * * License Version 1.0 (the "License"); you may not use this file * * except in compliance with the License. A copy of the License is * * available as of the date of this notice at * * www.possenet.org/license.html * * * * Software distributed under the License is distributed on an "AS IS"* * basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. You* * should refer to the License for the specific language governing * * rights and limitations under the License. * * * * Contributors: * * * *********************************************************************/ /* windowmn.i - Main Block code for objects which create windows.*/ /* Skip all of this if no window was created. */ /* Set CURRENT-WINDOW: this will parent dialog-boxes and frames. */ IF VALID-HANDLE({&WINDOW-NAME}) THEN DO: ASSIGN CURRENT-WINDOW = {&WINDOW-NAME} {&WINDOW-NAME}:KEEP-FRAME-Z-ORDER = YES THIS-PROCEDURE:CURRENT-WINDOW = {&WINDOW-NAME}. /* The CLOSE event can be used from inside or outside the procedure to */ /* terminate it. */ ON CLOSE OF THIS-PROCEDURE RUN dispatch IN THIS-PROCEDURE ('destroy':U). RUN dispatch ('create-objects':U). /* Execute this code only if not being run PERSISTENT, i.e., if in test mode of one kind or another or if this is a Main Window. Otherwise postpone 'initialize' until told to do so. */ &IF DEFINED(UIB_IS_RUNNING) EQ 0 &THEN IF NOT THIS-PROCEDURE
ERSISTENT THEN DO: &ENDIF /* (NOTE: handle ERROR and END-KEY so cleanup code will always fire. */ MAIN-BLOCK: DO ON ERROR UNDO MAIN-BLOCK, LEAVE MAIN-BLOCK ON END-KEY UNDO MAIN-BLOCK, LEAVE MAIN-BLOCK: /* Now enable the interface and wait for the exit condition. */ RUN dispatch ('initialize':U). **********************2469***************** IF NOT THIS-PROCEDUREERSISTENT THEN WAIT-FOR CLOSE OF THIS-PROCEDURE. END. &IF DEFINED(UIB_IS_RUNNING) EQ 0 &THEN END. &ENDIF END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME
Continue reading...
ERSISTENT THEN DO: &ENDIF /* (NOTE: handle ERROR and END-KEY so cleanup code will always fire. */ MAIN-BLOCK: DO ON ERROR UNDO MAIN-BLOCK, LEAVE MAIN-BLOCK ON END-KEY UNDO MAIN-BLOCK, LEAVE MAIN-BLOCK: /* Now enable the interface and wait for the exit condition. */ RUN dispatch ('initialize':U). **********************2469***************** IF NOT THIS-PROCEDUREERSISTENT THEN WAIT-FOR CLOSE OF THIS-PROCEDURE. END. &IF DEFINED(UIB_IS_RUNNING) EQ 0 &THEN END. &ENDIF END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUMEContinue reading...