home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-386-Vol-2of3.iso / b / blckh2.zip / BLACKHOL.C next >
Text File  |  1992-12-19  |  9KB  |  237 lines
  1.  
  2. /*
  3.  * This file was generated by the SOM Compiler.
  4.  * FileName: BlackHol.c.
  5.  * Generated using:
  6.  *     SOM Precompiler spc: 1.22
  7.  *     SOM Emitter emitc: 1.24
  8.  */
  9.  
  10. /*────────────────────────────────────────────────────────────────────┐
  11. │  Greg's Black Hole - anything you put in will disappear forever...  │
  12. │                      This version resolves folder structure         │
  13. │                      and reset Read only attribute... Dangerous !   │
  14. │                      Gregory Czaja, 71052,720        November 1992  │
  15. │  will allow removing desktop, if not the current one December 1992  │
  16. └────────────────────────────────────────────────────────────────────*/
  17.  
  18.  
  19. #define BlackHole_Class_Source
  20. #include "BlackHol.ih"
  21. #include <wpObject.h>
  22. #include <wpFolder.h>
  23. #include <wpDesk.h>
  24.  
  25. #include <stdio.h>
  26. #include <stdlib.h>
  27. #include <string.h>
  28. #include <malloc.h>
  29.  
  30. void MyFreeDraginfo(PDRAGINFO pdrgInfo);
  31. void ResolveAndDelete(WPObject * pWPObject);
  32.  
  33. SOM_Scope MRESULT   SOMLINK BlackHolX_wpDragOver(BlackHole *somSelf,
  34.                 HWND hwndCnr,
  35.                 PDRAGINFO pdrgInfo)
  36. {
  37.     ULONG ulItemCnt=0;
  38.     ULONG ulItem=0;
  39.     USHORT usDropIndic=DOR_DROP;
  40.     BlackHoleData *somThis = BlackHoleGetData(somSelf);
  41.     BlackHoleMethodDebug("BlackHole","BlackHolX_wpDragOver");
  42.  
  43.           /* Check that items are workplace shell objects */
  44.  
  45.       ulItemCnt=DrgQueryDragitemCount(pdrgInfo);
  46.       for(ulItem=0;ulItem<ulItemCnt;ulItem++) {
  47.        DRAGITEM DItem;
  48.  
  49.         DrgQueryDragitem(pdrgInfo,sizeof(DItem),&DItem,ulItem);
  50.  
  51.                       /* check that it is a WPS object RMF */
  52.         if(!DrgVerifyRMF(&DItem,"DRM_OBJECT","DRF_OBJECT")) {
  53.                       /* if it's not - don't accept !      */
  54.           usDropIndic=DOR_NEVERDROP;
  55.         }/* end if */
  56.       }/* end for */
  57.  
  58.                     /* Free the draginfo if not same process */
  59.       MyFreeDraginfo(pdrgInfo);
  60.  
  61.       return (MRFROM2SHORT(usDropIndic,DO_UNKNOWN));
  62.       /*
  63.       return (parent_wpDragOver(somSelf,hwndCnr,pdrgInfo));
  64.        */
  65. }
  66.  
  67. SOM_Scope MRESULT   SOMLINK BlackHolX_wpDrop(BlackHole *somSelf,
  68.                 HWND hwndCnr,
  69.                 PDRAGINFO pdrgInfo,
  70.                 PDRAGITEM pdrgItem)
  71. {
  72.     WPObject *pWPObjDropped;
  73.     PSZ   message =malloc(256);
  74.     PSZ   object;
  75.     PSZ   pszClass;
  76.  
  77.     BlackHoleData *somThis = BlackHoleGetData(somSelf);
  78.     BlackHoleMethodDebug("BlackHole","BlackHolX_wpDrop");
  79.  
  80.     pWPObjDropped=OBJECT_FROM_PREC(pdrgItem->ulItemID);
  81.     object       =_wpQueryTitle(pWPObjDropped);
  82.     pszClass     =(PSZ)_somGetClassName(pWPObjDropped);
  83.  
  84.     strcpy(message, "You are about to delete: ");
  85.     strcat(message, object);
  86.     strcat(message, " including the entire content, if any.");
  87.     strcat(message, " Push \"Yes\" to confirm, \"No\" to cancel !");
  88.     if (MBID_YES == WinMessageBox(HWND_DESKTOP,
  89.                                   HWND_DESKTOP,
  90.                                   message,
  91.                                  "Black Hole - destroy object",
  92.                                   0,
  93.                                   MB_YESNO | MB_DEFBUTTON2 | MB_WARNING | MB_SYSTEMMODAL )){
  94.                                   /* wants a VERY special delete ??? */
  95.        if (strcmp(pszClass, "WPDesktop") == 0) {
  96.                                   /* is this the current desktop ? */
  97.           if (_wpIsCurrentDesktop(pWPObjDropped)) {
  98.              WinMessageBox(HWND_DESKTOP,
  99.                            HWND_DESKTOP,
  100.                            "You must be joking... \
  101.                            Do you realy want to delete your Desktop ?",
  102.                            "DeskMan/2 - destroy object",
  103.                            0,
  104.                            MB_CANCEL | MB_WARNING | MB_SYSTEMMODAL );
  105.           } else {
  106.             if (MBID_YES == WinMessageBox(HWND_DESKTOP,
  107.                                           HWND_DESKTOP,
  108.                                           "Deleting an inactive Desktop may cause\
  109.                                           problems on some systems.\
  110.                                           Objects on the active Desktop may be damaged.\
  111.                                           Do you want to continue ?",
  112.                                           "DeskMan/2 - Destroy object",
  113.                                           0,
  114.                                           MB_YESNO | MB_DEFBUTTON2 | MB_WARNING | MB_SYSTEMMODAL )){
  115.                ResolveAndDelete(pWPObjDropped);
  116.             };
  117.           } /* endif */
  118.        } else {
  119.           ResolveAndDelete(pWPObjDropped);
  120.        } /* endif */
  121.     };
  122.     free(message);
  123.  
  124.     return (parent_wpDrop(somSelf,hwndCnr,pdrgInfo,pdrgItem));
  125. }
  126.  
  127. #undef SOM_CurrentClass
  128. #define SOM_CurrentClass SOMMeta
  129. SOM_Scope void   SOMLINK BlackHolC_wpclsInitData(M_BlackHole *somSelf)
  130. {
  131.     /* M_BlackHoleData *somThis = M_BlackHoleGetData(somSelf); */
  132.     M_BlackHoleMethodDebug("M_BlackHole","BlackHolC_wpclsInitData");
  133.  
  134.     parent_wpclsInitData(somSelf);
  135. }
  136.  
  137. SOM_Scope void   SOMLINK BlackHolC_wpclsUnInitData(M_BlackHole *somSelf)
  138. {
  139.     /* M_BlackHoleData *somThis = M_BlackHoleGetData(somSelf); */
  140.     M_BlackHoleMethodDebug("M_BlackHole","BlackHolC_wpclsUnInitData");
  141.  
  142.     parent_wpclsUnInitData(somSelf);
  143. }
  144.  
  145. /*─────────────────────────  ORDINARY CODE SECTION  ──────────────────────────┐
  146. │****                                                                     ****│
  147. │****                  Any non-method code should go here.                ****│
  148. │****                                                                     ****│
  149. └────────────────────────────────────────────────────────────────────────────*/
  150. #undef SOM_CurrentClass
  151.  
  152. /*──────────────────────────────────────────────────────────────────────────┐
  153. │ ResolveAndDelete                                                          │
  154. │ Purpose: resolves composite objects and deletes atomic ones...            │
  155. └──────────────────────────────────────────────────────────────────────────*/
  156. VOID ResolveAndDelete(WPObject * pWPObject)
  157. { 
  158.    ULONG ulFlags;
  159.  
  160.    PSZ   message =malloc(256);
  161.    PSZ pszObject =_wpQueryTitle(pWPObject);
  162.    PSZ pszClass  =(PSZ)_somGetClassName(pWPObject);
  163.                                     /* those are represented by real files... */
  164.    if (strcmp(pszClass,"WPFileSystem")==0   |
  165.        strcmp(pszClass,"WPDataFile")==0     |
  166.        strcmp(pszClass,"WPFolder")==0       |
  167.        strcmp(pszClass,"WPProgramGroup")==0 |
  168.        strcmp(pszClass,"WPProgramFile")==0  |
  169.        strcmp(pszClass,"WPTemplateFolder")==0 ) {
  170.                                     /* get the object's file Attributes... */
  171.       ulFlags=_wpQueryAttr(pWPObject);
  172.                                     /* now reset the read only bit */
  173.       _wpSetAttr(pWPObject, ulFlags & ~FILE_READONLY);
  174.  
  175.    } /* endif */
  176.                                     /* resolve composite objects if necessary */
  177.    if (strcmp(pszClass,"WPFolder")==0         |
  178.        strcmp(pszClass,"WPTemplateFolder")==0 |
  179.        strcmp(pszClass,"WPProgramGroup")==0   ){
  180.  
  181.        PSZ pszFilename=NULL;
  182.        ULONG  pcb;
  183.                                      /* get the real name for populate */
  184.        if _wpQueryRealName(pWPObject,NULL,&pcb,TRUE){
  185.           pszFilename=malloc(pcb+2);            /* get the buffer */
  186.           memset(pszFilename,'\0',pcb+1);
  187.           _wpQueryRealName(pWPObject,pszFilename,&pcb,TRUE);
  188.        } /* endif */
  189.        if (_wpPopulate(pWPObject, 0L, pszFilename, FALSE)) {
  190.           WPObject * pWPObjectTemp;
  191.                       /* go through folder's content   */
  192.           for(pWPObjectTemp=_wpQueryContent(pWPObject,pWPObjectTemp,QC_First);
  193.               pWPObjectTemp != NULL;
  194.               pWPObjectTemp=_wpQueryContent(pWPObject,pWPObjectTemp,QC_Next)) {
  195.  
  196.               ResolveAndDelete(pWPObjectTemp);
  197.           }/* end for */
  198.        } /* endif */
  199.        if (pszFilename != NULL) 
  200.           free(pszFilename);
  201.    } /* endif */
  202.                                        /* now reset the noDelete style */
  203.    _wpSetStyle(pWPObject, !OBJSTYLE_NODELETE);
  204.    if ( _wpDelete(pWPObject, 0) != OK_DELETE ) {
  205.       strcpy(message, "Object: ");
  206.       strcat(message, pszObject);
  207.       strcat(message, " could not be deleted !");
  208.       WinMessageBox(HWND_DESKTOP,
  209.                     HWND_DESKTOP,
  210.                     message,
  211.                     "Black Hole - destroy object",
  212.                     0,
  213.                     MB_CANCEL | MB_WARNING | MB_SYSTEMMODAL );
  214.    };
  215.   free(message);
  216.   return;
  217. }
  218. /*──────────────────────────────────────────────────────────────────────────┐
  219. │ MyFreeDraginfo()        courtesy of Ph. Gregoire                          │
  220. │ Purpose: Frees the drag info if not same process                          │
  221. └──────────────────────────────────────────────────────────────────────────*/
  222. void MyFreeDraginfo(PDRAGINFO pdrgInfo)
  223. {PID pidSrc;
  224.  TID tidSrc;
  225.  PTIB ptib;
  226.  PPIB ppib;
  227.  
  228.   WinQueryWindowProcess(pdrgInfo->hwndSource,&pidSrc,&tidSrc);
  229.   DosGetInfoBlocks(&ptib,&ppib);
  230.  
  231.   if(ppib->pib_ulpid!=pidSrc) {
  232.     DrgFreeDraginfo(pdrgInfo);
  233.   }/* end if */
  234.  
  235. }/* end MyFreeDraginfo */
  236.  
  237.