source: trunk/dll/shadow.c@ 697

/***********************************************************************

  $Id: shadow.c 697 2007-06-17 03:59:25Z stevenhl $

  Desktop shadows

  Copyright (c) 1993-97 M. Kimes
  Copyright (c) 2006, 2007 Steven H. Levine

  22 Jul 06 SHL Check more run time errors
  16 Jun 07 SHL Update for OpenWatcom

***********************************************************************/

#define INCL_DOS
#define INCL_WIN
#include <os2.h>

#include <stdlib.h>
#include <stdio.h>
#include <string.h>

#include "fm3dll.h"
#include "fm3dlg.h"
#include "fm3str.h"

#pragma data_seg(DATA1)

static PSZ pszSrcFile = __FILE__;

#pragma alloc_text(SHADOW,CreateProgramObject,CreateDataObject,CreateFolderObject,CreateShadowObject)

HOBJECT CreateProgramObject(CHAR * objtitle, CHAR * location, CHAR * path,
                            CHAR * cnr)
{
  HOBJECT obj = (HOBJECT) 0;
  CHAR *s;

  if (!cnr)
    return obj;
  obj = WinCreateObject(WPProgram,
                        objtitle,
                        "NODELETE=NO;TEMPLATE=NO;NOCOPY=NO;NOMOVE=NO",
                        (location) ? location : cnr, CO_FAILIFEXISTS);
  if (obj) {
    s = xmalloc(5192, pszSrcFile, __LINE__);
    if (s) {
      sprintf(s,
              "EXENAME=%s%s%s%s%s;PARAMETERS=%%*;OBJECTID=<FM2_%s>",
              (path) ? path : "",
              (path) ? "\\" : "",
              objtitle,
              (path) ? ";STARTUPDIR=" : "", (path) ? path : "", objtitle);
      WinSetObjectData(obj, s);
      free(s);
    }
  }
  return obj;
}

HOBJECT CreateDataObject(CHAR * objtitle, CHAR * location, CHAR * path,
                         CHAR * cnr)
{

  HOBJECT obj = (HOBJECT) 0;
  CHAR s[1050], s2[1050], *p,
    *type[] = { "WPDataFile", "WPIcon", "WPBitmap" };

  if (!cnr)
    return obj;
  sprintf(s, "%s%s%s", (path) ? path : "", (path) ? "\\" : "", objtitle);
  p = strrchr(objtitle, '.');
  if (p) {
    if (!stricmp(p, ".ICO"))
      p = type[1];
    else if (!stricmp(p, ".BMP"))
      p = type[2];
    else
      p = type[0];
  }
  else
    p = type[0];
  obj = WinCreateObject(p,
                        s,
                        "NODELETE=NO;TEMPLATE=NO;NOCOPY=NO;NOMOVE=NO",
                        (location) ? location : cnr, CO_FAILIFEXISTS);
  if (obj) {
    sprintf(s2,
            "%s%s%sOBJECTID=<FM2_%s>",
            objtitle,
            (p == type[1]) ? "ICONFILE=" : "",
            (p == type[1]) ? s : "", (p == type[1]) ? ";" : "", objtitle);
    WinSetObjectData(obj, s2);
  }
  return obj;
}

HOBJECT CreateFolderObject(CHAR * objtitle, CHAR * cnr)
{
  HOBJECT obj = (HOBJECT) 0;
  CHAR s[1050];

  if (!cnr)
    return obj;
  obj = WinCreateObject("WPFolder",
                        objtitle,
                        "NODELETE=NO;TEMPLATE=NO;NOCOPY=NO;NOMOVE=NO",
                        cnr, CO_FAILIFEXISTS);
  if (obj) {
    sprintf(s, "OBJECTID=<FM2_%s>", objtitle);
    WinSetObjectData(obj, s);
  }
  return obj;
}

HOBJECT CreateShadowObject(CHAR * objtitle, CHAR * location, CHAR * path,
                           BOOL executable, CHAR * cnr)
{

  HOBJECT obj = (HOBJECT) 0;
  CHAR *s;

  if (!cnr)
    return obj;
  s = xmalloc(5192, pszSrcFile, __LINE__);
  if (s) {
    sprintf(s,
            "SHADOWID=%s%s%s",
            (path) ? path : "", (path) ? "\\" : "", objtitle);
    {                                   /* find an icon for it if possible */
      CHAR *p, temp[CCHMAXPATH + 1];

      sprintf(temp,
              "%s%s%s", (path) ? path : "", (path) ? "\\" : "", objtitle);
      p = strrchr(temp, '.');
      if (p) {
        *p = 0;
        strcat(p, ".ICO");
        if (IsFile(temp) == 1)
          sprintf(&s[strlen(s)], ";ICONFILE=%s", temp);
      }
    }
    if (executable)
      sprintf(&s[strlen(s)],
              ";EXENAME=%s%s%s%s%s;PARAMETERS=%%*",
              (path) ? path : "",
              (path) ? "\\" : "",
              objtitle, (path) ? ";STARTUPDIR=" : "", (path) ? path : "");
    strcat(s, ";NODELETE=NO;TEMPLATE=NO;NOCOPY=NO;NOMOVE=NO");
    sprintf(&s[strlen(s)], ";OBJECTID=<FM2_%s>", objtitle);
    obj = WinCreateObject("WPShadow",
                          objtitle,
                          s, (location) ? location : cnr, CO_FAILIFEXISTS);
    free(s);
  }
  return obj;
}

