` Template to exclude unneeded classes (Randy Rogers ) - Icetips Article
Icetips - Templates, Tools & Utilities for Clarion Developers

Templates, Tools and Utilities
for Clarion Developers

Icetips Article

Back to search     Printer friendly     Add Comment     Direct link  

Par2: Template to exclude unneeded classes
1999-06-18 -- Randy Rogers
 
#TEMPLATE (EGC, 'Exclude Global Class Application Builder Class Template v1.0'),FAMILY('ABC') #EXTENSION(ExcludeGlobalClass,'Exclude Global Class Generation'),APPLICATION #!-------------------------------------------------------------- #BOXED('Keystone') #DISPLAY ('The default ABC templates generate an instance of each '),AT(10) #DISPLAY ('base class when the target type is DLL and the ''generate'),AT(10) #DISPLAY ('template globals and ABC''s as EXTERNAL'' check box is'),AT(10) #DISPLAY ('not checked. This can cause compile errors for some'),AT(10) #DISPLAY ('ABC compatible classes that require supporting libraries.'),AT(10) #DISPLAY ('For example, our Network Class will cause compiler errors.'),AT(10) #DISPLAY ('Adding ''NetworkClass'' to the list box below will override'),AT(10) #DISPLAY ('the default template behaviour and eliminate the compiler'),AT(10) #DISPLAY ('errors.'),AT(10) #DISPLAY ('') #PROMPT ('Exclude All Non-Topspeed ABC Classes',CHECK),%ExcludeAll,AT(10),DEFAULT(%FALSE) #DISPLAY ('') #ENABLE(~%ExcludeAll),CLEAR #DISPLAY ('Exclude Class:') #PROMPT('&Exclude Class:',FROM(%pClassname)),%ExcludeClass,MULTI('ABC Classes'),INLINE #ENDENABLE #DISPLAY ('') #ENDBOXED #! #ATSTART #DECLARE(%SortedClassname),MULTI,UNIQUE #FOR(%pClassname) #ADD(%SortedClassname,%pClassname) #ENDFOR #IF(%ExcludeAll) #FOR(%SortedClassname) #CASE(%SortedClassname) #OF('AsciiFileClass') #OROF('AsciiPrintClass') #OROF('AsciiSearchClass') #OROF('AsciiViewerClass') #OROF('BrowseClass') #OROF('BrowseEIPManager') #OROF('BufferedPairsClass') #OROF('ConstantClass') #OROF('EditCheckClass') #OROF('EditClass') #OROF('EditColorClass') #OROF('EditDropListClass') #OROF('EditEntryClass') #OROF('EditFileClass') #OROF('EditFontClass') #OROF('EditMultiSelectClass') #OROF('EditSpinClass') #OROF('EditTextClass') #OROF('EIPManager') #OROF('EntryLocatorClass') #OROF('ErrorClass') #OROF('FieldPairsClass') #OROF('FileDropClass') #OROF('FileDropComboClass') #OROF('FileManager') #OROF('FilterLocatorClass') #OROF('IncrementalLocatorClass') #OROF('INIClass') #OROF('LocatorClass') #OROF('PopupClass') #OROF('PrintPreviewClass') #OROF('ProcessClass') #OROF('QueryClass') #OROF('QueryFormClass') #OROF('QueryFormVisual') #OROF('QueryListClass') #OROF('QueryListVisual') #OROF('QueryVisual') #OROF('RelationManager') #OROF('ReportManager') #OROF('SelectFileClass') #OROF('StepClass') #OROF('StepCustomClass') #OROF('StepLocatorClass') #OROF('StepLongClass') #OROF('StepRealClass') #OROF('StepStringClass') #OROF('ToolbarClass') #OROF('ToolbarListboxClass') #OROF('ToolbarReltreeClass') #OROF('ToolbarTarget') #OROF('ToolbarUpdateClass') #OROF('TranslatorClass') #OROF('ViewManager') #OROF('WindowManager') #OROF('WindowResizeClass') #! Do Nothing #ELSE #FIX(%pClassname,%SortedClassname) #DELETE(%pClassname) #ENDCASE #ENDFOR #ELSE #FOR(%ExcludeClass) #FIX(%pClassname,%ExcludeClass) #IF(%pClassname = %ExcludeClass) #DELETE(%pClassname) #ENDIF #ENDFOR #ENDIF #ENDAT #!

Today is April 25, 2024, 3:07 am
This article has been viewed 35121 times.

Back to search     Printer friendly     Add Comment

Login

User Name:

Password:


Gold Subscription
Buy Now
Silver Subscription
Buy Now
Solo Subscription
Buy Now
Multiple Copy Pricing
Renew Subscription