&ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12 GUI &ANALYZE-RESUME &Scoped-define WINDOW-NAME CURRENT-WINDOW &Scoped-define FRAME-NAME Zip-Frame &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Zip-Frame /********************************************************************* * 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 * * http://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: * * * *********************************************************************/ /*------------------------------------------------------------------------ File: adetran/vt/_crzip.w Description: Creates the zip file for a TranMan2 kit. Input Parameters: Output Parameters: ZipFile (char) - zip filename to use ItemList(char) - list of items to zip up Author: Gerry Seidl Created: 9/15/95 Updated: 11/96 SLK Changed for FONT OPSYS MSDOS Use of _ossfnam.p ------------------------------------------------------------------------*/ /* This .W file was created with the Progress UIB. */ /*----------------------------------------------------------------------*/ /* *************************** Definitions ************************** */ DEFINE SHARED VARIABLE KitDB AS CHARACTER NO-UNDO. DEFINE SHARED VARIABLE _bkupExt AS CHARACTER NO-UNDO. /* Parameters Definitions --- */ DEFINE OUTPUT PARAMETER ZipFile AS CHARACTER NO-UNDO. DEFINE OUTPUT PARAMETER ItemList AS CHARACTER NO-UNDO. /* Local Variable Definitions --- */ DEFINE VARIABLE DispProjDir AS CHARACTER NO-UNDO. {adetran/vt/vthlp.i} /*Definitions fro help context strings */ &IF LOOKUP("{&OPSYS}","MSDOS,WIN32":U) > 0 &THEN &SCOPED-DEFINE SLASH ~~~\ &ELSE &SCOPED-DEFINE SLASH / &ENDIF /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK /* ******************** Preprocessor Definitions ******************** */ &Scoped-define PROCEDURE-TYPE DIALOG-BOX /* Name of first Frame and/or Browse and/or first Query */ &Scoped-define FRAME-NAME Zip-Frame /* Standard List Definitions */ &Scoped-Define ENABLED-OBJECTS ProjDir Btn_OK Btn_Cancel RECT-4 btnFiles ~ ZipFileName btn_Help overwrite &Scoped-Define DISPLAYED-OBJECTS ProjDir ZipFileName overwrite /* Custom List Definitions */ /* List-1,List-2,List-3,List-4,List-5,List-6 */ /* _UIB-PREPROCESSOR-BLOCK-END */ &ANALYZE-RESUME /* *********************** Control Definitions ********************** */ /* Define a dialog box */ /* Definitions of the field level widgets */ DEFINE BUTTON btnFiles LABEL "&Files..." SIZE 15 BY 1.125. DEFINE BUTTON Btn_Cancel AUTO-END-KEY LABEL "Cancel" SIZE 15 BY 1.125. DEFINE BUTTON btn_Help LABEL "&Help" SIZE 15 BY 1.125. DEFINE BUTTON Btn_OK AUTO-GO LABEL "OK" SIZE 15 BY 1.125. DEFINE VARIABLE ProjDir AS CHARACTER FORMAT "X(256)":U LABEL "Project Directory" VIEW-AS TEXT SIZE 25 BY .62 NO-UNDO. DEFINE VARIABLE ZipFileName AS CHARACTER FORMAT "X(256)":U VIEW-AS FILL-IN SIZE 37 BY 1 FONT 4 NO-UNDO. DEFINE RECTANGLE RECT-4 EDGE-PIXELS 2 GRAPHIC-EDGE NO-FILL SIZE 57 BY 2.67. DEFINE VARIABLE overwrite AS LOGICAL INITIAL yes LABEL "Overwrite Existing File" VIEW-AS TOGGLE-BOX SIZE 27 BY .76 NO-UNDO. /* ************************ Frame Definitions *********************** */ DEFINE FRAME Zip-Frame ProjDir AT ROW 1.48 COL 18 COLON-ALIGNED Btn_OK AT ROW 1.48 COL 62 Btn_Cancel AT ROW 2.81 COL 62 btnFiles AT ROW 3.38 COL 43 ZipFileName AT ROW 3.43 COL 2 COLON-ALIGNED NO-LABEL btn_Help AT ROW 4.14 COL 62 overwrite AT ROW 4.62 COL 4 "Zip Filename" VIEW-AS TEXT SIZE 15 BY .52 AT ROW 2.62 COL 4 RECT-4 AT ROW 2.86 COL 2 SPACE(19.19) SKIP(0.13) WITH VIEW-AS DIALOG-BOX KEEP-TAB-ORDER SIDE-LABELS NO-UNDERLINE THREE-D SCROLLABLE FONT 4 TITLE "Create Zip File" DEFAULT-BUTTON Btn_OK CANCEL-BUTTON Btn_Cancel. /* *********************** Procedure Settings ************************ */ &ANALYZE-SUSPEND _PROCEDURE-SETTINGS /* Settings for THIS-PROCEDURE Type: DIALOG-BOX Allow: Basic,Browse,DB-Fields,Query */ &ANALYZE-RESUME _END-PROCEDURE-SETTINGS /* *************** Runtime Attributes and UIB Settings ************** */ &ANALYZE-SUSPEND _RUN-TIME-ATTRIBUTES /* SETTINGS FOR DIALOG-BOX Zip-Frame */ ASSIGN FRAME Zip-Frame:SCROLLABLE = FALSE FRAME Zip-Frame:HIDDEN = TRUE. /* _RUN-TIME-ATTRIBUTES-END */ &ANALYZE-RESUME /* ************************ Control Triggers ************************ */ &Scoped-define SELF-NAME Zip-Frame &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Zip-Frame Zip-Frame ON WINDOW-CLOSE OF FRAME Zip-Frame /* Create Zip File */ DO: APPLY "END-ERROR":U TO SELF. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME btnFiles &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL btnFiles Zip-Frame ON CHOOSE OF btnFiles IN FRAME Zip-Frame /* Files... */ DO: define var OKPressed as logical no-undo. SYSTEM-DIALOG GET-FILE ZipFileName TITLE "Zip file" FILTERS "Zip Files (*.zip)" "*.zip":u MUST-EXIST USE-FILENAME UPDATE OKpressed. IF OKpressed = TRUE THEN display ZipFileName with frame {&frame-name}. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME btn_Help &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL btn_Help Zip-Frame ON CHOOSE OF btn_Help IN FRAME Zip-Frame /* Help */ OR HELP OF FRAME {&FRAME-NAME} DO: RUN adecomm/_adehelp.p ("vt":u, "context":U, {&Create_Zip_File_Dialog_Box}, ?). END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &Scoped-define SELF-NAME Btn_OK &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_OK Zip-Frame ON CHOOSE OF Btn_OK IN FRAME Zip-Frame /* OK */ DO: DEFINE VARIABLE os-rc AS INTEGER NO-UNDO. /* os error return code */ DEFINE VARIABLE ext AS CHARACTER NO-UNDO. /* file extention */ DEFINE VARIABLE kit AS CHARACTER NO-UNDO. DEFINE VARIABLE zipstatus AS LOGICAL NO-UNDO. /* Success/Failure of call to zip */ DEFINE VARIABLE DirName AS CHARACTER NO-UNDO. DEFINE VARIABLE BaseName AS CHARACTER No-UNDO. ASSIGN ZipFileName OverWrite. IF ZipFileName EQ "" THEN DO: MESSAGE "The zip filename cannot be blank." VIEW-AS ALERT-BOX ERROR. APPLY "ENTRY" TO ZipFileName. RETURN NO-APPLY. END. RUN adecomm/_osfext.p(ZipFileName, OUTPUT ext). /* get file extention */ IF ext EQ "" THEN ZipFileName = ZipFileName + ".zip":U. /* if no extention, add ".zip" */ ELSE IF ext NE ".zip" THEN ZipFileName = REPLACE(ZipFileName,ext,".zip":U). /* if ext not ".zip", change to ".zip" */ FILE-INFO:FILE-NAME = ZipFileName. IF FILE-INFO:FULL-PATHNAME NE ? THEN ZipFileName = FILE-INFO:FULL-PATHNAME. IF OverWrite AND FILE-INFO:FULL-PATHNAME NE ? THEN DO: /* Delete existing zip file */ OS-DELETE VALUE(ZipFileName). /* delete it */ ASSIGN os-rc = OS-ERROR. IF os-rc > 0 THEN DO: CASE os-rc: WHEN 1 THEN DO: MESSAGE "You are not the owner of this file." skip "This file could not be overwritten." VIEW-AS ALERT-BOX ERROR. RETURN NO-APPLY. END. WHEN 2 THEN. OTHERWISE DO: MESSAGE "Zip file could not be deleted. OS Error #" + STRING(os-rc) VIEW-AS ALERT-BOX ERROR. RETURN NO-APPLY. END. END CASE. END. END. ELSE IF FILE-INFO:FULL-PATHNAME NE ? THEN DO: MESSAGE "This zip file exists and overwrite was not specified." VIEW-AS ALERT-BOX ERROR. APPLY "ENTRY" TO OverWrite In FRAME {&FRAME-NAME}. RETURN NO-APPLY. END. ASSIGN Kit = REPLACE(KitDB,".db":U,"") /* kit name less extention */ ProjDir = IF SUBSTR(ProjDir, LENGTH(ProjDir), 1) NE "{&SLASH}" THEN ProjDir + "{&SLASH}" ELSE ProjDir ItemList = ProjDir + Kit + _bkupExt. ASSIGN ZipFile = ZipFileName. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &UNDEFINE SELF-NAME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Zip-Frame /* *************************** Main Block *************************** */ /* Parent the dialog-box to the ACTIVE-WINDOW, if there is no parent. */ IF VALID-HANDLE(ACTIVE-WINDOW) AND FRAME {&FRAME-NAME}:PARENT eq ? THEN FRAME {&FRAME-NAME}:PARENT = ACTIVE-WINDOW. FIND FIRST kit.xl_project no-lock no-error. ProjDir = kit.xl_project.RootDirectory. /* Now enable the interface and wait for the exit condition. */ /* (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: RUN enable_UI. RUN adecomm/_ossfnam.p (INPUT ProjDir:SCREEN-VALUE IN FRAME Zip-Frame, INPUT ProjDir:WIDTH IN FRAME Zip-Frame, INPUT ProjDir:FONT IN FRAME Zip-Frame, OUTPUT DispProjDir). DISPLAY DispProjDir @ ProjDir WITH FRAME Zip-Frame. WAIT-FOR GO OF FRAME {&FRAME-NAME} FOCUS ZipFileName. END. RUN disable_UI. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME /* ********************** Internal Procedures *********************** */ &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE disable_UI Zip-Frame _DEFAULT-DISABLE PROCEDURE disable_UI : /*------------------------------------------------------------------------------ Purpose: DISABLE the User Interface Parameters: Notes: Here we clean-up the user-interface by deleting dynamic widgets we have created and/or hide frames. This procedure is usually called when we are ready to "clean-up" after running. ------------------------------------------------------------------------------*/ /* Hide all frames. */ HIDE FRAME Zip-Frame. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enable_UI Zip-Frame _DEFAULT-ENABLE PROCEDURE enable_UI : /*------------------------------------------------------------------------------ Purpose: ENABLE the User Interface Parameters: Notes: Here we display/view/enable the widgets in the user-interface. In addition, OPEN all queries associated with each FRAME and BROWSE. These statements here are based on the "Other Settings" section of the widget Property Sheets. ------------------------------------------------------------------------------*/ DISPLAY ProjDir ZipFileName overwrite WITH FRAME Zip-Frame. ENABLE ProjDir Btn_OK Btn_Cancel RECT-4 btnFiles ZipFileName btn_Help overwrite WITH FRAME Zip-Frame. VIEW FRAME Zip-Frame. {&OPEN-BROWSERS-IN-QUERY-Zip-Frame} END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME