//TH-Header //***************************************************************************************** // Copyright (c) 2001 Michael Kurz // All rights reserved. // If you want to use this source in your applications conatct: // // $FileName : TheTool_Paras.VW // $ProjectName : CodeMax Editor // $Author : Michael Kurz // $Created : 29.04.2001 10:39 // // Contents: // Systemparemeters tor the Hammer. // //***************************************************************************************** //TH-RevisionStart // 02.01.2004 10:12 Added new Option "Always start with BP APBP // Debugger" //TH-RevisionEnd // Project Object Structure // oParas is a ModalPanel // oTabDialog1 is a cTabDialogShadow // oTabPage1 is a cTabPageShadow // oEditorGrp is a Group // oItem1 is a cNotifierSpinForm // oItem0Txt is a Textbox // oItem0 is a cGridForm // oRegisterRemoveBtn is a Button // oDefLng is a cNotifierForm // oLanguageTxt is a Textbox // oLanguage is a cGridForm // oRegisterBtn is a Button // oASGrp is a Group // oClasses is a cNotifierCheckBox // oObjects is a cNotifierCheckBox // oMethods is a cNotifierCheckBox // oKeys is a cNotifierCheckBox // oFields is a cNotifierCheckBox // oIndexes is a cNotifierCheckBox // oVars is a cNotifierCheckBox // oCodeList is a Group // oUseBitmaps is a cNotifierCheckBox // oEnableCodeTip is a cNotifierCheckBox // oCodeTipAutoPopup is a cNotifierCheckBox // oCodeTipIni is a cNotifierForm // oOpenDialog is a OpenDialog // oTabPage2 is a cTabPageShadow // oOpenDialog is a OpenDialog // oWrkSpc is a cNotifierCheckBox // oCompilerSpy is a cNotifierCheckBox // oAutomaticDisplay is a cNotifierCheckBox // oCompilerGrp is a Group // oCmd is a cNotifierForm // oCompOptions is a cNotifierForm // oPrecompOptions is a cNotifierForm // oMsgBox is a cNotifierCheckBox // oBrowseCompiler_bn is a Button // oDebuggerGrp is a Group // oCmd is a cNotifierForm // oComp is a cNotifierForm // oRecomp is a cNotifierCheckBox // oDebugAlways is a cNotifierCheckBox // oBrowseDebugger_bn is a Button // oDfrunGrp is a Group // oCmd is a cNotifierForm // oBrowseRuntime_bn is a Button // oTabPage3 is a cTabPageShadow // oOpenDialog is a OpenDialog // oArtGrp is a Group // oCmd is a cNotifierForm // oBrowseDebugger_bn is a Button // oSpyGrp is a Group // oCmd is a cNotifierForm // oBrowseDebugger_bn is a Button // oMergeGrp is a Group // oCmd is a cNotifierForm // oBrowseDebugger_bn is a Button // oVcsGrp is a Group // oCmd is a cNotifierForm // oBrowseDebugger_bn is a Button // oMenuGrp is a Group // oCmd is a cNotifierForm // oBrowseDebugger_bn is a Button // oPubGrp is a Group // oCmd is a cNotifierForm // oBrowseDebugger_bn is a Button // oTabPage4 is a cTabPageShadow // oOpenDialog is a OpenDialog // oDbbGrp is a Group // oCmd is a cNotifierForm // oBrowseDebugger_bn is a Button // oDbeGrp is a Group // oCmd is a cNotifierForm // oBrowseDebugger_bn is a Button // oRptGrp is a Group // oCmd is a cNotifierForm // oBrowseDebugger_bn is a Button // oDbcGrp is a Group // oCmd is a cNotifierForm // oBrowseDebugger_bn is a Button // oDbuGrp is a Group // oCmd is a cNotifierForm // oBrowseDebugger_bn is a Button // oTabPage5 is a cTabPageShadow // oOpenDialog is a OpenDialog // oCAGrp is a Group // oComments is a cNotifierCheckBox // oDate is a cNotifierCheckBox // oWarn is a cNotifierCheckBox // oIdeGrp is a Group // oCmd is a cNotifierForm // oBrowseIde_bn is a Button // oKeyboardGrp is a Group // oCharGrid is a List // oSrcChar is a Form // oSrcCharValue is a Form // oTargetChar is a ComboForm // oAssignTranslate_bn is a Button // oRemoveTranslate_bn is a Button // oTextBox1 is a Textbox // oCPGrp is a Group // oHdr is a cNotifierForm // oBrowseHdr_bn is a Button // oFtr is a cNotifierForm // oBrowseFtr_bn is a Button // TP__6_Language is a cTabPageShadow // oLName is a ComboForm // oLanguage is a TabDialog // TP_General is a TabPage // oGroup1 is a Group // oCaseSensitiv is a CheckBox // oSingLineComm is a Form // oMultiLineComm1 is a Form // oMultiLineComm2 is a Form // oStrDelim is a Form // oEscape is a Form // oTermination is a Form // oStyle is a CheckBox // TP_Procedural is a TabPage // oGroup1 is a Group // oScopeKeywords is a cGridForm // oKeywords is a cGridForm // oOperators is a cGridForm // TP_SGML is a TabPage // oGroup1 is a Group // oTagElementNames is a cGridForm // oTagAttributeNames is a cGridForm // oTagEntities is a cGridForm // oSearch_bn is a Button // oFillFromIDE_bn is a Button // oNew is a Button // oButton0 is a Button // oButton1 is a Button // oLocalStatusBar is a Form // Register all objects Register_Object oArtGrp Register_Object oASGrp Register_Object oAssignTranslate_bn Register_Object oAutomaticDisplay Register_Object oBrowseCompiler_bn Register_Object oBrowseDebugger_bn Register_Object oBrowseFtr_bn Register_Object oBrowseHdr_bn Register_Object oBrowseIde_bn Register_Object oBrowseRuntime_bn Register_Object oButton0 Register_Object oButton1 Register_Object oCAGrp Register_Object oCaseSensitiv Register_Object oCharGrid Register_Object oClasses Register_Object oCmd Register_Object oCodeList Register_Object oCodeTipAutoPopup Register_Object oCodeTipIni Register_Object oComments Register_Object oComp Register_Object oCompilerGrp Register_Object oCompilerSpy Register_Object oCompOptions Register_Object oCPGrp Register_Object oDate Register_Object oDbbGrp Register_Object oDbcGrp Register_Object oDbeGrp Register_Object oDbuGrp Register_Object oDebugAlways Register_Object oDebuggerGrp Register_Object oDefLng Register_Object oDfrunGrp Register_Object oEditorGrp Register_Object oEnableCodeTip Register_Object oEscape Register_Object oFields Register_Object oFillFromIDE_bn Register_Object oFtr Register_Object oGroup1 Register_Object oHdr Register_Object oIdeGrp Register_Object oIndexes Register_Object oItem0 Register_Object oItem0Txt Register_Object oItem1 Register_Object oKeyboardGrp Register_Object oKeys Register_Object oKeywords Register_Object oLanguage Register_Object oLanguageTxt Register_Object oLName Register_Object oLocalStatusBar Register_Object oMenuGrp Register_Object oMergeGrp Register_Object oMethods Register_Object oMsgBox Register_Object oMultiLineComm1 Register_Object oMultiLineComm2 Register_Object oNew Register_Object oObjects Register_Object oOpenDialog Register_Object oOperators Register_Object oParas Register_Object oPrecompOptions Register_Object oPubGrp Register_Object oRecomp Register_Object oRegisterBtn Register_Object oRegisterRemoveBtn Register_Object oRemoveTranslate_bn Register_Object oRptGrp Register_Object oScopeKeywords Register_Object oSearch_bn Register_Object oSingLineComm Register_Object oSpyGrp Register_Object oSrcChar Register_Object oSrcCharValue Register_Object oStrDelim Register_Object oStyle Register_Object oTabDialog1 Register_Object oTabPage1 Register_Object oTabPage2 Register_Object oTabPage3 Register_Object oTabPage4 Register_Object oTabPage5 Register_Object oTagAttributeNames Register_Object oTagElementNames Register_Object oTagEntities Register_Object oTargetChar Register_Object oTermination Register_Object oTextBox1 Register_Object oUseBitmaps Register_Object oVars Register_Object oVcsGrp Register_Object oWarn Register_Object oWrkSpc Register_Object TP__6_Language Register_Object TP_General Register_Object TP_Procedural Register_Object TP_SGML Use Parsefn.pkg Cd_Popup_Object oNewLang Is a dbModalPanel #IF (!@ >= 140) Set pbSizeToClientArea to False #ENDIF Property Integer Invoking_Object_ID Public 0 Set Label To "Create New Language" Set Size To 58 187 Set Location To 6 79 Set Border_Style To Border_Dialog Object oLang Is a Form Set Label To "Language name:" Set Size To 13 108 Set Location To 5 68 End_Object // oLang Object oOK Is a Button Set Label To "&OK" Set Location To 23 68 Procedure OnClick Send mNewLang End_Procedure End_Object // oOK Object oCancel Is a Button Set Label To "&Cancel" Set Location To 23 126 Procedure OnClick Send Close_Panel End_Procedure End_Object // oCancel Procedure mNewLang String sLang Integer iObj iC iRet Get Invoking_Object_ID To iObj Get Value Of (oLang(Current_Object)) Item 0 To sLang If ((iObj)And(sLang<>"")) Begin Get FindLanguage Of ghoEditorProperties sLang To iC If iC Lt 0 Begin Get YesNo_Box "Do you want create a new language?" To iRet If (iRet<>MBR_Yes) Begin Send Close_Panel End Else Begin Send ClearEntries To (Parent(iObj)) // Should rest the values to empty! Send Combo_Add_Item Of iObj sLang Set Value Of iObj Item 0 To sLang Send OnChange To iObj End End End Send Close_Panel End_Procedure Procedure Popup Set Invoking_Object_ID To (Focus(Desktop)) Forward Send Popup End_Procedure Cd_End_Object // oNewLang Object oLanguage_SL Is a dbModalPanel #IF (!@ >= 140) Set pbSizeToClientArea to False #ENDIF Set Label To "Languages" Set Size To 148 173 Set Location To 4 4 Object oSelList Is a List Property Integer Invoking_Object_Id Public 0 Set Size To 107 158 Set Location To 6 6 Procedure AddLine String sTxt Send add_item msg_none sTxt End_Procedure Procedure Fill Integer iCount iC String sStr Send Delete_Data Send AddLine "C/C++" Send AddLine "Basic" Send AddLine "Java" Send AddLine "Pascal" Send AddLine "SQL" Send AddLine "HTML" Send AddLine "XML" Get psLanguages.Count Of ghoEditorProperties To iCount For iC From 0 To (iCount-1) Get psLanguages Of ghoEditorProperties Item iC To sStr Send AddLine sStr End End_Procedure // Combo_fill_list Procedure Ok Integer hoID String sVal Get value Item (Current_Item(Self)) To sVal Get Invoking_Object_Id To hoID If hoID Set value Of hoID To sVal Send Close_Panel End_Procedure On_Key kEnter Send Ok On_Key KCANCEL Send Close_Panel Procedure mouse_click Integer iPara0 Send Ok End_Procedure End_Object // oSelList Procedure popup Set Invoking_Object_Id Of (oSelList(Self)) To (Focus(Desktop)) Send Fill To (oSelList(Self)) Forward Send popup End_Procedure Object oOK_bn Is a Button Set Label To "Ok" Set Location To 114 61 Procedure OnClick Send OK To oSelList End_Procedure End_Object // oOK_bn Object oCancel_bn Is a Button Set Label To "Cancel" Set Location To 114 115 Procedure OnClick Send Close_Panel End_Procedure End_Object // oCancel_bn End_Object // LookUp Procedure Activate_oParas Send Popup To oParas End_Procedure // Activate_oParas Use cTabDialogShadow.pkg Use cNotifierSpinform.pkg Use cGridForm.pkg Use cNotifierForm.pkg Use cNotifierCheckBox.pkg Object oParas is a ModalPanel #IF (!@ >= 140) Set pbSizeToClientArea to False #ENDIF //Set LargeTaskbarIcon To "PANEL32.bmp" //Set SmallTaskbarIcon To "PANEL16.bmp" //Set IconTransparentColor To (Rgb(255,0,255)) Set Label To "Parameters" Set Popup_State To True Set Locate_Mode To CENTER_ON_SCREEN Procedure Activate_View Send Popup End_Procedure // Activate_View Set Label to "Parameters" Set Size to 252 418 Set Location to 1 2 Object oTabDialog1 is a cTabDialogShadow Set Size to 206 404 Set Location to 4 5 Object oTabPage1 is a cTabPageShadow Set Label to "&1 Editor" Object oEditorGrp is a Group Set Size to 183 264 Set Location to 2 4 Set Label to "Files" Object oItem1 is a cNotifierSpinForm Set Label to "Number of recent opened files:" Set Size to 13 50 Set Location to 10 103 Set Label_Col_Offset to 0 Set Label_Justification_Mode to jMode_Right Set Form_DataType to Ascii_window Set form_datatype Item 0 To 0 Set Status_Help To "Number of recently opened files in File menu." End_Object // oItem1 Object oItem0Txt is a Textbox Set Label to "File Types for OpenDialog:" Set Location to 29 17 Set Size to 10 85 Set TypeFace to "MS Sans Serif" End_Object // oItem0Txt Object oItem0 is a cGridForm Set Size to 83 154 Set Location to 27 102 Set Line_Width to 2 0 Set Form_Width item 0 to 105 Set Header_Label item 0 to "Description" Set Form_Width item 1 to 40 Set Header_Label item 1 to "EXT" Set psSepCharacter To "|" Set Columns To 2 On_Key key_F2 Send Request_SaveAllEntries On_Key kCancel Send Close_Panel Set Status_Help Item 0 To "Descriptions to be shown in The Hammer Open File Dialog" Set Status_Help Item 1 To "Extensions to be shown in The Hammer Open File Dialog" Procedure onChange Delegate Send NotifyChange End_Procedure End_Object // oItem0 Object oRegisterRemoveBtn is a Button // **WvA: 7-5-2 Disabled the control as it will have to be // WIP for a little while. There's no time left to finish. // The tools we need for this is the RegDelKeya external def // from the VDF7 registry package Set Enabled_State To False Set Visible_State To False Set Label to "Remove Association" Set Size to 14 75 Set Location to 95 22 Procedure OnClick Integer iRet String sStr Append sStr "All listed filetypes will be assiciated to The Hammer!\n" Append sStr "If you are using WinNT or Win2K you will need administrator " Append sStr "rights to do this.\n\n" Append sStr "Proceed?" Get YesNo_Box sStr To iRet If iRet Ne MBR_Yes Procedure_Return Send SaveEntries Send AsociateAllFileTypes End_Procedure End_Object // oRegisterRemoveBtn Object oDefLng is a cNotifierForm Set Label to "Default language:" Set Size to 13 50 Set Location to 113 102 Set prompt_button_mode To PB_promptOn Set Prompt_Object Item 0 To (oLanguage_SL(Self)) Set Status_Help To "Default language to be used on TheHammer startup" End_Object // oDefLng Object oLanguageTxt is a Textbox Set Label to "Assign Language to Extention:" Set Location to 132 4 Set Size to 10 97 Set TypeFace to "MS Sans Serif" End_Object // oLanguageTxt Object oLanguage is a cGridForm Set Size to 43 154 Set Location to 130 102 Set Line_Width to 2 0 Set Form_Width item 0 to 40 Set Header_Label item 0 to "EXT" Set Form_Width item 1 to 105 Set Header_Label item 1 to "Language >>" Set psSepCharacter To "|" Set Columns To 2 Set Status_Help Item 0 To "Open particular file with Editor specific language" Set Status_Help Item 1 To "Open particular file with Editor specific language" On_Key key_F2 Send Request_SaveAllEntries On_Key kCancel Send Close_Panel Procedure onChange Delegate Send NotifyChange End_Procedure Set Column_Prompt_Object Item 1 To (oLanguage_SL(Self)) End_Object // oLanguage Object oRegisterBtn is a Button Set Label to "Associate FileTypes" Set Size to 14 75 Set Location to 77 22 Procedure OnClick Integer iRet String sStr Append sStr "All listed filetypes will be assiciated to The Hammer!\n" Append sStr "If you are using WinNT or Win2K you will need administrator " Append sStr "rights to do this.\n\n" Append sStr "Proceed?" Get YesNo_Box sStr To iRet If iRet Ne MBR_Yes Procedure_Return Send SaveEntries Send AsociateAllFileTypes End_Procedure End_Object // oRegisterBtn End_Object // oEditorGrp Object oASGrp is a Group Set Size to 109 121 Set Location to 2 274 Set Label to "Show Code Lists for" Object oClasses is a cNotifierCheckBox Set Label to "Class Names" Set Size to 10 57 Set Location to 11 56 Set AlignmentMode to taLeftJustify Set Status_Help To "Show Codelist if Class Name reason" End_Object // oClasses Object oObjects is a cNotifierCheckBox Set Label to "Object Names" Set Size to 10 61 Set Location to 24 52 Set AlignmentMode to taLeftJustify Set Status_Help To "Show Codelist if Object Name reason" End_Object // oObjects Object oMethods is a cNotifierCheckBox Set Label to "Procedures and Functions" Set Size to 10 99 Set Location to 38 14 Set AlignmentMode to taLeftJustify Set Status_Help To "Show Codelist if Procedure/Function reason" End_Object // oMethods Object oKeys is a cNotifierCheckBox Set Label to "Key Symbolic Names " Set Size to 10 85 Set Location to 52 28 Set AlignmentMode to taLeftJustify Set Status_Help To "Show Codelist if Key Symbolic Name reason" End_Object // oKeys Object oFields is a cNotifierCheckBox Set Label to "Data File Fields" Set Size to 10 65 Set Location to 65 48 Set AlignmentMode to taLeftJustify Set Status_Help To "Show Codelist if Data File Field name reason" End_Object // oFields Object oIndexes is a cNotifierCheckBox Set Label to "Data File Indexes" Set Size to 10 71 Set Location to 79 42 Set AlignmentMode to taLeftJustify Set Status_Help To "Show Codelist if datafile Index reason" End_Object // oIndexes Object oVars is a cNotifierCheckBox Set Label to "Local Variables" Set Size to 10 65 Set Location to 93 48 Set AlignmentMode to taLeftJustify Set Status_Help To "Show Codelist if Local Variable Name reason" End_Object // oVars End_Object // oASGrp Object oCodeList is a Group Set Size to 73 121 Set Location to 112 274 Set Label to "Code List and CodeTip" Object oUseBitmaps is a cNotifierCheckBox Set Label to "Use Bitmaps (works slower)" Set Size to 10 103 Set Location to 12 10 Set AlignmentMode to taLeftJustify Set Status_Help To "Show Bitmaps within Codelists (may work slower)" End_Object // oUseBitmaps Object oEnableCodeTip is a cNotifierCheckBox Set Label to "Enable Code Tips" Set Size to 10 73 Set Location to 26 40 Set AlignmentMode to taLeftJustify Set Status_Help To "Enables or disables CodeTip popup" End_Object // oEnableCodeTip Object oCodeTipAutoPopup is a cNotifierCheckBox Set Label to "Code Tip Auto Popup" Set Size to 10 85 Set Location to 40 28 Set AlignmentMode to taLeftJustify Set Status_Help To "Show Codetip automatically on function call" End_Object // oCodeTipAutoPopup Object oCodeTipIni is a cNotifierForm Set Label to "INI File:" Set Size to 13 79 Set Location to 55 34 Set prompt_button_mode To PB_promptOn Set Status_Help To "The Hammer INI file with functions defined for CodeTips" Procedure Prompt Integer hoID bRet String sFileName sBmpDir Object oOpenDialog Is a OpenDialog Set Location To 5 471 Set Dialog_Caption To "Please Select INI file" Set Filter_String To "INI Files|*.INI|All Files|*.*" Set NoChangeDir_State To TRUE Move Self To hoID End_Object // oOpenDialog If (hoID <> 0) Begin Get CurrentProgramPath Of ghoWorkSpaceHandlerEx To sBmpDir Set Initial_Folder Of hoID To sBmpDir Get Show_Dialog Of hoID To bRet If bRet Begin Get File_Title Of hoID To sFileName Set Value Item 0 To sFileName End End Send Request_Destroy_Object To hoID End_Procedure End_Object // oCodeTipIni End_Object // oCodeList Set Bitmap To "View16.bmp" (RGB(255,255,0)) Procedure SaveEntries Integer iCount iC iCount2 String sExt sLang Set psFileTypes Of ghoEditorProperties To (GetValue(oItem0(oEditorGrp(Self)))) Set piRecentFilesLimit Of ghoEditorProperties To (Value(oItem1(oEditorGrp(Self)),0)) Set psLanguage Of ghoEditorProperties To (Value(oDefLng(oEditorGrp(Self)),0)) // CodeTip/CodeList Set pbCodeListUseBitmaps Of ghoEditorProperties To (Checked_State(oUseBitmaps(oCodeList(Self)))) Set pbUseCodeTips Of ghoEditorProperties To (Checked_State(oEnableCodeTip(oCodeList(Self)))) Set pbCodeTipAutoPopup Of ghoEditorProperties To (Checked_State(oCodeTipAutoPopup(oCodeList(Self)))) Set psCodeTipIniFile Of ghoEditorProperties To (Value(oCodeTipIni(oCodeList(Self)),0)) // Code Lists Auto Popup Set pbShowClasses Of ghoEditorProperties To (Checked_State(oClasses(oASGrp(Self)))) Set pbShowObjects Of ghoEditorProperties To (Checked_State(oObjects(oASGrp(Self)))) Set pbShowMethods Of ghoEditorProperties To (Checked_State(oMethods(oASGrp(Self)))) Set pbShowKeys Of ghoEditorProperties To (Checked_State(oKeys(oASGrp(Self)))) Set pbShowFields Of ghoEditorProperties To (Checked_State(oFields(oASGrp(Self)))) Set pbShowIndexes Of ghoEditorProperties To (Checked_State(oIndexes(oASGrp(Self)))) Set pbShowVariables Of ghoEditorProperties To (Checked_State(oVars(oASGrp(Self)))) Get Item_Count Of (oLanguage(oEditorGrp(Self))) To iCount Send psLangAssign.DeleteAllItems To ghoEditorProperties For iC From 0 To (iCount-1) Get value Of (oLanguage(oEditorGrp(Self))) Item iC To sExt Get value Of (oLanguage(oEditorGrp(Self))) Item (iC+1) To sLang If sExt Ne "" If sLang Ne "" Begin Get psLangAssign.Count Of ghoEditorProperties To iCount2 Set psLangAssign.Ext Of ghoEditorProperties Item iCount2 To sExt Set psLangAssign.Language Of ghoEditorProperties Item iCount2 To sLang End Increment iC End End_Procedure Procedure LoadEntries Integer iCount iC Send SetValue To (oItem0(oEditorGrp(Self))) (psFileTypes(ghoEditorProperties)) Set Value Of (oItem1(oEditorGrp(Self))) To (piRecentFilesLimit(ghoEditorProperties)) Set Value Of (oDefLng(oEditorGrp(Self))) To (psLanguage(ghoEditorProperties)) // CodeTip/CodeList Set Checked_State Of (oUseBitmaps(oCodeList(Self))) To (pbCodeListUseBitmaps(ghoEditorProperties)) Set Checked_State Of (oEnableCodeTip(oCodeList(Self))) To (pbUseCodeTips(ghoEditorProperties)) Set Checked_State Of (oCodeTipAutoPopup(oCodeList(Self))) To (pbCodeTipAutoPopup(ghoEditorProperties)) Set Value Of (oCodeTipIni(oCodeList(Self))) To (psCodeTipIniFile(ghoEditorProperties)) // Code Lists Auto Popups Set Checked_State Of (oClasses(oASGrp(Self))) To (pbShowClasses(ghoEditorProperties)) Set Checked_State Of (oObjects(oASGrp(Self))) To (pbShowObjects(ghoEditorProperties)) Set Checked_State Of (oMethods(oASGrp(Self))) To (pbShowMethods(ghoEditorProperties)) Set Checked_State Of (oKeys(oASGrp(Self))) To (pbShowKeys(ghoEditorProperties)) Set Checked_State Of (oFields(oASGrp(Self))) To (pbShowFields(ghoEditorProperties)) Set Checked_State Of (oIndexes(oASGrp(Self))) To (pbShowIndexes(ghoEditorProperties)) Set Checked_State Of (oVars(oASGrp(Self))) To (pbShowVariables(ghoEditorProperties)) Get psLangAssign.Count Of ghoEditorProperties To iCount For iC From 0 To (iCount-1) Set value Of (oLanguage(oEditorGrp(Self))) Item ((iC*2)+0) To (psLangAssign.Ext(ghoEditorProperties,iC)) Set value Of (oLanguage(oEditorGrp(Self))) Item ((iC*2)+1) To (psLangAssign.Language(ghoEditorProperties,iC)) End End_Procedure End_Object // oTabPage1 Object oTabPage2 is a cTabPageShadow Set Label to "&2 Compiler / Debugger" Object oOpenDialog is a OpenDialog Set Location to 1 374 Set Dialog_Caption to "Select a file" Set Filter_String to "Executables|*.exe|All Files|*.*" Set NoChangeDir_State To TRUE End_Object // oOpenDialog Object oWrkSpc is a cNotifierCheckBox Set Label to "Use Workspaces" Set Size to 10 71 Set Location to 4 71 End_Object // oWrkSpc Object oCompilerSpy is a cNotifierCheckBox Set Label to "Display Compiler Messages" Set Size to 10 102 Set Location to 15 71 Procedure select_toggling Integer iItem Integer iSelect Forward Send select_toggling iItem iSelect Send Info_box "You have to restart the Program to activate/deactivate this Option!" "Information" End_Procedure Procedure OnChange Forward Send OnChange Set enabled_state Of (oAutomaticDisplay(self)) to (checked_state(self)) End_Procedure End_Object // oCompilerSpy Object oAutomaticDisplay is a cNotifierCheckBox Set Label to "Display/Hide Compiler Messages automatically" Set Size to 10 163 Set Location to 15 178 End_Object // oAutomaticDisplay Object oCompilerGrp is a Group Set Size to 61 390 Set Location to 26 4 Set Label to "Compiler" Object oCmd is a cNotifierForm Set Label to "Command line:" Set Size to 13 260 Set Location to 10 67 Set Status_Help To "Command line to be used to start compiler" End_Object // oCmd Object oCompOptions is a cNotifierForm Set Label to "Compile Options:" Set Size to 13 84 Set Location to 28 67 Set Status_Help To "Compiler options on startup" End_Object // oCompOptions Object oPrecompOptions is a cNotifierForm Set Label to "Pre-Compile Options:" Set Size to 13 85 Set Location to 28 242 Set Status_Help To "Pre-compile options for headers compilation" End_Object // oPrecompOptions Object oMsgBox is a cNotifierCheckBox Set Label to "Show Error Message Box" Set Size to 10 96 Set Location to 45 67 Set Status_Help To "Will show Errors list in the TH Message Area (if case)" End_Object // oMsgBox Object oBrowseCompiler_bn is a Button Set Label to "Browse" Set Location to 10 333 Set Status_Help To "Browse for files" Procedure OnClick Integer hoDialog bOk String sCurrentFolder sFileName sDirSep Move (Sysconf(SYSCONF_DIR_SEPARATOR)) To sDirSep Get Value Of oCmd Item 0 To sFileName Move (Trim(sFileName)) To sFileName If (Pos(sDirSep,sFileName) <> 0) Begin Move (Parse_Drive(sFileName)+Parse_Path(sFileName)+sDirSep) To sCurrentFolder End Else Begin End Move (oOpenDialog(Self)) To hoDialog If (hoDialog <> 0) Begin Set Dialog_Caption Of hoDialog To "Select the VDF compiler" Set Initial_Folder Of hoDialog To sCurrentFolder Get Show_Dialog Of hoDialog To bOk If bOk Begin Get File_Name Of hoDialog To sFileName Set Value Of oCmd Item 0 To sFileName Set Item_Changed_State Of oCmd Item 0 To True If (Focus(Self) <> (oCmd(Self)) ) Begin Send Activate To oCmd End End End End_Procedure // OnClick End_Object // oBrowseCompiler_bn Procedure NotifyChange Delegate Send NotifyChange End_Procedure End_Object // oCompilerGrp Object oDebuggerGrp is a Group Set Size to 61 390 Set Location to 90 4 Set Label to "Debugger" Object oCmd is a cNotifierForm Set Label to "Command line:" Set Size to 13 260 Set Location to 10 67 End_Object // oCmd Object oComp is a cNotifierForm Set Label to "Compile Options:" Set Size to 13 84 Set Location to 28 67 Set Object_Shadow_State To True End_Object // oComp Object oRecomp is a cNotifierCheckBox Set Label to "Recompile before debugging" Set Size to 10 107 Set Location to 45 67 End_Object // oRecomp Object oDebugAlways is a cNotifierCheckBox Set Label to "Always start with Debugger" Set Size to 10 102 Set Location to 45 177 End_Object // oDebugAlways Object oBrowseDebugger_bn is a Button Set Label to "Browse" Set Location to 10 333 Procedure OnClick Integer hoDialog bOk String sCurrentFolder sFileName sDirSep Move (Sysconf(SYSCONF_DIR_SEPARATOR)) To sDirSep Get Value Of oCmd Item 0 To sFileName Move (Trim(sFileName)) To sFileName If (Pos(sDirSep,sFileName) <> 0) Begin Move (Parse_Drive(sFileName)+Parse_Path(sFileName)+sDirSep) To sCurrentFolder End Else Begin End Move (oOpenDialog(Self)) To hoDialog If (hoDialog <> 0) Begin Set Dialog_Caption Of hoDialog To "Select the debugger" Set Initial_Folder Of hoDialog To sCurrentFolder Get Show_Dialog Of hoDialog To bOk If bOk Begin Get File_Name Of hoDialog To sFileName Set Value Of oCmd Item 0 To sFileName Set Item_Changed_State Of oCmd Item 0 To True If (Focus(Self) <> (oCmd(Self)) ) Begin Send Activate To oCmd End End End End_Procedure // OnClick End_Object // oBrowseDebugger_bn Procedure NotifyChange Delegate Send NotifyChange End_Procedure End_Object // oDebuggerGrp Object oDfrunGrp is a Group Set Size to 31 390 Set Location to 154 4 Set Label to "Dfrun" Object oCmd is a cNotifierForm Set Label to "Command line:" Set Size to 13 260 Set Location to 10 67 End_Object // oCmd Object oBrowseRuntime_bn is a Button Set Label to "Browse" Set Location to 10 333 Procedure OnClick Integer hoDialog bOk String sCurrentFolder sFileName sDirSep Move (Sysconf(SYSCONF_DIR_SEPARATOR)) To sDirSep Get Value Of oCmd Item 0 To sFileName Move (Trim(sFileName)) To sFileName If (Pos(sDirSep,sFileName) <> 0) Begin Move (Parse_Drive(sFileName)+Parse_Path(sFileName)+sDirSep) To sCurrentFolder End Else Begin End Move (oOpenDialog(Self)) To hoDialog If (hoDialog <> 0) Begin Set Dialog_Caption Of hoDialog To "Select the VDF runtime" Set Initial_Folder Of hoDialog To sCurrentFolder Get Show_Dialog Of hoDialog To bOk If bOk Begin Get File_Name Of hoDialog To sFileName Set Value Of oCmd Item 0 To sFileName Set Item_Changed_State Of oCmd Item 0 To True If (Focus(Self) <> (oCmd(Self)) ) Begin Send Activate To oCmd End End End End_Procedure // OnClick End_Object // oBrowseRuntime_bn Procedure NotifyChange Delegate Send NotifyChange End_Procedure End_Object // oDfrunGrp Set Bitmap To "Comp16.bmp" (Rgb(255,255,0)) Procedure SaveEntries Set piUseWorkSpace Of ghoEditorProperties To (Select_State(oWrkSpc(Self),0)) Set piWatchCompiler Of ghoEditorProperties to (Select_state(oCompilerSpy(self),0)) Set piDisplayWatchAutomatic Of ghoEditorProperties to (Select_state(oAutomaticDisplay(self),0)) Set psCompiler Of ghoEditorProperties To (Value(oCmd(oCompilerGrp(Self)),0)) Set psCompiler.CompOptions Of ghoEditorProperties To (Value(oCompOptions(oCompilerGrp(Self)),0)) Set psCompiler.PreCompOptions Of ghoEditorProperties To (Value(oPrecompOptions(oCompilerGrp(Self)),0)) Set piCompileShowErrorMsg Of ghoEditorProperties To (Select_State(oMsgBox(oCompilerGrp(Self)),0)) Set psDebugger Of ghoEditorProperties To (Value(oCmd(oDebuggerGrp(Self)),0)) Set psDebugCompiler Of ghoEditorProperties To (Value(oComp(oDebuggerGrp(Self)),0)) Set piCompiler4Debug Of ghoEditorProperties To (Select_State(oRecomp(oDebuggerGrp(Self)),0)) Set piDebugAlways Of ghoEditorProperties to (Select_state(oDebugAlways(oDebuggerGrp(self)),0)) Set psDfrun Of ghoEditorProperties To (Value(oCmd(oDfrunGrp(Self)),0)) End_Procedure Procedure LoadEntries Set Select_State Of (oWrkSpc(Self)) To (piUseWorkSpace(ghoEditorProperties)) Set select_state Of (oCompilerSpy(self)) to (piWatchCompiler(ghoEditorProperties)) Set select_state Of (oAutomaticDisplay(self)) to (piDisplayWatchAutomatic(ghoEditorProperties)) Set Value Of (oCmd(oCompilerGrp(Self))) To (psCompiler(ghoEditorProperties)) Set Value Of (oCompOptions(oCompilerGrp(Self))) To (psCompiler.CompOptions(ghoEditorProperties)) Set Value Of (oPrecompOptions(oCompilerGrp(Self))) To (psCompiler.PreCompOptions(ghoEditorProperties)) Set Select_State Of (oMsgBox(oCompilerGrp(Self))) To (piCompileShowErrorMsg(ghoEditorProperties)) Set Value Of (oCmd(oDebuggerGrp(Self))) To (psDebugger(ghoEditorProperties)) Set Value Of (oComp(oDebuggerGrp(Self))) To (psDebugCompiler(ghoEditorProperties)) Set Select_State Of (oRecomp(oDebuggerGrp(Self))) To (piCompiler4Debug(ghoEditorProperties)) Set select_state Of (oDebugAlways(oDebuggerGrp(self))) to (piDebugAlways(ghoEditorProperties)) Set Value Of (oCmd(oDfrunGrp(Self))) To (psDfrun(ghoEditorProperties)) End_Procedure End_Object // oTabPage2 Object oTabPage3 is a cTabPageShadow Set Label to "&3 Source" Object oOpenDialog is a OpenDialog Set Location to 170 379 Set Dialog_Caption to "Select a file" Set Filter_String to "Executables|*.exe|All Files|*.*" Set NoChangeDir_State To TRUE End_Object // oOpenDialog Object oArtGrp is a Group Set Size to 29 390 Set Location to 1 4 Set Label to "Code Art Utility" Object oCmd is a cNotifierForm Set Label to "Command line:" Set Size to 13 260 Set Location to 10 67 End_Object // oCmd Object oBrowseDebugger_bn is a Button Set Label to "Browse" Set Location to 10 333 Procedure OnClick Integer hoDialog bOk String sCurrentFolder sFileName sDirSep Move (Sysconf(SYSCONF_DIR_SEPARATOR)) To sDirSep Get Value Of oCmd Item 0 To sFileName Move (Trim(sFileName)) To sFileName If (Pos(sDirSep,sFileName) <> 0) Begin Move (Parse_Drive(sFileName)+Parse_Path(sFileName)+sDirSep) To sCurrentFolder End Else Begin End Move (oOpenDialog(Self)) To hoDialog If (hoDialog <> 0) Begin Set Dialog_Caption Of hoDialog To "Select the Code Art Utility" Set Initial_Folder Of hoDialog To sCurrentFolder Get Show_Dialog Of hoDialog To bOk If bOk Begin Get File_Name Of hoDialog To sFileName Set Value Of oCmd Item 0 To sFileName Set Item_Changed_State Of oCmd Item 0 To True If (Focus(Self) <> (oCmd(Self)) ) Begin Send Activate To oCmd End End End End_Procedure // OnClick End_Object // oBrowseDebugger_bn End_Object // oArtGrp Object oSpyGrp is a Group Set Size to 29 390 Set Location to 32 4 Set Label to "Code Spy Utility" Object oCmd is a cNotifierForm Set Label to "Command line:" Set Size to 13 260 Set Location to 10 67 End_Object // oCmd Object oBrowseDebugger_bn is a Button Set Label to "Browse" Set Location to 10 333 Procedure OnClick Integer hoDialog bOk String sCurrentFolder sFileName sDirSep Move (Sysconf(SYSCONF_DIR_SEPARATOR)) To sDirSep Get Value Of oCmd Item 0 To sFileName Move (Trim(sFileName)) To sFileName If (Pos(sDirSep,sFileName) <> 0) Begin Move (Parse_Drive(sFileName)+Parse_Path(sFileName)+sDirSep) To sCurrentFolder End Else Begin End Move (oOpenDialog(Self)) To hoDialog If (hoDialog <> 0) Begin Set Dialog_Caption Of hoDialog To "Select the Code Spy Utility" Set Initial_Folder Of hoDialog To sCurrentFolder Get Show_Dialog Of hoDialog To bOk If bOk Begin Get File_Name Of hoDialog To sFileName Set Value Of oCmd Item 0 To sFileName Set Item_Changed_State Of oCmd Item 0 To True If (Focus(Self) <> (oCmd(Self)) ) Begin Send Activate To oCmd End End End End_Procedure // OnClick End_Object // oBrowseDebugger_bn End_Object // oSpyGrp Object oMergeGrp is a Group Set Size to 29 390 Set Location to 63 4 Set Label to "Code Merge Utility" Object oCmd is a cNotifierForm Set Label to "Command line:" Set Size to 13 260 Set Location to 10 67 End_Object // oCmd Object oBrowseDebugger_bn is a Button Set Label to "Browse" Set Location to 10 333 Procedure OnClick Integer hoDialog bOk String sCurrentFolder sFileName sDirSep Move (Sysconf(SYSCONF_DIR_SEPARATOR)) To sDirSep Get Value Of oCmd Item 0 To sFileName Move (Trim(sFileName)) To sFileName If (Pos(sDirSep,sFileName) <> 0) Begin Move (Parse_Drive(sFileName)+Parse_Path(sFileName)+sDirSep) To sCurrentFolder End Else Begin End Move (oOpenDialog(Self)) To hoDialog If (hoDialog <> 0) Begin Set Dialog_Caption Of hoDialog To "Select the Merge Utility" Set Initial_Folder Of hoDialog To sCurrentFolder Get Show_Dialog Of hoDialog To bOk If bOk Begin Get File_Name Of hoDialog To sFileName Set Value Of oCmd Item 0 To sFileName Set Item_Changed_State Of oCmd Item 0 To True If (Focus(Self) <> (oCmd(Self)) ) Begin Send Activate To oCmd End End End End_Procedure // OnClick End_Object // oBrowseDebugger_bn End_Object // oMergeGrp Object oVcsGrp is a Group Set Size to 29 390 Set Location to 125 4 Set Label to "Version Control System" Object oCmd is a cNotifierForm Set Label to "Command line:" Set Size to 13 260 Set Location to 10 67 End_Object // oCmd Object oBrowseDebugger_bn is a Button Set Label to "Browse" Set Location to 10 333 Procedure OnClick Integer hoDialog bOk String sCurrentFolder sFileName sDirSep Move (Sysconf(SYSCONF_DIR_SEPARATOR)) To sDirSep Get Value Of oCmd Item 0 To sFileName Move (Trim(sFileName)) To sFileName If (Pos(sDirSep,sFileName) <> 0) Begin Move (Parse_Drive(sFileName)+Parse_Path(sFileName)+sDirSep) To sCurrentFolder End Else Begin End Move (oOpenDialog(Self)) To hoDialog If (hoDialog <> 0) Begin Set Dialog_Caption Of hoDialog To "Select the Version Control System" Set Initial_Folder Of hoDialog To sCurrentFolder Get Show_Dialog Of hoDialog To bOk If bOk Begin Get File_Name Of hoDialog To sFileName Set Value Of oCmd Item 0 To sFileName Set Item_Changed_State Of oCmd Item 0 To True If (Focus(Self) <> (oCmd(Self)) ) Begin Send Activate To oCmd End End End End_Procedure // OnClick End_Object // oBrowseDebugger_bn End_Object // oVcsGrp Object oMenuGrp is a Group Set Size to 29 390 Set Location to 94 4 Set Label to "Menu Editor Utility" Object oCmd is a cNotifierForm Set Label to "Command line:" Set Size to 13 260 Set Location to 10 67 End_Object // oCmd Object oBrowseDebugger_bn is a Button Set Label to "Browse" Set Location to 10 333 Procedure OnClick Integer hoDialog bOk String sCurrentFolder sFileName sDirSep Move (Sysconf(SYSCONF_DIR_SEPARATOR)) To sDirSep Get Value Of oCmd Item 0 To sFileName Move (Trim(sFileName)) To sFileName If (Pos(sDirSep,sFileName) <> 0) Begin Move (Parse_Drive(sFileName)+Parse_Path(sFileName)+sDirSep) To sCurrentFolder End Else Begin End Move (oOpenDialog(Self)) To hoDialog If (hoDialog <> 0) Begin Set Dialog_Caption Of hoDialog To "Select the Menu Editor" Set Initial_Folder Of hoDialog To sCurrentFolder Get Show_Dialog Of hoDialog To bOk If bOk Begin Get File_Name Of hoDialog To sFileName Set Value Of oCmd Item 0 To sFileName Set Item_Changed_State Of oCmd Item 0 To True If (Focus(Self) <> (oCmd(Self)) ) Begin Send Activate To oCmd End End End End_Procedure // OnClick End_Object // oBrowseDebugger_bn End_Object // oMenuGrp Object oPubGrp is a Group Set Size to 30 390 Set Location to 156 4 Set Label to "Code Publishing Tool" Object oCmd is a cNotifierForm Set Label to "Command line:" Set Size to 13 260 Set Location to 10 67 End_Object // oCmd Object oBrowseDebugger_bn is a Button Set Label to "Browse" Set Location to 11 333 Procedure OnClick Integer hoDialog bOk String sCurrentFolder sFileName sDirSep Move (Sysconf(SYSCONF_DIR_SEPARATOR)) To sDirSep Get Value Of oCmd Item 0 To sFileName Move (Trim(sFileName)) To sFileName If (Pos(sDirSep,sFileName) <> 0) Begin Move (Parse_Drive(sFileName)+Parse_Path(sFileName)+sDirSep) To sCurrentFolder End Else Begin End Move (oOpenDialog(Self)) To hoDialog If (hoDialog <> 0) Begin Set Dialog_Caption Of hoDialog To "Select the Code Publish Tool" Set Initial_Folder Of hoDialog To sCurrentFolder Get Show_Dialog Of hoDialog To bOk If bOk Begin Get File_Name Of hoDialog To sFileName Set Value Of oCmd Item 0 To sFileName Set Item_Changed_State Of oCmd Item 0 To True If (Focus(Self) <> (oCmd(Self)) ) Begin Send Activate To oCmd End End End End_Procedure // OnClick End_Object // oBrowseDebugger_bn End_Object // oPubGrp Procedure SaveEntries Set psMergePath Of ghoEditorProperties To (Value(oCmd(oMergeGrp(Self)),0)) Set psVcsPath Of ghoEditorProperties To (Value(oCmd(oVcsGrp(Self)),0)) Set psCodeArtPath Of ghoEditorProperties To (Value(oCmd(oArtGrp(Self)),0)) Set psCodeSpyPath Of ghoEditorProperties To (Value(oCmd(oSpyGrp(Self)),0)) Set psMenuPath Of ghoEditorProperties To (Value(oCmd(oMenuGrp(Self)),0)) Set psCodePubPath Of ghoEditorProperties To (Value(oCmd(oPubGrp(Self)),0)) End_Procedure Procedure LoadEntries Set Value Of (oCmd(oMergeGrp(Self))) To (psMergePath(ghoEditorProperties)) Set Value Of (oCmd(oVCSGrp(Self))) To (psVcsPath(ghoEditorProperties)) Set Value Of (oCmd(oArtGrp(Self))) To (psCodeArtPath(ghoEditorProperties)) Set Value Of (oCmd(oSpyGrp(Self))) To (psCodeSpyPath(ghoEditorProperties)) Set Value Of (oCmd(oMenuGrp(Self))) To (psMenuPath(ghoEditorProperties)) Set Value Of (oCmd(oPubGrp(Self))) To (psCodePubPath(ghoEditorProperties)) End_Procedure End_Object // oTabPage3 Object oTabPage4 is a cTabPageShadow Set Label to "&4 Database" Object oOpenDialog is a OpenDialog Set Location to 170 379 Set Dialog_Caption to "Select a file" Set Filter_String to "Executables|*.exe|All Files|*.*" Set NoChangeDir_State To TRUE End_Object // oOpenDialog Object oDbbGrp is a Group Set Size to 29 390 Set Location to 1 4 Set Label to "Database Editor" Object oCmd is a cNotifierForm Set Label to "Command line:" Set Size to 13 260 Set Location to 10 67 End_Object // oCmd Object oBrowseDebugger_bn is a Button Set Label to "Browse" Set Location to 10 333 Procedure OnClick Integer hoDialog bOk String sCurrentFolder sFileName sDirSep Move (Sysconf(SYSCONF_DIR_SEPARATOR)) To sDirSep Get Value Of oCmd Item 0 To sFileName Move (Trim(sFileName)) To sFileName If (Pos(sDirSep,sFileName) <> 0) Begin Move (Parse_Drive(sFileName)+Parse_Path(sFileName)+sDirSep) To sCurrentFolder End Else Begin End Move (oOpenDialog(Self)) To hoDialog If (hoDialog <> 0) Begin Set Dialog_Caption Of hoDialog To "Select the DataBase Editor" Set Initial_Folder Of hoDialog To sCurrentFolder Get Show_Dialog Of hoDialog To bOk If bOk Begin Get File_Name Of hoDialog To sFileName Set Value Of oCmd Item 0 To sFileName Set Item_Changed_State Of oCmd Item 0 To True If (Focus(Self) <> (oCmd(Self)) ) Begin Send Activate To oCmd End End End End_Procedure // OnClick End_Object // oBrowseDebugger_bn End_Object // oDbbGrp Object oDbeGrp is a Group Set Size to 29 390 Set Location to 32 4 Set Label to "Database Viewer" Object oCmd is a cNotifierForm Set Label to "Command line:" Set Size to 13 260 Set Location to 10 67 End_Object // oCmd Object oBrowseDebugger_bn is a Button Set Label to "Browse" Set Location to 10 333 Procedure OnClick Integer hoDialog bOk String sCurrentFolder sFileName sDirSep Move (Sysconf(SYSCONF_DIR_SEPARATOR)) To sDirSep Get Value Of oCmd Item 0 To sFileName Move (Trim(sFileName)) To sFileName If (Pos(sDirSep,sFileName) <> 0) Begin Move (Parse_Drive(sFileName)+Parse_Path(sFileName)+sDirSep) To sCurrentFolder End Else Begin End Move (oOpenDialog(Self)) To hoDialog If (hoDialog <> 0) Begin Set Dialog_Caption Of hoDialog To "Select the Database Viewer" Set Initial_Folder Of hoDialog To sCurrentFolder Get Show_Dialog Of hoDialog To bOk If bOk Begin Get File_Name Of hoDialog To sFileName Set Value Of oCmd Item 0 To sFileName Set Item_Changed_State Of oCmd Item 0 To True If (Focus(Self) <> (oCmd(Self)) ) Begin Send Activate To oCmd End End End End_Procedure // OnClick End_Object // oBrowseDebugger_bn End_Object // oDbeGrp Object oRptGrp is a Group Set Size to 60 390 Set Location to 125 4 Set Label to "Report Writer" Object oCmd is a cNotifierForm Set Label to "Command line:" Set Size to 13 260 Set Location to 10 67 End_Object // oCmd Object oBrowseDebugger_bn is a Button Set Label to "Browse" Set Location to 10 333 Procedure OnClick Integer hoDialog bOk String sCurrentFolder sFileName sDirSep Move (Sysconf(SYSCONF_DIR_SEPARATOR)) To sDirSep Get Value Of oCmd Item 0 To sFileName Move (Trim(sFileName)) To sFileName If (Pos(sDirSep,sFileName) <> 0) Begin Move (Parse_Drive(sFileName)+Parse_Path(sFileName)+sDirSep) To sCurrentFolder End Else Begin End Move (oOpenDialog(Self)) To hoDialog If (hoDialog <> 0) Begin Set Dialog_Caption Of hoDialog To "Select the Report Writer" Set Initial_Folder Of hoDialog To sCurrentFolder Get Show_Dialog Of hoDialog To bOk If bOk Begin Get File_Name Of hoDialog To sFileName Set Value Of oCmd Item 0 To sFileName Set Item_Changed_State Of oCmd Item 0 To True If (Focus(Self) <> (oCmd(Self)) ) Begin Send Activate To oCmd End End End End_Procedure // OnClick End_Object // oBrowseDebugger_bn End_Object // oRptGrp Object oDbcGrp is a Group Set Size to 29 390 Set Location to 63 4 Set Label to "Database Compare Utility" Object oCmd is a cNotifierForm Set Label to "Command line:" Set Size to 13 260 Set Location to 10 67 End_Object // oCmd Object oBrowseDebugger_bn is a Button Set Label to "Browse" Set Location to 10 333 Procedure OnClick Integer hoDialog bOk String sCurrentFolder sFileName sDirSep Move (Sysconf(SYSCONF_DIR_SEPARATOR)) To sDirSep Get Value Of oCmd Item 0 To sFileName Move (Trim(sFileName)) To sFileName If (Pos(sDirSep,sFileName) <> 0) Begin Move (Parse_Drive(sFileName)+Parse_Path(sFileName)+sDirSep) To sCurrentFolder End Else Begin End Move (oOpenDialog(Self)) To hoDialog If (hoDialog <> 0) Begin Set Dialog_Caption Of hoDialog To "Select the Database Compare Utility" Set Initial_Folder Of hoDialog To sCurrentFolder Get Show_Dialog Of hoDialog To bOk If bOk Begin Get File_Name Of hoDialog To sFileName Set Value Of oCmd Item 0 To sFileName Set Item_Changed_State Of oCmd Item 0 To True If (Focus(Self) <> (oCmd(Self)) ) Begin Send Activate To oCmd End End End End_Procedure // OnClick End_Object // oBrowseDebugger_bn End_Object // oDbcGrp Object oDbuGrp is a Group Set Size to 29 390 Set Location to 94 4 Set Label to "Database Update Utility" Object oCmd is a cNotifierForm Set Label to "Command line:" Set Size to 13 260 Set Location to 10 67 End_Object // oCmd Object oBrowseDebugger_bn is a Button Set Label to "Browse" Set Location to 10 333 Procedure OnClick Integer hoDialog bOk String sCurrentFolder sFileName sDirSep Move (Sysconf(SYSCONF_DIR_SEPARATOR)) To sDirSep Get Value Of oCmd Item 0 To sFileName Move (Trim(sFileName)) To sFileName If (Pos(sDirSep,sFileName) <> 0) Begin Move (Parse_Drive(sFileName)+Parse_Path(sFileName)+sDirSep) To sCurrentFolder End Else Begin End Move (oOpenDialog(Self)) To hoDialog If (hoDialog <> 0) Begin Set Dialog_Caption Of hoDialog To "Select the Database Update Utility" Set Initial_Folder Of hoDialog To sCurrentFolder Get Show_Dialog Of hoDialog To bOk If bOk Begin Get File_Name Of hoDialog To sFileName Set Value Of oCmd Item 0 To sFileName Set Item_Changed_State Of oCmd Item 0 To True If (Focus(Self) <> (oCmd(Self)) ) Begin Send Activate To oCmd End End End End_Procedure // OnClick End_Object // oBrowseDebugger_bn End_Object // oDbuGrp Procedure SaveEntries Set psDBBPath Of ghoEditorProperties To (Value(oCmd(oDbbGrp(Self)),0)) Set psDBEPath Of ghoEditorProperties To (Value(oCmd(oDbeGrp(Self)),0)) Set psRptPath Of ghoEditorProperties To (Value(oCmd(oRptGrp(Self)),0)) Set psDBCPath Of ghoEditorProperties To (Value(oCmd(oDbcGrp(Self)),0)) Set psDBUPath Of ghoEditorProperties To (Value(oCmd(oDbuGrp(Self)),0)) End_Procedure Procedure LoadEntries Set Value Of (oCmd(oDBBGrp(Self))) To (psDbbPath(ghoEditorProperties)) Set Value Of (oCmd(oDBEGrp(Self))) To (psDbePath(ghoEditorProperties)) Set Value Of (oCmd(oRptGrp(Self))) To (psRptPath(ghoEditorProperties)) Set Value Of (oCmd(oDbcGrp(Self))) To (psDbcPath(ghoEditorProperties)) Set Value Of (oCmd(oDbuGrp(Self))) To (psDbuPath(ghoEditorProperties)) End_Procedure End_Object // oTabPage4 Object oTabPage5 is a cTabPageShadow Set Label to "&5 Utilities" Object oOpenDialog is a OpenDialog Set Location to 170 379 Set Dialog_Caption to "Select a file" Set Filter_String to "Executables|*.exe|All Files|*.*" Set NoChangeDir_State To TRUE End_Object // oOpenDialog Object oCAGrp is a Group Set Enabled_State To (psCodeArtPath(ghoEditorProperties)="") Set Size to 41 390 Set Location to 1 4 Set Label to "Code Art" Object oComments is a cNotifierCheckBox Set Label to "Insert comments followed by end of current scope" Set Size to 10 173 Set Location to 11 6 End_Object // oComments Object oDate is a cNotifierCheckBox Set Label to "Insert Date/Time stamp at the top of formatted source" Set Size to 10 185 Set Location to 24 6 End_Object // oDate Object oWarn is a cNotifierCheckBox Set Label to "Insert CodeArt warnings into formatted source" Set Size to 10 159 Set Location to 11 213 End_Object // oWarn Procedure Activating Forward Send Activating Set Enabled_State To (psCodeArtPath(ghoEditorProperties)="") End_Procedure End_Object // oCAGrp Object oIdeGrp is a Group Set Size to 29 390 Set Location to 90 4 Set Label to "IDE" Object oCmd is a cNotifierForm Set Label to "Command line:" Set Size to 13 260 Set Location to 10 67 End_Object // oCmd Object oBrowseIde_bn is a Button Set Label to "Browse" Set Location to 10 333 Procedure OnClick Integer hoDialog bOk String sCurrentFolder sFileName sDirSep Move (Sysconf(SYSCONF_DIR_SEPARATOR)) To sDirSep Get Value Of oCmd Item 0 To sFileName Move (Trim(sFileName)) To sFileName If (Pos(sDirSep,sFileName) <> 0) Begin Move (Parse_Drive(sFileName)+Parse_Path(sFileName)+sDirSep) To sCurrentFolder End Else Begin End Move (oOpenDialog(Self)) To hoDialog If (hoDialog <> 0) Begin Set Dialog_Caption Of hoDialog To "Select the IDE" Set Initial_Folder Of hoDialog To sCurrentFolder Get Show_Dialog Of hoDialog To bOk If bOk Begin Get File_Name Of hoDialog To sFileName Set Value Of oCmd Item 0 To sFileName Set Item_Changed_State Of oCmd Item 0 To True If (Focus(Self) <> (oCmd(Self)) ) Begin Send Activate To oCmd End End End End_Procedure // OnClick End_Object // oBrowseIde_bn End_Object // oIdeGrp Object oKeyboardGrp is a Group Set Size to 66 390 Set Location to 121 4 Set Label to "Character Translation" Object oCharGrid is a List Set Size to 52 152 Set Location to 10 6 Procedure InsertLine String sSrc String sTarget Send add_item msg_none (sSrc + "-->" + sTarget) End_Procedure Procedure LoadData String sVal String sSrc sTarget Send delete_data If (Left(sVal,1)) Eq "|" Move (Replace("|",sVal,"")) To sVal While ( (Pos("|",sVal)) Ne 0) Move (Left(sVal,(Pos(";",sVal)))) To sSrc Move (Replace(sSrc,sVal,"")) To sVal Move (Replace(";",sSrc,"")) To sSrc Move (Left(sVal,(Pos("|",sVal)))) To sTarget Move (Replace(sTarget,sVal,"")) To sVal Move (Replace("|",sTarget,"")) To sTarget Send InsertLine sSrc sTarget End If (item_count(Self)) Gt 0 Begin Set select_state Item 0 To TRUE Set current_item To 0 Send OnChange End End_Procedure Function SaveData Returns String Integer iCou String sVal sRet If (item_count(Self)) Eq 0 Function_Return "" For iCou From 0 To ( (item_count(Self)) -1) Get value Item iCou To sVal Move (Replace("-->",sVal,";")) To sVal Move (sRet + "|" + sVal) To sRet Loop If sRet Ne "" Move (sRet + "|") To sRet Function_Return sRet End_Function Procedure OnChange String sVal sSrc sTarget Pointer pVal Integer iRet Forward Send OnChange Get value Item (current_item(Self)) To sVal Move (Left(sVal,3)) To sSrc Move (Replace(sSrc,sVal,"")) To sVal Move (Replaces("-",sSrc,"")) To sSrc Move (Replaces(">",sSrc,"")) To sSrc Move (Replaces("-",sVal,"")) To sTarget Move (Replaces(">",sTarget,"")) To sTarget Set value Of (oSrcChar(Self)) To (Character(Integer(sSrc))) Move ( (Trim(sTarget)) + " - " + (Character(Integer(sTarget)))) To sVal Set oem_translate_state Of (oTargetChar(Self)) To TRUE Set value Of (oTargetChar(Self)) Item 0 To sVal Set oem_translate_state Of (oTargetChar(Self)) To FALSE End_Procedure End_Object // oCharGrid Object oSrcChar is a Form Set Label to "Character to Translate:" Set Size to 13 14 Set Location to 10 237 Set Label_Col_Offset to 0 Set Label_Justification_Mode to jMode_Right Set oem_translate_state To FALSE Procedure OnChange String sValue Integer iVal Get value To sValue Move (Ascii(sValue)) To iVal Set value Of oSrcCharValue To iVal End_Procedure // OnChange Set form_margin Item 0 To 1 End_Object // oSrcChar Object oSrcCharValue is a Form Set Label to "Value:" Set Size to 13 33 Set Location to 10 278 Set Label_Col_Offset to 0 Set Label_Justification_Mode to jMode_Right Set enabled_state To FALSE End_Object // oSrcCharValue Object oTargetChar is a ComboForm Set Size to 13 55 Set Location to 30 237 Set Form_Border to 0 Set Label_Col_Offset to 0 Set Label_Justification_Mode to jMode_Right Set Combo_Sort_State to FALSE Set entry_state Item 0 To FALSE Set typeface To "Arial" Set FontSize To 14 0 Set oem_translate_state To FALSE // Combo_Fill_List is called when the list needs filling Procedure Combo_Fill_List Integer iCou iRet String sOem sVal Pointer pVal For iCou From 1 To 255 //32 to 254 Move ( (String(iCou)) + " - " + (Character(iCou)) + (Character(0))) To sVal GetAddress Of sVal To pVal Move (OemToAnsi(pVal,pVal)) To iRet Send combo_add_item (cString(sVal)) Loop End_Procedure // Combo_fill_list End_Object // oTargetChar Object oAssignTranslate_bn is a Button Set Label to "Assign" Set Location to 10 333 Procedure OnClick String sSrc sVal sTarget sItem Integer iCou iItem Get value Of (oSrcCharValue(Self)) To sSrc Get value Of (oTargetChar(Self)) Item 0 To sTarget Move (Left(sTarget,(Pos("-",sTarget)))) To sTarget Move (Replaces("-",sTarget,"")) To sTarget Move (Trim(sTarget)) To sTarget Move (sSrc + "-->" + sTarget) To sItem Move -1 To iItem For iCou From 0 To ((item_count(oCharGrid(Self)))-1) Get value Of (oCharGrid(Self)) Item iCou To sVal If (Left(sVal,(length(sSrc)))) Eq sSrc Begin Move iCou To iItem Move (item_count(oCharGrid(Self))) To iCou End Loop If iItem Eq -1 Begin Send add_item To (oCharGrid(Self)) msg_none " " Move ( (item_count(oChargrid(Self))) -1) To iItem End If iItem Ne -1 Begin Set value Of (oCharGrid(Self)) Item iItem To sItem Set current_item Of (oCharGrid(Self)) To iItem Set select_state Of (oCharGrid(Self)) Item iItem To TRUE Send onChange To (oCharGrid(Self)) End Delegate Send NotifyChange End_Procedure // OnClick End_Object // oAssignTranslate_bn Object oRemoveTranslate_bn is a Button Set Label to "Remove" Set Location to 29 333 Procedure OnClick Integer iSel Get current_item Of (oCharGrid(Self)) To iSel If iSel Ge 0 Begin Send delete_item To (oCharGrid(Self)) iSel If (item_count(oCharGrid(Self))) Gt 0 Begin Set current_item Of (oCharGrid(Self)) To 0 Set select_state Of (oCharGrid(Self)) Item 0 To TRUE End Delegate Send NotifyChange End End_Procedure // OnClick End_Object // oRemoveTranslate_bn Object oTextBox1 is a Textbox Set Label to "Translate To:" Set Location to 31 192 Set Size to 10 43 Set TypeFace to "MS Sans Serif" End_Object // oTextBox1 End_Object // oKeyboardGrp Object oCPGrp is a Group Set Size to 46 390 Set Location to 43 4 Set Label to "Code Publishing" Object oHdr is a cNotifierForm Set Label to "Header file:" Set Size to 13 260 Set Location to 10 67 End_Object // oHdr Object oBrowseHdr_bn is a Button Set Label to "Browse" Set Location to 10 333 Procedure OnClick Integer hoDialog bOk String sCurrentFolder sFileName sDirSep Move (Sysconf(SYSCONF_DIR_SEPARATOR)) To sDirSep Get Value Of oCmd Item 0 To sFileName Move (Trim(sFileName)) To sFileName If (Pos(sDirSep,sFileName) <> 0) Begin Move (Parse_Drive(sFileName)+Parse_Path(sFileName)+sDirSep) To sCurrentFolder End Else Begin End Move (oOpenDialog(Self)) To hoDialog If (hoDialog <> 0) Begin Set Dialog_Caption Of hoDialog To "Select the Header file" Set Filter_String Of hoDialog To "Html|*.htm|All Files|*.*" Set Initial_Folder Of hoDialog To sCurrentFolder Get Show_Dialog Of hoDialog To bOk If bOk Begin Get File_Name Of hoDialog To sFileName Set Value Of oCmd Item 0 To sFileName Set Item_Changed_State Of oCmd Item 0 To True If (Focus(Self) <> (oCmd(Self)) ) Begin Send Activate To oCmd End End End End_Procedure // OnClick End_Object // oBrowseHdr_bn Object oFtr is a cNotifierForm Set Label to "Footer file:" Set Size to 13 260 Set Location to 26 67 End_Object // oFtr Object oBrowseFtr_bn is a Button Set Label to "Browse" Set Location to 27 333 Procedure OnClick Integer hoDialog bOk String sCurrentFolder sFileName sDirSep Move (Sysconf(SYSCONF_DIR_SEPARATOR)) To sDirSep Get Value Of oCmd Item 0 To sFileName Move (Trim(sFileName)) To sFileName If (Pos(sDirSep,sFileName) <> 0) Begin Move (Parse_Drive(sFileName)+Parse_Path(sFileName)+sDirSep) To sCurrentFolder End Else Begin End Move (oOpenDialog(Self)) To hoDialog If (hoDialog <> 0) Begin Set Dialog_Caption Of hoDialog To "Select the Footer file" Set Filter_String Of hoDialog To "Html|*.htm|All Files|*.*" Set Initial_Folder Of hoDialog To sCurrentFolder Get Show_Dialog Of hoDialog To bOk If bOk Begin Get File_Name Of hoDialog To sFileName Set Value Of oCmd Item 0 To sFileName Set Item_Changed_State Of oCmd Item 0 To True If (Focus(Self) <> (oCmd(Self)) ) Begin Send Activate To oCmd End End End End_Procedure // OnClick End_Object // oBrowseFtr_bn End_Object // oCPGrp Procedure SaveEntries String sVal Set psIdePath Of ghoEditorProperties To (Value(oCmd(oIdeGrp(Self)),0)) // Set pbCodeArtInsertComments Of ghoEditorProperties To (Checked_State(oComments(oCAGrp(Self)))) Set pbCodeArtInsertDateTime Of ghoEditorProperties To (Checked_State(oDate(oCAGrp(Self)))) Set pbCodeArtInsertErrors Of ghoEditorProperties To (Checked_State(oWarn(oCAGrp(Self)))) // Set psCodePubHeaderFile Of ghoEditorProperties To (Value(oHdr(oCPGrp(Self)),0)) Set psCodePubFooterFile Of ghoEditorProperties To (Value(oFtr(oCPGrp(Self)),0)) Get SaveData Of (oCharGrid(oKeyboardGrp(Self))) To sVal Set psCharTranslation Of ghoEditorProperties To sVal End_Procedure Procedure LoadEntries Set Value Of (oCmd(oIdeGrp(Self))) To (psIdePath(ghoEditorProperties)) Set Value Of (oHdr(oCPGrp(Self))) To (psCodePubHeaderFile(ghoEditorProperties)) Set Value Of (oFtr(oCPGrp(Self))) To (psCodePubFooterFile(ghoEditorProperties)) Set Checked_State Of (oComments(oCAGrp(Self))) To (pbCodeArtInsertComments(ghoEditorProperties)) Set Checked_State Of (oDate(oCAGrp(Self))) To (pbCodeArtInsertDateTime(ghoEditorProperties)) Set Checked_State Of (oWarn(oCAGrp(Self))) To (pbCodeArtInsertErrors(ghoEditorProperties)) Send LoadData To (oCharGrid(oKeyboardGrp(Self))) (psCharTranslation(ghoEditorProperties)) End_Procedure End_Object // oTabPage5 Object TP__6_Language is a cTabPageShadow Set Label to "&6 Language" Object oLName is a ComboForm Set Label to "Language name:" Set Size to 13 87 Set Location to 5 111 Set Form_Border to 0 Set Label_Col_Offset to 0 Set Label_Justification_Mode to jMode_Right // Combo_Fill_List is called when the list needs filling On_Key key_F2 Send SaveEntries On_Key kCancel Send Close_Panel Procedure Combo_Fill_List Integer iCount iC String sStr sCur Get psLanguages.Count Of ghoEditorProperties To iCount For iC From 0 To (iCount-1) Get psLanguages Of ghoEditorProperties Item iC To sStr Send Combo_Add_Item sStr End Get psLanguage Of ghoEditorProperties To sCur Set Value Item 0 To sCur Set Entry_State To False End_Procedure // Combo_fill_list // notification of a selection change or edit change Procedure OnChange String sName Integer iC iRet Get value Item 0 To sName If (sName<>"") Begin Get FindLanguage Of ghoEditorProperties sName To iC If (iC>=0) Send LoadEntries iC // Should load the entries! Else Send ClearEntries // Should rest the values to empty! Set Enabled_State Of (oLanguage(Self)) To True End Else Set Enabled_State Of (oLanguage(Self)) To False End_Procedure // OnChange Procedure OnSetFocus Forward Send OnSetFocus Send OnChange End_Procedure End_Object // oLName Object oLanguage is a TabDialog Set Enabled_State To False Set Size to 164 391 Set Location to 22 4 Object TP_General is a TabPage Set Label to "General" Object oGroup1 is a Group Set Size to 142 377 Set Location to 2 4 Object oCaseSensitiv is a CheckBox Set Label to "Case sensitive" Set Size to 10 62 Set Location to 22 144 On_Key key_F2 Send SaveEntries On_Key kCancel Send Close_Panel Procedure OnChange End_Procedure // OnChange End_Object // oCaseSensitiv Object oSingLineComm is a Form Set Label to "Single Line Comments:" Set Size to 13 40 Set Location to 36 144 Set Label_Col_Offset to 0 Set Label_Justification_Mode to jMode_Right On_Key key_F2 Send SaveEntries On_Key kCancel Send Close_Panel End_Object // oSingLineComm Object oMultiLineComm1 is a Form Set Label to "Multi Line Comments Start:" Set Size to 13 40 Set Location to 52 144 Set Label_Col_Offset to 0 Set Label_Justification_Mode to jMode_Right On_Key key_F2 Send SaveEntries On_Key kCancel Send Close_Panel End_Object // oMultiLineComm1 Object oMultiLineComm2 is a Form Set Label to "Multi Line Comments End:" Set Size to 13 40 Set Location to 68 144 Set Label_Col_Offset to 0 Set Label_Justification_Mode to jMode_Right On_Key key_F2 Send SaveEntries On_Key kCancel Send Close_Panel End_Object // oMultiLineComm2 Object oStrDelim is a Form Set Label to "String Delimiter:" Set Size to 13 40 Set Location to 36 280 Set Label_Col_Offset to 0 Set Label_Justification_Mode to jMode_Right On_Key key_F2 Send SaveEntries On_Key kCancel Send Close_Panel End_Object // oStrDelim Object oEscape is a Form Set Label to "Escape character:" Set Size to 13 40 Set Location to 52 280 Set Label_Col_Offset to 0 Set Label_Justification_Mode to jMode_Right On_Key key_F2 Send SaveEntries On_Key kCancel Send Close_Panel Set form_margin Item 0 To 1 End_Object // oEscape Object oTermination is a Form Set Label to "Line Termination Character:" Set Size to 13 40 Set Location to 68 280 Set Label_Col_Offset to 0 Set Label_Justification_Mode to jMode_Right On_Key key_F2 Send SaveEntries On_Key kCancel Send Close_Panel Set form_margin Item 0 To 1 End_Object // oTermination Object oStyle is a CheckBox Set Label to "Procedural" Set Size to 10 51 Set Location to 9 144 Procedure SetStyle Integer iStyle If (iStyle=0) Set Checked_State To True Else Set Checked_State To False End_Procedure Function GetStyle Returns Integer If (Checked_State(Self)) Function_Return 0 Else Function_Return 1 End_Function End_Object // oStyle End_Object // oGroup1 End_Object // TP_General Object TP_Procedural is a TabPage Set Label to "Procedural" Object oGroup1 is a Group Set Size to 142 377 Set Location to 2 4 Object oScopeKeywords is a cGridForm Set Size to 121 158 Set Location to 10 7 Set Line_Width to 2 0 Set Form_Width item 0 to 75 Set Header_Label item 0 to "Scope Start" Set Form_Width item 1 to 75 Set Header_Label item 1 to "Scope End" Set psSepCharacter To "\n" Set Columns To 2 // To get the values from the VDF registry. Procedure FillFromIDE String sVersion Send SetValueColumn 0 (Replaces(",",(Profile_StringVersion(sVersion,"IDE\Code-Editor","ScopeKeywordsStart")),"\n")) Send SetValueColumn 1 (Replaces(",",(Profile_StringVersion(sVersion,"IDE\Code-Editor","ScopeKeywordsEnd")),"\n")) End_Procedure End_Object // oScopeKeywords Object oKeywords is a cGridForm Set Size to 123 103 Set Location to 10 171 Set Line_Width to 1 0 Set Form_Width item 0 to 95 Set Header_Label item 0 to "Keywords" Set psSepCharacter To "\n" Set Columns To 1 Set piMaxItems To 89 Send Reset // To get the values from the VDF registry. Procedure FillFromIDE String sVersion Send SetValueColumn 0 (Replaces(",",(Profile_StringVersion(sVersion,"IDE\Code-Editor","Keywords")),"\n")) End_Procedure End_Object // oKeywords Object oOperators is a cGridForm Set Size to 121 89 Set Location to 10 280 Set Line_Width to 1 0 Set Form_Width item 0 to 81 Set Header_Label item 0 to "Operators" Set psSepCharacter To "\n" Set Columns To 1 // To get the values from the VDF registry. Procedure FillFromIDE String sVersion Send SetValueColumn 0 (Replaces(",",(Profile_StringVersion(sVersion,"IDE\Code-Editor","Operators")),"\n")) End_Procedure End_Object // oOperators End_Object // oGroup1 End_Object // TP_Procedural Object TP_SGML is a TabPage Set Label to "SGML" Object oGroup1 is a Group Set Size to 142 377 Set Location to 2 4 Object oTagElementNames is a cGridForm Set Size to 122 158 Set Location to 10 7 Set Line_Width to 1 0 Set Form_Width item 0 to 150 Set Header_Label item 0 to "Tag Names" Set psSepCharacter To "\n" Set Columns To 1 End_Object // oTagElementNames Object oTagAttributeNames is a cGridForm Set Size to 121 89 Set Location to 10 280 Set Line_Width to 1 0 Set Form_Width item 0 to 80 Set Header_Label item 0 to "Tag Attributes" Set psSepCharacter To "\n" Set Columns To 1 End_Object // oTagAttributeNames Object oTagEntities is a cGridForm Set Size to 124 103 Set Location to 10 171 Set Line_Width to 1 0 Set Form_Width item 0 to 95 Set Header_Label item 0 to "Tag Entities" Set psSepCharacter To "\n" Set Columns To 1 End_Object // oTagEntities End_Object // oGroup1 End_Object // TP_SGML Procedure LoadFromVDF Broadcast recursive Send FillFromIDE (psVDFRegistryVersion(ghoEditorProperties)) End_Procedure End_Object // oLanguage Object oSearch_bn is a Button Set Label to "Save" Set Location to 5 289 Procedure OnClick Send SaveEntries End_Procedure On_Key key_F2 Send SaveEntries On_Key kCancel Send Close_Panel End_Object // oSearch_bn Object oFillFromIDE_bn is a Button Set Label to "Load From IDE" Set Size to 14 80 Set Location to 5 203 Procedure OnClick Send LoadFromVDF To (oLanguage(Self)) End_Procedure On_Key key_F2 Send SaveEntries On_Key kCancel Send Close_Panel End_Object // oFillFromIDE_bn Object oNew is a Button Set Label to "New" Set Location to 5 345 Procedure OnClick Send Activate To (oLName(Self)) Send Popup To (oNewLang(Self)) End_Procedure On_Key key_F2 Send SaveEntries On_Key kCancel Send Close_Panel End_Object // oNew Procedure SaveEntries Integer iC String sName Get value Of (oLName(Self)) To sName If sName Eq "" Procedure_Return Get YesNo_Box "Save?" To iC If iC Ne MBR_Yes Procedure_Return Get FindLanguage Of ghoEditorProperties sName To iC If iC Lt 0 ; Get psLanguages.Count Of ghoEditorProperties To iC Set psLanguages Of ghoEditorProperties Item iC To (Value(oLName(Self),0)) Set psLanguages.dwStyle Of ghoEditorProperties Item iC To (GetStyle(oStyle(oGroup1(TP_General(oLanguage(Self)))))) Set psLanguages.bIsCaseSensitive Of ghoEditorProperties Item iC To (Select_State(oCaseSensitiv(oGroup1(TP_General(oLanguage(Self)))),0)) Set psLanguages.szKeywords Of ghoEditorProperties Item iC To (GetValueColumn(oKeywords(oGroup1(TP_Procedural(oLanguage(Self)))),0)) Set psLanguages.szOperators Of ghoEditorProperties Item iC To (GetValueColumn(oOperators(oGroup1(TP_Procedural(oLanguage(Self)))),0)) Set psLanguages.szSingleLineComments Of ghoEditorProperties Item iC To (Value(oSingLineComm(oGroup1(TP_General(oLanguage(Self)))),0)) Set psLanguages.szMultiLineComments1 Of ghoEditorProperties Item iC To (Value(oMultiLineComm1(oGroup1(TP_General(oLanguage(Self)))),0)) Set psLanguages.szMultiLineComments2 Of ghoEditorProperties Item iC To (Value(oMultiLineComm2(oGroup1(TP_General(oLanguage(Self)))),0)) Set psLanguages.szScopeKeywords1 Of ghoEditorProperties Item iC To (GetValueColumn(oScopeKeywords(oGroup1(TP_Procedural(oLanguage(Self)))),0)) Set psLanguages.szScopeKeywords2 Of ghoEditorProperties Item iC To (GetValueColumn(oScopeKeywords(oGroup1(TP_Procedural(oLanguage(Self)))),1)) Set psLanguages.szStringDelims Of ghoEditorProperties Item iC To (Value(oStrDelim(oGroup1(TP_General(oLanguage(Self)))),0)) Set psLanguages.chEscape Of ghoEditorProperties Item iC To (Value(oEscape(oGroup1(TP_General(oLanguage(Self)))),0)) Set psLanguages.chTerminator Of ghoEditorProperties Item iC To (Value(oTermination(oGroup1(TP_General(oLanguage(Self)))),0)) Set psLanguages.pszTagElementNames Of ghoEditorProperties Item iC To (GetValueColumn(oTagElementNames(oGroup1(TP_SGML(oLanguage(Self)))),0)) Set psLanguages.pszTagAttributeNames Of ghoEditorProperties Item iC To (GetValueColumn(oTagAttributeNames(oGroup1(TP_SGML(oLanguage(Self)))),0)) Set psLanguages.pszTagEntities Of ghoEditorProperties Item iC To (GetValueColumn(oTagEntities(oGroup1(TP_SGML(oLanguage(Self)))),0)) //send ClearEntries // Should rest the values to empty! Send Activate To (oLName(Self)) Send RegisterLanguage To ghoEditorProperties iC End_Procedure Procedure LoadEntries Integer iC Send SetStyle To (oStyle(oGroup1(TP_General(oLanguage(Self))))) (psLanguages.dwStyle(ghoEditorProperties,iC)) Set Select_State Of (oCaseSensitiv(oGroup1(TP_General(oLanguage(Self))))) Item 0 To (psLanguages.bIsCaseSensitive(ghoEditorProperties,iC)) Set Value Of (oSingLineComm(oGroup1(TP_General(oLanguage(Self))))) Item 0 To (psLanguages.szSingleLineComments(ghoEditorProperties,iC)) Set Value Of (oMultiLineComm1(oGroup1(TP_General(oLanguage(Self))))) Item 0 To (psLanguages.szMultiLineComments1(ghoEditorProperties,iC)) Set Value Of (oMultiLineComm2(oGroup1(TP_General(oLanguage(Self))))) Item 0 To (psLanguages.szMultiLineComments2(ghoEditorProperties,iC)) Set Value Of (oStrDelim(oGroup1(TP_General(oLanguage(Self))))) Item 0 To (psLanguages.szStringDelims(ghoEditorProperties,iC)) Set Value Of (oEscape(oGroup1(TP_General(oLanguage(Self))))) Item 0 To (psLanguages.chEscape(ghoEditorProperties,iC)) Set Value Of (oTermination(oGroup1(TP_General(oLanguage(Self))))) Item 0 To (psLanguages.chTerminator(ghoEditorProperties,iC)) Send SetValueColumn To (oScopeKeywords(oGroup1(TP_Procedural(oLanguage(Self))))) 0 (psLanguages.szScopeKeywords1(ghoEditorProperties,iC)) Send SetValueColumn To (oScopeKeywords(oGroup1(TP_Procedural(oLanguage(Self))))) 1 (psLanguages.szScopeKeywords2(ghoEditorProperties,iC)) Send SetValueColumn To (oKeywords(oGroup1(TP_Procedural(oLanguage(Self))))) 0 (psLanguages.szKeywords(ghoEditorProperties,iC)) Send SetValueColumn To (oOperators(oGroup1(TP_Procedural(oLanguage(Self))))) 0 (psLanguages.szOperators(ghoEditorProperties,iC)) Send SetValueColumn To (oTagElementNames(oGroup1(TP_SGML(oLanguage(Self))))) 0 (psLanguages.pszTagElementNames(ghoEditorProperties,iC)) Send SetValueColumn To (oTagAttributeNames(oGroup1(TP_SGML(oLanguage(Self))))) 0 (psLanguages.pszTagAttributeNames(ghoEditorProperties,iC)) Send SetValueColumn To (oTagEntities(oGroup1(TP_SGML(oLanguage(Self))))) 0 (psLanguages.pszTagEntities(ghoEditorProperties,iC)) End_Procedure Procedure ClearEntries Send SetStyle To (oStyle(oGroup1(TP_General(oLanguage(Self))))) 0 Set Select_State Of (oCaseSensitiv(oGroup1(TP_General(oLanguage(Self))))) Item 0 To 0 Set Value Of (oSingLineComm(oGroup1(TP_General(oLanguage(Self))))) Item 0 To "" Set Value Of (oMultiLineComm1(oGroup1(TP_General(oLanguage(Self))))) Item 0 To "" Set Value Of (oMultiLineComm2(oGroup1(TP_General(oLanguage(Self))))) Item 0 To "" Set Value Of (oStrDelim(oGroup1(TP_General(oLanguage(Self))))) Item 0 To "" Set Value Of (oEscape(oGroup1(TP_General(oLanguage(Self))))) Item 0 To "" Set Value Of (oTermination(oGroup1(TP_General(oLanguage(Self))))) Item 0 To "" Send Reset To (oScopeKeyWords(oGroup1(TP_Procedural(oLanguage(Self))))) Send Reset To (oKeywords(oGroup1(TP_Procedural(oLanguage(Self))))) Send Reset To (oOperators(oGroup1(TP_Procedural(oLanguage(Self))))) Send Reset To (oTagElementNames(oGroup1(TP_SGML(oLanguage(Self))))) Send Reset To (oTagAttributeNames(oGroup1(TP_SGML(oLanguage(Self))))) Send Reset To (oTagEntities(oGroup1(TP_SGML(oLanguage(Self))))) End_Procedure End_Object // TP__6_Language End_Object // oTabDialog1 Object oButton0 is a Button Set Label to "Save" Set Location to 214 303 Set Object_Shadow_State To True On_Key key_F2 Send Request_SaveAllEntries On_Key kCancel Send Close_Panel Procedure OnClick Send SaveAllEntries End_Procedure // OnClick End_Object // oButton0 Object oButton1 is a Button Set Label to "Close" Set Location to 214 359 On_Key key_F2 Send Request_SaveAllEntries On_Key kCancel Send Close_Panel Procedure OnClick Send Close_Panel End_Procedure // OnClick End_Object // oButton1 Object oLocalStatusBar is a Form Set Enabled_State To False Set Size to 14 295 Set Location to 214 5 Set Color to clBtnFace Set Form_Border Item 0 to Border_None Procedure Show_Status_Help String sHelp Set Value Item 0 To sHelp End_Procedure End_Object // oLocalStatusBar On_Key key_Ctrl+key_F4 Send Close_Panel Procedure NotifyChange Set Object_Shadow_State Of (oButton0(Self)) To False End_Procedure Procedure Request_SaveAllEntries If (Not(Object_Shadow_State(oButton0(Self)))) Send SaveAllEntries End_Procedure Procedure SaveAllEntries Send SaveEntries To (oTabPage1(oTabDialog1(Self))) Send SaveEntries To (oTabPage2(oTabDialog1(Self))) Send SaveEntries To (oTabPage3(oTabDialog1(Self))) Send SaveEntries To (oTabPage4(oTabDialog1(Self))) Send SaveEntries To (oTabPage5(oTabDialog1(Self))) If (Focus(Desktop)) Eq (oButton0(Self)) Send activate To (oButton1(Self)) Set Object_Shadow_State Of (oButton0(Self)) To True End_Procedure Procedure Entering_Scope Integer hoLocalStatusBar // We have to reset the statusbar to our own object in the panel to // support status_help lines. The standard statusline is not used by // dbmodalpanels. // **WvA: This does not seem to work from within the Activating procedure // under VDF7 Get StatusBar_ID To hoLocalStatusBar Move (oLocalStatusBar(Self)) To hoLocalStatusBar Set StatusBar_ID To hoLocalStatusBar Forward Send Entering_Scope End_Procedure // Entering_Scope Procedure Activating Returns Integer Integer iretval Forward Get msg_activating To iretval Set Object_Shadow_State Of (oButton0(Self)) To True Procedure_Return iretval End_Procedure Procedure Popup Send LoadEntries To (oTabPage1(oTabDialog1(Self))) Send LoadEntries To (oTabPage2(oTabDialog1(Self))) Send LoadEntries To (oTabPage3(oTabDialog1(Self))) Send LoadEntries To (oTabPage4(oTabDialog1(Self))) Send LoadEntries To (oTabPage5(oTabDialog1(Self))) Forward Send Popup End_Procedure Procedure Close_View Send Close_Panel End_Procedure Procedure CloseFile Send Close_Panel End_Procedure End_Object // oParas