Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Is Clean up Class Library the same as Pack?
Message
From
22/01/2019 06:59:31
 
 
To
22/01/2019 02:41:39
Lutz Scheffler
Lutz Scheffler Software Ingenieurbüro
Dresden, Germany
General information
Forum:
Visual FoxPro
Category:
Classes - VCX
Miscellaneous
Thread ID:
01665581
Message ID:
01665613
Views:
54
>>Hi,
>>
>>When you remove a bunch of classes from a .vcx library, you can open the library in the VFP 9 IDE and use the feature "Clean up Class Library", to completely remove these classes. I am curious, is this the same as if you were to open the .VCX with USE command and Pack?
>
>Additional hint.
>
>If you copy / duplicate classes between vcx's, you might mixup there ID. This is, you have multiple classes with the same UniqueID in your vcx. This can create havoc with CodeReferencers replace function. Normal function like MODIFY or CREATEOBJECT and so one are no problem. Anyway its' not good to have those mixed up.
>
>My packer since the days of yore (packs anything :) )
>
>
>PROCEDURE PackFile
> LPARAMETERS;
>  tcFile,;
>  tlNewGUID
>
> IF FILE(m.tcFile) THEN
>  SELECT 0
>  USE (m.tcFile) EXCLUSIVE ALIAS cAlias
>  IF USED('cAlias') AND !ISREADONLY('cAlias') THEN
>   PACK
>   IF m.tlNewGUID AND UPPER(JUSTEXT(m.tcFile))=='VCX' THEN
>    REPLACE;
>     UniqueID WITH SYS(2015);
>     FOR PLATFORM='WINDOWS'
>   ENDIF &&m.tlNewGUID AND UPPER(JUSTEXT(m.tcFile))=='VCX'
>  ELSE &&USED('cAlias') AND !ISREADONLY('cAlias')
>   ?tcFile+' READONLY - nicht gepackt' FONT 'arial' STYLE 'b'
>  ENDIF &&USED('cAlias') AND !ISREADONLY('cAlias')
>  USE
> ENDIF &&FILE(m.tcFile)
>ENDPROC &&PackFile
>
Thank you for your input.
"The creative process is nothing but a series of crises." Isaac Bashevis Singer
"My experience is that as soon as people are old enough to know better, they don't know anything at all." Oscar Wilde
"If a nation values anything more than freedom, it will lose its freedom; and the irony of it is that if it is comfort or money that it values more, it will lose that too." W.Somerset Maugham
Previous
Reply
Map
View

Click here to load this message in the networking platform