#pragma alloc_text(SHADOW2,MakeShadows,OpenObject)

VOID MakeShadows(HWND hwnd, CHAR ** list, ULONG Shadows, CHAR * cnr,
                 CHAR * foldername)
{
  INT x = 0;
  CHAR szBuff[CCHMAXPATH + 8];
  HOBJECT obj = (HOBJECT) 0;
  FILESTATUS3 fsa;

  *szBuff = 0;
  if (foldername)
    strcpy(szBuff, foldername);
  if (list) {
    if ((list[0] && list[1]) || Shadows > 1) {

      STRINGINPARMS sip;

      sip.help = GetPString(IDS_MAKESHADOWHELPTEXT);
      sip.ret = szBuff;
      sip.prompt = GetPString(IDS_MAKESHADOWPROMPTTEXT);
      sip.inputlen = CCHMAXPATHCOMP;
      sip.title = GetPString(IDS_MAKESHADOWTITLETEXT);
      if (WinDlgBox(HWND_DESKTOP,
                    hwnd, InputDlgProc, FM3ModHandle, STR_FRAME, &sip)) {
        if (*szBuff) {
          obj = CreateFolderObject(szBuff, cnr);
          if (!obj) {
            saymsg(MB_CANCEL | MB_ICONEXCLAMATION,
                   hwnd,
                   GetPString(IDS_ERRORTEXT),
                   GetPString(IDS_MAKESHADOWCREATEFAILEDTEXT), szBuff);
            return;
          }
        }
      }
      else
        return;
    }
    while (list[x]) {
      if (!DosQueryPathInfo(list[x],
                            FIL_STANDARD, &fsa,
                            (ULONG) sizeof(FILESTATUS3))) {

        ULONG apt;
        CHAR *p, *pp, szDir[CCHMAXPATH + 1], szBuffer[CCHMAXPATH + 1];

        if (DosQueryAppType(list[x], &apt))
          apt = 0;
        p = strrchr(list[x], '.');
        if (p) {
          if (!stricmp(p, ".BAT") || !stricmp(p, ".CMD"))
            apt |= FAPPTYP_BOUND;
        }
        *szBuffer = 0;
        p = strrchr(list[x], '\\');
        if (!p)
          p = strrchr(list[x], ':');
        if (p)
          p++;
        else
          p = list[x];
        strcpy(szDir, list[x]);
        pp = strrchr(szDir, '\\');
        if (!pp) {
          pp = strrchr(szDir, ':');
          if (pp) {
            pp++;
            *pp = '\\';
            pp++;
          }
        }
        if (pp)
          *pp = 0;
        else
          *szDir = 0;
        if (obj && *szBuff)
          sprintf(szBuffer, "<FM2_%s>", szBuff);
        else
          *szBuffer = 0;
        if ((fsa.attrFile & FILE_DIRECTORY) || Shadows)
          CreateShadowObject(p, (obj) ? szBuffer : NULL, szDir, 0, cnr);
        else if (!(apt & (FAPPTYP_NOTWINDOWCOMPAT | FAPPTYP_WINDOWCOMPAT | FAPPTYP_WINDOWAPI | FAPPTYP_BOUND | FAPPTYP_DOS | FAPPTYP_WINDOWSREAL | FAPPTYP_WINDOWSPROT | 0x1000)))      /* not an executable app? */
          CreateDataObject(p, (obj) ? szBuffer : NULL, szDir, cnr);
        else
          CreateProgramObject(p, (obj) ? szBuffer : NULL, szDir, cnr);
      }
      x++;
      DosSleep(1L);
    }
  }
}

VOID OpenObject(CHAR * filename, CHAR * type, HWND hwnd)
{
  HOBJECT hWPSObject;

  if (!type)
    type = Default;
  if ((*filename == '<' &&
       filename[strlen(filename) - 1] == '>') || IsFile(filename) != -1) {
    hWPSObject = WinQueryObject(filename);
    if (hWPSObject != NULLHANDLE) {     /* got something; try to to open it */

      CHAR s[CCHMAXPATH];
      HWND hwndDesktop;

      if (hwnd) {
        hwndDesktop = WinQueryDesktopWindow((HAB) 0, NULLHANDLE);
        WinSetFocus(HWND_DESKTOP, hwndDesktop);
      }
      sprintf(s, "OPEN=%s", type);
      if (!WinSetObjectData(hWPSObject, s) && hwnd)
        WinSetFocus(HWND_DESKTOP, hwnd);
    }
  }
}

BOOL RunSeamless(CHAR * exename, CHAR * args, HWND hwnd)
{
  CHAR settings[1024 + CCHMAXPATH + 80];
  BOOL ret;

  sprintf(settings,
          "EXENAME=%s;PROGTYPE=SEAMLESS;PARAMETERS=%s;OPEN=DEFAULT",
          exename, args);
  if (hwnd)
    WinSetFocus(HWND_DESKTOP, HWND_DESKTOP);
  ret = WinCreateObject(WPProgram,
                        exename,
                        settings, "<WP_NOWHERE>", CO_REPLACEIFEXISTS);
  if (!ret && hwnd)
    WinSetWindowPos(hwnd, HWND_TOP, 0, 0, 0, 0, SWP_ZORDER | SWP_ACTIVATE);
  return ret;
}