mshtml: Clean up get_all and tags (also fixes a typo).
[wine] / dlls / shell32 / shv_item_cmenu.c
1 /*
2  *      IContextMenu for items in the shellview
3  *
4  * Copyright 1998, 2000 Juergen Schmied <juergen.schmied@debitel.net>
5  *
6  * This library is free software; you can redistribute it and/or
7  * modify it under the terms of the GNU Lesser General Public
8  * License as published by the Free Software Foundation; either
9  * version 2.1 of the License, or (at your option) any later version.
10  *
11  * This library is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
14  * Lesser General Public License for more details.
15  *
16  * You should have received a copy of the GNU Lesser General Public
17  * License along with this library; if not, write to the Free Software
18  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
19  */
20
21 #include <string.h>
22
23 #define COBJMACROS
24 #define NONAMELESSUNION
25 #define NONAMELESSSTRUCT
26
27 #include "winerror.h"
28 #include "wine/debug.h"
29
30 #include "windef.h"
31 #include "wingdi.h"
32 #include "pidl.h"
33 #include "shlguid.h"
34 #include "undocshell.h"
35 #include "shlobj.h"
36
37 #include "shell32_main.h"
38 #include "shellfolder.h"
39
40 WINE_DEFAULT_DEBUG_CHANNEL(shell);
41
42 /**************************************************************************
43 *  IContextMenu Implementation
44 */
45 typedef struct
46 {       const IContextMenu2Vtbl *lpVtbl;
47         LONG            ref;
48         IShellFolder*   pSFParent;
49         LPITEMIDLIST    pidl;           /* root pidl */
50         LPITEMIDLIST    *apidl;         /* array of child pidls */
51         UINT            cidl;
52         BOOL            bAllValues;
53 } ItemCmImpl;
54
55
56 static const IContextMenu2Vtbl cmvt;
57
58 /**************************************************************************
59 * ISvItemCm_CanRenameItems()
60 */
61 static BOOL ISvItemCm_CanRenameItems(ItemCmImpl *This)
62 {       UINT  i;
63         DWORD dwAttributes;
64
65         TRACE("(%p)->()\n",This);
66
67         if(This->apidl)
68         {
69           for(i = 0; i < This->cidl; i++){}
70           if(i > 1) return FALSE;               /* can't rename more than one item at a time*/
71           dwAttributes = SFGAO_CANRENAME;
72           IShellFolder_GetAttributesOf(This->pSFParent, 1, (LPCITEMIDLIST*)This->apidl, &dwAttributes);
73           return dwAttributes & SFGAO_CANRENAME;
74         }
75         return FALSE;
76 }
77
78 /**************************************************************************
79 *   ISvItemCm_Constructor()
80 */
81 IContextMenu2 *ISvItemCm_Constructor(LPSHELLFOLDER pSFParent, LPCITEMIDLIST pidl, LPCITEMIDLIST *apidl, UINT cidl)
82 {       ItemCmImpl* cm;
83         UINT  u;
84
85         cm = HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY,sizeof(ItemCmImpl));
86         cm->lpVtbl = &cmvt;
87         cm->ref = 1;
88         cm->pidl = ILClone(pidl);
89         cm->pSFParent = pSFParent;
90
91         if(pSFParent) IShellFolder_AddRef(pSFParent);
92
93         cm->apidl = _ILCopyaPidl(apidl, cidl);
94         cm->cidl = cidl;
95
96         cm->bAllValues = 1;
97         for(u = 0; u < cidl; u++)
98         {
99           cm->bAllValues &= (_ILIsValue(apidl[u]) ? 1 : 0);
100         }
101
102         TRACE("(%p)->()\n",cm);
103
104         return (IContextMenu2*)cm;
105 }
106
107 /**************************************************************************
108 *  ISvItemCm_fnQueryInterface
109 */
110 static HRESULT WINAPI ISvItemCm_fnQueryInterface(IContextMenu2 *iface, REFIID riid, LPVOID *ppvObj)
111 {
112         ItemCmImpl *This = (ItemCmImpl *)iface;
113
114         TRACE("(%p)->(\n\tIID:\t%s,%p)\n",This,debugstr_guid(riid),ppvObj);
115
116         *ppvObj = NULL;
117
118         if(IsEqualIID(riid, &IID_IUnknown) ||
119            IsEqualIID(riid, &IID_IContextMenu) ||
120            IsEqualIID(riid, &IID_IContextMenu2))
121         {
122           *ppvObj = This;
123         }
124         else if(IsEqualIID(riid, &IID_IShellExtInit))  /*IShellExtInit*/
125         {
126           FIXME("-- LPSHELLEXTINIT pointer requested\n");
127         }
128
129         if(*ppvObj)
130         {
131           IUnknown_AddRef((IUnknown*)*ppvObj);
132           TRACE("-- Interface: (%p)->(%p)\n",ppvObj,*ppvObj);
133           return S_OK;
134         }
135         TRACE("-- Interface: E_NOINTERFACE\n");
136         return E_NOINTERFACE;
137 }
138
139 /**************************************************************************
140 *  ISvItemCm_fnAddRef
141 */
142 static ULONG WINAPI ISvItemCm_fnAddRef(IContextMenu2 *iface)
143 {
144         ItemCmImpl *This = (ItemCmImpl *)iface;
145         ULONG refCount = InterlockedIncrement(&This->ref);
146
147         TRACE("(%p)->(count=%lu)\n", This, refCount - 1);
148
149         return refCount;
150 }
151
152 /**************************************************************************
153 *  ISvItemCm_fnRelease
154 */
155 static ULONG WINAPI ISvItemCm_fnRelease(IContextMenu2 *iface)
156 {
157         ItemCmImpl *This = (ItemCmImpl *)iface;
158         ULONG refCount = InterlockedDecrement(&This->ref);
159
160         TRACE("(%p)->(count=%li)\n", This, refCount + 1);
161
162         if (!refCount)
163         {
164           TRACE(" destroying IContextMenu(%p)\n",This);
165
166           if(This->pSFParent)
167             IShellFolder_Release(This->pSFParent);
168
169           if(This->pidl)
170             SHFree(This->pidl);
171
172           /*make sure the pidl is freed*/
173           _ILFreeaPidl(This->apidl, This->cidl);
174
175           HeapFree(GetProcessHeap(),0,This);
176         }
177         return refCount;
178 }
179
180 /**************************************************************************
181 *  ICM_InsertItem()
182 */
183 void WINAPI _InsertMenuItem (
184         HMENU hmenu,
185         UINT indexMenu,
186         BOOL fByPosition,
187         UINT wID,
188         UINT fType,
189         LPCSTR dwTypeData,
190         UINT fState)
191 {
192         MENUITEMINFOA   mii;
193
194         ZeroMemory(&mii, sizeof(mii));
195         mii.cbSize = sizeof(mii);
196         if (fType == MFT_SEPARATOR)
197         {
198           mii.fMask = MIIM_ID | MIIM_TYPE;
199         }
200         else
201         {
202           mii.fMask = MIIM_ID | MIIM_TYPE | MIIM_STATE;
203           mii.dwTypeData = (LPSTR) dwTypeData;
204           mii.fState = fState;
205         }
206         mii.wID = wID;
207         mii.fType = fType;
208         InsertMenuItemA( hmenu, indexMenu, fByPosition, &mii);
209 }
210
211 /**************************************************************************
212 * ISvItemCm_fnQueryContextMenu()
213 * FIXME: load menu MENU_SHV_FILE out of resources instead if creating
214 *                each menu item by calling _InsertMenuItem()
215 */
216 static HRESULT WINAPI ISvItemCm_fnQueryContextMenu(
217         IContextMenu2 *iface,
218         HMENU hmenu,
219         UINT indexMenu,
220         UINT idCmdFirst,
221         UINT idCmdLast,
222         UINT uFlags)
223 {
224         ItemCmImpl *This = (ItemCmImpl *)iface;
225
226         TRACE("(%p)->(hmenu=%p indexmenu=%x cmdfirst=%x cmdlast=%x flags=%x )\n",This, hmenu, indexMenu, idCmdFirst, idCmdLast, uFlags);
227
228         if (idCmdFirst != 0)
229           FIXME("We should use idCmdFirst=%d and idCmdLast=%d for command ids\n", idCmdFirst, idCmdLast);
230
231         if(!(CMF_DEFAULTONLY & uFlags) && This->cidl>0)
232         {
233           if(!(uFlags & CMF_EXPLORE))
234             _InsertMenuItem(hmenu, indexMenu++, TRUE, FCIDM_SHVIEW_OPEN, MFT_STRING, "&Select", MFS_ENABLED);
235
236           if(This->bAllValues)
237           {
238             _InsertMenuItem(hmenu, indexMenu++, TRUE, FCIDM_SHVIEW_OPEN, MFT_STRING, "&Open", MFS_ENABLED);
239             _InsertMenuItem(hmenu, indexMenu++, TRUE, FCIDM_SHVIEW_EXPLORE, MFT_STRING, "&Explore", MFS_ENABLED);
240           }
241           else
242           {
243             _InsertMenuItem(hmenu, indexMenu++, TRUE, FCIDM_SHVIEW_EXPLORE, MFT_STRING, "&Explore", MFS_ENABLED);
244             _InsertMenuItem(hmenu, indexMenu++, TRUE, FCIDM_SHVIEW_OPEN, MFT_STRING, "&Open", MFS_ENABLED);
245           }
246
247           SetMenuDefaultItem(hmenu, 0, MF_BYPOSITION);
248
249           _InsertMenuItem(hmenu, indexMenu++, TRUE, 0, MFT_SEPARATOR, NULL, 0);
250           _InsertMenuItem(hmenu, indexMenu++, TRUE, FCIDM_SHVIEW_COPY, MFT_STRING, "&Copy", MFS_ENABLED);
251           _InsertMenuItem(hmenu, indexMenu++, TRUE, FCIDM_SHVIEW_CUT, MFT_STRING, "&Cut", MFS_ENABLED);
252
253           _InsertMenuItem(hmenu, indexMenu++, TRUE, 0, MFT_SEPARATOR, NULL, 0);
254           _InsertMenuItem(hmenu, indexMenu++, TRUE, FCIDM_SHVIEW_DELETE, MFT_STRING, "&Delete", MFS_ENABLED);
255
256           if(uFlags & CMF_CANRENAME)
257             _InsertMenuItem(hmenu, indexMenu++, TRUE, FCIDM_SHVIEW_RENAME, MFT_STRING, "&Rename", ISvItemCm_CanRenameItems(This) ? MFS_ENABLED : MFS_DISABLED);
258
259           return MAKE_HRESULT(SEVERITY_SUCCESS, 0, (FCIDM_SHVIEWLAST));
260         }
261         return MAKE_HRESULT(SEVERITY_SUCCESS, 0, 0);
262 }
263
264 /**************************************************************************
265 * DoOpenExplore
266 *
267 *  for folders only
268 */
269
270 static void DoOpenExplore(
271         IContextMenu2 *iface,
272         HWND hwnd,
273         LPCSTR verb)
274 {
275         ItemCmImpl *This = (ItemCmImpl *)iface;
276
277         UINT i, bFolderFound = FALSE;
278         LPITEMIDLIST    pidlFQ;
279         SHELLEXECUTEINFOA       sei;
280
281         /* Find the first item in the list that is not a value. These commands
282             should never be invoked if there isn't at least one folder item in the list.*/
283
284         for(i = 0; i<This->cidl; i++)
285         {
286           if(!_ILIsValue(This->apidl[i]))
287           {
288             bFolderFound = TRUE;
289             break;
290           }
291         }
292
293         if (!bFolderFound) return;
294
295         pidlFQ = ILCombine(This->pidl, This->apidl[i]);
296
297         ZeroMemory(&sei, sizeof(sei));
298         sei.cbSize = sizeof(sei);
299         sei.fMask = SEE_MASK_IDLIST | SEE_MASK_CLASSNAME;
300         sei.lpIDList = pidlFQ;
301         sei.lpClass = "Folder";
302         sei.hwnd = hwnd;
303         sei.nShow = SW_SHOWNORMAL;
304         sei.lpVerb = verb;
305         ShellExecuteExA(&sei);
306         SHFree(pidlFQ);
307 }
308
309 /**************************************************************************
310 * DoRename
311 */
312 static void DoRename(
313         IContextMenu2 *iface,
314         HWND hwnd)
315 {
316         ItemCmImpl *This = (ItemCmImpl *)iface;
317
318         LPSHELLBROWSER  lpSB;
319         LPSHELLVIEW     lpSV;
320
321         TRACE("(%p)->(wnd=%p)\n",This, hwnd);
322
323         /* get the active IShellView */
324         if ((lpSB = (LPSHELLBROWSER)SendMessageA(hwnd, CWM_GETISHELLBROWSER,0,0)))
325         {
326           if(SUCCEEDED(IShellBrowser_QueryActiveShellView(lpSB, &lpSV)))
327           {
328             TRACE("(sv=%p)\n",lpSV);
329             IShellView_SelectItem(lpSV, This->apidl[0],
330               SVSI_DESELECTOTHERS|SVSI_EDIT|SVSI_ENSUREVISIBLE|SVSI_FOCUSED|SVSI_SELECT);
331             IShellView_Release(lpSV);
332           }
333         }
334 }
335
336 /**************************************************************************
337  * DoDelete
338  *
339  * deletes the currently selected items
340  */
341 static void DoDelete(IContextMenu2 *iface)
342 {
343         ItemCmImpl *This = (ItemCmImpl *)iface;
344         ISFHelper * psfhlp;
345
346         IShellFolder_QueryInterface(This->pSFParent, &IID_ISFHelper, (LPVOID*)&psfhlp);
347         if (psfhlp)
348         {
349           ISFHelper_DeleteItems(psfhlp, This->cidl, (LPCITEMIDLIST *)This->apidl);
350           ISFHelper_Release(psfhlp);
351         }
352 }
353
354 /**************************************************************************
355  * DoCopyOrCut
356  *
357  * copies the currently selected items into the clipboard
358  */
359 static BOOL DoCopyOrCut(
360         IContextMenu2 *iface,
361         HWND hwnd,
362         BOOL bCut)
363 {
364         ItemCmImpl *This = (ItemCmImpl *)iface;
365
366         LPSHELLBROWSER  lpSB;
367         LPSHELLVIEW     lpSV;
368         LPDATAOBJECT    lpDo;
369
370         TRACE("(%p)->(wnd=%p,bCut=0x%08x)\n",This, hwnd, bCut);
371
372         /* get the active IShellView */
373         if ((lpSB = (LPSHELLBROWSER)SendMessageA(hwnd, CWM_GETISHELLBROWSER,0,0)))
374         {
375           if (SUCCEEDED(IShellBrowser_QueryActiveShellView(lpSB, &lpSV)))
376           {
377             if (SUCCEEDED(IShellView_GetItemObject(lpSV, SVGIO_SELECTION, &IID_IDataObject, (LPVOID*)&lpDo)))
378             {
379               OleSetClipboard(lpDo);
380               IDataObject_Release(lpDo);
381             }
382             IShellView_Release(lpSV);
383           }
384         }
385         return TRUE;
386 }
387 /**************************************************************************
388 * ISvItemCm_fnInvokeCommand()
389 */
390 static HRESULT WINAPI ISvItemCm_fnInvokeCommand(
391         IContextMenu2 *iface,
392         LPCMINVOKECOMMANDINFO lpcmi)
393 {
394     ItemCmImpl *This = (ItemCmImpl *)iface;
395
396     if (lpcmi->cbSize != sizeof(CMINVOKECOMMANDINFO))
397         FIXME("Is an EX structure\n");
398
399     TRACE("(%p)->(invcom=%p verb=%p wnd=%p)\n",This,lpcmi,lpcmi->lpVerb, lpcmi->hwnd);
400
401     if( HIWORD(lpcmi->lpVerb)==0 && LOWORD(lpcmi->lpVerb) > FCIDM_SHVIEWLAST)
402     {
403         TRACE("Invalid Verb %x\n",LOWORD(lpcmi->lpVerb));
404         return E_INVALIDARG;
405     }
406
407     if (HIWORD(lpcmi->lpVerb) == 0)
408     {
409         switch(LOWORD(lpcmi->lpVerb))
410         {
411         case FCIDM_SHVIEW_EXPLORE:
412             TRACE("Verb FCIDM_SHVIEW_EXPLORE\n");
413             DoOpenExplore(iface, lpcmi->hwnd, "explore");
414             break;
415         case FCIDM_SHVIEW_OPEN:
416             TRACE("Verb FCIDM_SHVIEW_OPEN\n");
417             DoOpenExplore(iface, lpcmi->hwnd, "open");
418             break;
419         case FCIDM_SHVIEW_RENAME:
420             TRACE("Verb FCIDM_SHVIEW_RENAME\n");
421             DoRename(iface, lpcmi->hwnd);
422             break;
423         case FCIDM_SHVIEW_DELETE:
424             TRACE("Verb FCIDM_SHVIEW_DELETE\n");
425             DoDelete(iface);
426             break;
427         case FCIDM_SHVIEW_COPY:
428             TRACE("Verb FCIDM_SHVIEW_COPY\n");
429             DoCopyOrCut(iface, lpcmi->hwnd, FALSE);
430             break;
431         case FCIDM_SHVIEW_CUT:
432             TRACE("Verb FCIDM_SHVIEW_CUT\n");
433             DoCopyOrCut(iface, lpcmi->hwnd, TRUE);
434             break;
435         default:
436             FIXME("Unhandled Verb %xl\n",LOWORD(lpcmi->lpVerb));
437         }
438     }
439     else
440     {
441         TRACE("Verb is %s\n",debugstr_a(lpcmi->lpVerb));
442         if (strcmp(lpcmi->lpVerb,"delete")==0)
443             DoDelete(iface);
444         else
445             FIXME("Unhandled string verb %s\n",debugstr_a(lpcmi->lpVerb));
446     }
447     return NOERROR;
448 }
449
450 /**************************************************************************
451 *  ISvItemCm_fnGetCommandString()
452 */
453 static HRESULT WINAPI ISvItemCm_fnGetCommandString(
454         IContextMenu2 *iface,
455         UINT_PTR idCommand,
456         UINT uFlags,
457         UINT* lpReserved,
458         LPSTR lpszName,
459         UINT uMaxNameLen)
460 {
461         ItemCmImpl *This = (ItemCmImpl *)iface;
462
463         HRESULT  hr = E_INVALIDARG;
464
465         TRACE("(%p)->(idcom=%x flags=%x %p name=%p len=%x)\n",This, idCommand, uFlags, lpReserved, lpszName, uMaxNameLen);
466
467         switch(uFlags)
468         {
469           case GCS_HELPTEXTA:
470           case GCS_HELPTEXTW:
471             hr = E_NOTIMPL;
472             break;
473
474           case GCS_VERBA:
475             switch(idCommand)
476             {
477               case FCIDM_SHVIEW_RENAME:
478                 strcpy((LPSTR)lpszName, "rename");
479                 hr = NOERROR;
480                 break;
481             }
482             break;
483
484              /* NT 4.0 with IE 3.0x or no IE will always call This with GCS_VERBW. In This
485              case, you need to do the lstrcpyW to the pointer passed.*/
486           case GCS_VERBW:
487             switch(idCommand)
488             { case FCIDM_SHVIEW_RENAME:
489                 MultiByteToWideChar( CP_ACP, 0, "rename", -1, (LPWSTR)lpszName, uMaxNameLen );
490                 hr = NOERROR;
491                 break;
492             }
493             break;
494
495           case GCS_VALIDATEA:
496           case GCS_VALIDATEW:
497             hr = NOERROR;
498             break;
499         }
500         TRACE("-- (%p)->(name=%s)\n",This, lpszName);
501         return hr;
502 }
503
504 /**************************************************************************
505 * ISvItemCm_fnHandleMenuMsg()
506 * NOTES
507 *  should be only in IContextMenu2 and IContextMenu3
508 *  is nevertheless called from word95
509 */
510 static HRESULT WINAPI ISvItemCm_fnHandleMenuMsg(
511         IContextMenu2 *iface,
512         UINT uMsg,
513         WPARAM wParam,
514         LPARAM lParam)
515 {
516         ItemCmImpl *This = (ItemCmImpl *)iface;
517
518         TRACE("(%p)->(msg=%x wp=%x lp=%lx)\n",This, uMsg, wParam, lParam);
519
520         return E_NOTIMPL;
521 }
522
523 static const IContextMenu2Vtbl cmvt =
524 {
525         ISvItemCm_fnQueryInterface,
526         ISvItemCm_fnAddRef,
527         ISvItemCm_fnRelease,
528         ISvItemCm_fnQueryContextMenu,
529         ISvItemCm_fnInvokeCommand,
530         ISvItemCm_fnGetCommandString,
531         ISvItemCm_fnHandleMenuMsg
532 };