annotate netinstall/desktop.cc @ 4614:afbfad080ddd

The URLs in our current config.guess and config.sub files are obsolete. Update to the latest upstream release to get correct URLs, as well as fixes and enhancements to those scripts.
author Jerry James <james@xemacs.org>
date Wed, 11 Feb 2009 11:09:35 -0700
parents 6504113e7c2d
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
1 /*
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
2 * Copyright (c) 2000, Red Hat, Inc.
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
3 *
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
4 * This program is free software; you can redistribute it and/or modify
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
5 * it under the terms of the GNU General Public License as published by
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
6 * the Free Software Foundation; either version 2 of the License, or
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
7 * (at your option) any later version.
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
8 *
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
9 * A copy of the GNU General Public License can be found at
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
10 * http://www.gnu.org/
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
11 *
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
12 * Written by DJ Delorie <dj@cygnus.com>
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
13 *
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
14 */
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
15
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
16 /* The purpose of this file is to manage all the desktop setup, such
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
17 as start menu, batch files, desktop icons, and shortcuts. Note
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
18 that unlike other do_* functions, this one is called directly from
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
19 install.cc */
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
20
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
21
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
22 #include "win32.h"
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
23 #include <shlobj.h>
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
24
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
25 #include <io.h>
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
26 #include <stdio.h>
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
27 #include <stdlib.h>
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
28 #ifndef WIN32_NATIVE
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
29 #include <unistd.h>
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
30 #endif
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
31
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
32 #include "resource.h"
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
33 #include "ini.h"
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
34 #include "msg.h"
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
35 #include "state.h"
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
36 #include "concat.h"
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
37 #include "mkdir.h"
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
38 #include "dialog.h"
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
39 #include "version.h"
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
40 #include "reginfo.h"
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
41 #include "regedit.h"
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
42 #include "port.h"
657
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
43 #include "log.h"
707
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 672
diff changeset
44 #include "desktop.h"
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
45
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
46 extern "C" {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
47 void make_link_2 (char *exepath, char *args, char *icon, char *lname);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
48 };
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
49
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
50 static OSVERSIONINFO verinfo;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
51
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
52 /* Lines starting with '@' are conditionals - include 'N' for NT,
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
53 '5' for Win95, '8' for Win98, '*' for all, like this:
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
54 echo foo
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
55 @N8
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
56 echo NT or 98
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
57 @*
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
58 */
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
59
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
60 #define COMMAND9XARGS "/E:4096 /c"
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
61 #define COMMAND9XEXE "\\command.com"
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
62
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
63 static char *iconname;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
64 static char *batname;
666
146d342ff859 [xemacs-hg @ 2001-09-25 02:35:32 by andyp]
andyp
parents: 657
diff changeset
65 static char *uninstname;
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
66
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
67 static void
666
146d342ff859 [xemacs-hg @ 2001-09-25 02:35:32 by andyp]
andyp
parents: 657
diff changeset
68 make_link (char *linkpath, char *title, char *target, char* args)
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
69 {
666
146d342ff859 [xemacs-hg @ 2001-09-25 02:35:32 by andyp]
andyp
parents: 657
diff changeset
70 #if 0
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
71 char argbuf[_MAX_PATH];
666
146d342ff859 [xemacs-hg @ 2001-09-25 02:35:32 by andyp]
andyp
parents: 657
diff changeset
72 #endif
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
73 char *fname = concat (linkpath, "/", title, ".lnk", 0);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
74
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
75 if (_access (fname, 0) == 0)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
76 return; /* already exists */
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
77
666
146d342ff859 [xemacs-hg @ 2001-09-25 02:35:32 by andyp]
andyp
parents: 657
diff changeset
78 msg ("make_link %s, %s, %s, %s\n", fname, title, target, args);
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
79
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
80 mkdir_p (0, fname);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
81
666
146d342ff859 [xemacs-hg @ 2001-09-25 02:35:32 by andyp]
andyp
parents: 657
diff changeset
82 char *exepath;
146d342ff859 [xemacs-hg @ 2001-09-25 02:35:32 by andyp]
andyp
parents: 657
diff changeset
83 #if 0
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
84 /* If we are running Win9x, build a command line. */
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
85 if (verinfo.dwPlatformId == VER_PLATFORM_WIN32_NT)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
86 {
666
146d342ff859 [xemacs-hg @ 2001-09-25 02:35:32 by andyp]
andyp
parents: 657
diff changeset
87 #endif
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
88 exepath = target;
666
146d342ff859 [xemacs-hg @ 2001-09-25 02:35:32 by andyp]
andyp
parents: 657
diff changeset
89 #if 0
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
90 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
91 else
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
92 {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
93 char windir[MAX_PATH];
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
94
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
95 GetWindowsDirectory (windir, sizeof (windir));
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
96 exepath = concat (windir, COMMAND9XEXE, 0);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
97 sprintf (argbuf, "%s %s", COMMAND9XARGS, target);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
98 args = argbuf;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
99 }
666
146d342ff859 [xemacs-hg @ 2001-09-25 02:35:32 by andyp]
andyp
parents: 657
diff changeset
100 #endif
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
101 msg ("make_link_2 (%s, %s, %s, %s)", exepath, args, iconname, fname);
666
146d342ff859 [xemacs-hg @ 2001-09-25 02:35:32 by andyp]
andyp
parents: 657
diff changeset
102 make_link_2 (backslash (exepath), args, iconname, fname);
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
103 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
104
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
105 static char*
707
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 672
diff changeset
106 find_xemacs_version ()
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 672
diff changeset
107 {
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 672
diff changeset
108 char* v = strdup (xemacs_package->info[xemacs_package->trust].version);
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 672
diff changeset
109 char* dash = strrchr (v, '-');
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 672
diff changeset
110 if (dash)
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 672
diff changeset
111 *dash = 0;
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 672
diff changeset
112 return v;
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 672
diff changeset
113 }
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 672
diff changeset
114
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 672
diff changeset
115 static char*
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
116 find_xemacs_exe_path ()
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
117 {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
118 if (xemacs_package->type == TY_CYGWIN)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
119 return backslash (concat (root_dir, "/bin/", XEMACS_CYGWIN_ARCH_NAME, 0));
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
120 else
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
121 return backslash (concat (root_dir, "\\XEmacs-",
707
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 672
diff changeset
122 find_xemacs_version (),
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
123 "\\", XEMACS_NATIVE_ARCH_NAME, 0));
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
124 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
125
666
146d342ff859 [xemacs-hg @ 2001-09-25 02:35:32 by andyp]
andyp
parents: 657
diff changeset
126 char*
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
127 find_xemacs_exe_name ()
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
128 {
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 452
diff changeset
129 /* Hack to support older versions. */
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 452
diff changeset
130 if (strncmp (xemacs_package->info[xemacs_package->trust].version,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 452
diff changeset
131 "21.1", 4) == 0)
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 452
diff changeset
132 return strdup ("runemacs.exe");
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 452
diff changeset
133 else if (xemacs_package->type == TY_CYGWIN)
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
134 return backslash (concat ("xemacs-",
707
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 672
diff changeset
135 find_xemacs_version (),
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
136 ".exe", 0));
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
137 else
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
138 return strdup ("xemacs.exe");
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
139 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
140
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
141 static void
657
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
142 remove_link (char *linkpath, char* title)
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
143 {
666
146d342ff859 [xemacs-hg @ 2001-09-25 02:35:32 by andyp]
andyp
parents: 657
diff changeset
144 if (title)
146d342ff859 [xemacs-hg @ 2001-09-25 02:35:32 by andyp]
andyp
parents: 657
diff changeset
145 {
146d342ff859 [xemacs-hg @ 2001-09-25 02:35:32 by andyp]
andyp
parents: 657
diff changeset
146 char *fname = backslash (concat (linkpath, "/", title, ".lnk", 0));
146d342ff859 [xemacs-hg @ 2001-09-25 02:35:32 by andyp]
andyp
parents: 657
diff changeset
147 msg ("remove_link %s, %s\n", fname, title);
146d342ff859 [xemacs-hg @ 2001-09-25 02:35:32 by andyp]
andyp
parents: 657
diff changeset
148 if (_access (fname, 0) != 0)
146d342ff859 [xemacs-hg @ 2001-09-25 02:35:32 by andyp]
andyp
parents: 657
diff changeset
149 return; /* doesn't exist */
146d342ff859 [xemacs-hg @ 2001-09-25 02:35:32 by andyp]
andyp
parents: 657
diff changeset
150 _unlink (fname);
146d342ff859 [xemacs-hg @ 2001-09-25 02:35:32 by andyp]
andyp
parents: 657
diff changeset
151 }
146d342ff859 [xemacs-hg @ 2001-09-25 02:35:32 by andyp]
andyp
parents: 657
diff changeset
152 else
146d342ff859 [xemacs-hg @ 2001-09-25 02:35:32 by andyp]
andyp
parents: 657
diff changeset
153 {
146d342ff859 [xemacs-hg @ 2001-09-25 02:35:32 by andyp]
andyp
parents: 657
diff changeset
154 msg ("remove_link %s\n", linkpath);
146d342ff859 [xemacs-hg @ 2001-09-25 02:35:32 by andyp]
andyp
parents: 657
diff changeset
155 if (_access (linkpath, 0) != 0)
146d342ff859 [xemacs-hg @ 2001-09-25 02:35:32 by andyp]
andyp
parents: 657
diff changeset
156 return; /* doesn't exist */
146d342ff859 [xemacs-hg @ 2001-09-25 02:35:32 by andyp]
andyp
parents: 657
diff changeset
157 _rmdir (linkpath);
146d342ff859 [xemacs-hg @ 2001-09-25 02:35:32 by andyp]
andyp
parents: 657
diff changeset
158 }
657
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
159 }
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
160
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
161 static void
666
146d342ff859 [xemacs-hg @ 2001-09-25 02:35:32 by andyp]
andyp
parents: 657
diff changeset
162 start_menu (char *title, char *target, int rem, char* args)
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
163 {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
164 char path[_MAX_PATH];
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
165 LPITEMIDLIST id;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
166 int issystem = (root_scope == IDC_ROOT_SYSTEM) ? 1 : 0;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
167 SHGetSpecialFolderLocation (NULL, issystem ? CSIDL_COMMON_PROGRAMS : CSIDL_PROGRAMS, &id);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
168 SHGetPathFromIDList (id, path);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
169 // following lines added because it appears Win95 does not use common programs
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
170 // unless it comes into play when multiple users for Win95 is enabled
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
171 msg("Program directory for program link: %s",path);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
172 if ( strlen(path) == 0) {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
173 SHGetSpecialFolderLocation (NULL, CSIDL_PROGRAMS, &id);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
174 SHGetPathFromIDList (id, path);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
175 msg("Program directory for program link changed to: %s",path);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
176 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
177 // end of Win95 addition
666
146d342ff859 [xemacs-hg @ 2001-09-25 02:35:32 by andyp]
andyp
parents: 657
diff changeset
178 strcat (path, "\\");
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
179 strcat (path, XEMACS_INFO_XEMACS_ORG_REGISTRY_NAME);
666
146d342ff859 [xemacs-hg @ 2001-09-25 02:35:32 by andyp]
andyp
parents: 657
diff changeset
180 if (rem == 0)
146d342ff859 [xemacs-hg @ 2001-09-25 02:35:32 by andyp]
andyp
parents: 657
diff changeset
181 make_link (path, title, target, args);
657
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
182 else
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
183 remove_link (path, title);
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
184 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
185
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
186 static void
666
146d342ff859 [xemacs-hg @ 2001-09-25 02:35:32 by andyp]
andyp
parents: 657
diff changeset
187 desktop_icon (char *title, char *target, int rem)
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
188 {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
189 char path[_MAX_PATH];
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
190 LPITEMIDLIST id;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
191 int issystem = (root_scope == IDC_ROOT_SYSTEM) ? 1 : 0;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
192 //SHGetSpecialFolderLocation (NULL, issystem ? CSIDL_DESKTOP : CSIDL_COMMON_DESKTOPDIRECTORY, &id);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
193 SHGetSpecialFolderLocation (NULL, issystem ? CSIDL_COMMON_DESKTOPDIRECTORY : CSIDL_DESKTOPDIRECTORY, &id);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
194 SHGetPathFromIDList (id, path);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
195 // following lines added because it appears Win95 does not use common programs
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
196 // unless it comes into play when multiple users for Win95 is enabled
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
197 msg("Desktop directory for desktop link: %s",path);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
198 if ( strlen(path) == 0) {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
199 SHGetSpecialFolderLocation (NULL, CSIDL_DESKTOPDIRECTORY, &id);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
200 SHGetPathFromIDList (id, path);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
201 msg("Desktop directory for deskop link changed to: %s",path);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
202 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
203 // end of Win95 addition
666
146d342ff859 [xemacs-hg @ 2001-09-25 02:35:32 by andyp]
andyp
parents: 657
diff changeset
204 if (rem == 0)
146d342ff859 [xemacs-hg @ 2001-09-25 02:35:32 by andyp]
andyp
parents: 657
diff changeset
205 make_link (path, title, target, "");
657
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
206 else
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
207 remove_link (path, title);
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
208 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
209
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
210 static void
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
211 save_icon ()
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
212 {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
213 iconname = backslash (concat (root_dir, XEMACS_RESOURCE_DIR,
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
214 "xemacs.ico", 0));
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
215
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
216 HRSRC rsrc = FindResource (NULL, "XEMACS.ICON", "FILE");
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
217 if (rsrc == NULL)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
218 {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
219 fatal ("FindResource failed");
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
220 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
221 HGLOBAL res = LoadResource (NULL, rsrc);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
222 char *data = (char *) LockResource (res);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
223 int len = SizeofResource (NULL, rsrc);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
224
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
225 FILE *f = fopen (iconname, "wb");
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
226 if (f)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
227 {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
228 fwrite (data, 1, len, f);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
229 fclose (f);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
230 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
231 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
232
657
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
233 void
707
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 672
diff changeset
234 remove_xemacs_setup()
657
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
235 {
707
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 672
diff changeset
236 if (xemacs_package == 0)
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 672
diff changeset
237 return;
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 672
diff changeset
238
666
146d342ff859 [xemacs-hg @ 2001-09-25 02:35:32 by andyp]
andyp
parents: 657
diff changeset
239 start_menu ("XEmacs", 0, 1, 0);
657
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
240 desktop_icon ("XEmacs", 0, 1);
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
241
666
146d342ff859 [xemacs-hg @ 2001-09-25 02:35:32 by andyp]
andyp
parents: 657
diff changeset
242 #define FROB(exe) remove_app_path (exe)
707
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 672
diff changeset
243 FROB (find_xemacs_exe_name ());
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 672
diff changeset
244 FROB ("runemacs.exe");
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 672
diff changeset
245 FROB ("xemacs.exe");
657
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
246 #undef FROB
707
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 672
diff changeset
247 }
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 672
diff changeset
248
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 672
diff changeset
249 void
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 672
diff changeset
250 remove_desktop_setup()
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 672
diff changeset
251 {
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 672
diff changeset
252 remove_xemacs_setup();
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 672
diff changeset
253 start_menu ("Uninstall XEmacs", 0, 1, 0);
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 672
diff changeset
254 start_menu (0, 0, 1, 0);
657
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
255 }
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
256
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
257 static void
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
258 do_desktop_setup()
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
259 {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
260 save_icon ();
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
261
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
262 if (root_menu && batname) {
666
146d342ff859 [xemacs-hg @ 2001-09-25 02:35:32 by andyp]
andyp
parents: 657
diff changeset
263 start_menu ("XEmacs", batname, 0, "");
146d342ff859 [xemacs-hg @ 2001-09-25 02:35:32 by andyp]
andyp
parents: 657
diff changeset
264 start_menu ("Uninstall XEmacs", uninstname, 0, "-u");
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
265 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
266
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
267 if (root_desktop && batname) {
657
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
268 desktop_icon ("XEmacs", batname, 0);
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
269 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
270
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
271 // set regkeys for the application
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
272 if (xemacs_package != 0)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
273 {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
274 int issystem = (root_scope == IDC_ROOT_SYSTEM ? 1 : 0);
657
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
275 if (xemacs_package->type == TY_NATIVE
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
276 || xemacs_package->type == TY_CYGWIN)
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
277 {
657
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
278 if (xemacs_package->type == TY_NATIVE)
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
279 {
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
280 #define FROB(exe) set_app_path ((exe), \
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
281 find_xemacs_exe_path (), \
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
282 issystem)
657
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
283 FROB (find_xemacs_exe_name ());
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
284 FROB ("runemacs.exe");
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
285 FROB ("xemacs.exe");
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
286 #undef FROB
657
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
287 }
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
288 else if (xemacs_package->type == TY_CYGWIN)
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
289 {
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
290 int junk;
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
291 char* root = find_cygwin_root (&junk);
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
292 #define FROB(exe) set_app_path ((exe), \
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
293 concat (find_xemacs_exe_path (), ";", \
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
294 root, "\\bin;", \
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
295 root, "\\usr\\bin", 0), \
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
296 issystem)
657
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
297 FROB (find_xemacs_exe_name ());
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
298 FROB ("runemacs.exe");
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
299 FROB ("xemacs.exe");
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
300 #undef FROB
657
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
301 }
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
302 set_install_path (find_xemacs_exe_path(), issystem);
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
303 }
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
304 // Register file types
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
305 if (batname)
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
306 {
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
307 if (reg_java)
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
308 {
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
309 log (0, "Registering .java files");
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
310 setup_explorer ("java", "Java Source file", batname);
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
311 setup_explorer ("jav", "Java Source file", batname);
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
312 }
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
313 if (reg_cpp)
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
314 {
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
315 log (0, "Registering .cpp files");
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
316 setup_explorer ("cpp", "C++ Source file", batname);
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
317 setup_explorer ("cc", "C++ Source file", batname);
819
6504113e7c2d [xemacs-hg @ 2002-04-25 18:03:23 by andyp]
andyp
parents: 707
diff changeset
318 setup_explorer ("cxx", "C++ Source file", batname);
657
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
319 setup_explorer ("hh", "C++ Header file", batname);
819
6504113e7c2d [xemacs-hg @ 2002-04-25 18:03:23 by andyp]
andyp
parents: 707
diff changeset
320 setup_explorer ("hpp", "C++ Header file", batname);
6504113e7c2d [xemacs-hg @ 2002-04-25 18:03:23 by andyp]
andyp
parents: 707
diff changeset
321 setup_explorer ("hxx", "C++ Header file", batname);
657
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
322 }
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
323 if (reg_c)
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
324 {
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
325 log (0, "Registering .c files");
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
326 setup_explorer ("c", "C Source file", batname);
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
327 setup_explorer ("h", "C Header file", batname);
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
328 }
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
329 if (reg_elisp)
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
330 {
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
331 log (0, "Registering .el files");
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
332 setup_explorer ("el", "E-Lisp Source file", batname);
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
333 }
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
334 if (reg_txt)
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
335 {
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
336 log (0, "Registering .txt files");
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
337 setup_explorer ("txt", "Text file", batname);
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
338 }
672
42a8626b741e [xemacs-hg @ 2001-10-26 02:42:53 by andyp]
andyp
parents: 666
diff changeset
339 if (reg_idl)
42a8626b741e [xemacs-hg @ 2001-10-26 02:42:53 by andyp]
andyp
parents: 666
diff changeset
340 {
42a8626b741e [xemacs-hg @ 2001-10-26 02:42:53 by andyp]
andyp
parents: 666
diff changeset
341 log (0, "Registering .idl files");
42a8626b741e [xemacs-hg @ 2001-10-26 02:42:53 by andyp]
andyp
parents: 666
diff changeset
342 setup_explorer ("idl", "OMG IDL file", batname);
42a8626b741e [xemacs-hg @ 2001-10-26 02:42:53 by andyp]
andyp
parents: 666
diff changeset
343 }
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
344 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
345 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
346 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
347
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
348 static int da[] = { IDC_ROOT_DESKTOP, 0 };
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
349 static int ma[] = { IDC_ROOT_MENU, 0 };
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
350
657
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
351 static int ct[] = { IDC_C_TYPE, 0 };
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
352 static int javat[] = { IDC_JAVA_TYPE, 0 };
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
353 static int cppt[] = { IDC_CPP_TYPE, 0 };
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
354 static int elispt[] = { IDC_ELISP_TYPE, 0 };
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
355 static int txtt[] = { IDC_TXT_TYPE, 0 };
672
42a8626b741e [xemacs-hg @ 2001-10-26 02:42:53 by andyp]
andyp
parents: 666
diff changeset
356 static int idlt[] = { IDC_IDL_TYPE, 0 };
657
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
357
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
358 static void
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
359 check_if_enable_next (HWND h)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
360 {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
361 EnableWindow (GetDlgItem (h, IDOK), 1);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
362 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
363
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
364 static void
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
365 load_dialog (HWND h)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
366 {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
367 rbset (h, da, root_desktop);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
368 rbset (h, ma, root_menu);
657
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
369 rbset (h, ct, reg_c);
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
370 rbset (h, javat, reg_java);
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
371 rbset (h, cppt, reg_cpp);
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
372 rbset (h, elispt, reg_elisp);
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
373 rbset (h, txtt, reg_txt);
672
42a8626b741e [xemacs-hg @ 2001-10-26 02:42:53 by andyp]
andyp
parents: 666
diff changeset
374 rbset (h, idlt, reg_idl);
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
375 check_if_enable_next (h);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
376 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
377
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
378 static int check_desktop (char *title, char *target)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
379 {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
380 char path[_MAX_PATH];
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
381 LPITEMIDLIST id;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
382 int issystem = (root_scope == IDC_ROOT_SYSTEM) ? 1 : 0;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
383 SHGetSpecialFolderLocation (NULL, issystem ? CSIDL_COMMON_DESKTOPDIRECTORY : CSIDL_DESKTOPDIRECTORY, &id);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
384 SHGetPathFromIDList (id, path);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
385 // following lines added because it appears Win95 does not use common programs
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
386 // unless it comes into play when multiple users for Win95 is enabled
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
387 msg ("Desktop directory for desktop link: %s",path);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
388 if (strlen (path) == 0) {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
389 SHGetSpecialFolderLocation (NULL, CSIDL_DESKTOPDIRECTORY, &id);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
390 SHGetPathFromIDList (id, path);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
391 msg ("Desktop directory for deskop link changed to: %s",path);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
392 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
393 // end of Win95 addition
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
394 char *fname = concat (path, "/", title, ".lnk", 0);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
395
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
396 if (_access (fname, 0) == 0)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
397 return 0; /* already exists */
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
398
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
399 fname = concat (path, "/", title, ".pif", 0); /* check for a pif as well */
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
400
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
401 if (_access (fname, 0) == 0)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
402 return 0; /* already exists */
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
403
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
404 return IDC_ROOT_DESKTOP;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
405 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
406
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
407 static int check_startmenu (char *title, char *target)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
408 {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
409 char path[_MAX_PATH];
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
410 LPITEMIDLIST id;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
411 int issystem = (root_scope == IDC_ROOT_SYSTEM) ? 1 : 0;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
412 SHGetSpecialFolderLocation (NULL, issystem ? CSIDL_COMMON_PROGRAMS : CSIDL_PROGRAMS, &id);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
413 SHGetPathFromIDList (id, path);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
414 // following lines added because it appears Win95 does not use common programs
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
415 // unless it comes into play when multiple users for Win95 is enabled
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
416 msg ("Program directory for program link: %s",path);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
417 if (strlen (path) == 0) {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
418 SHGetSpecialFolderLocation (NULL, CSIDL_PROGRAMS, &id);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
419 SHGetPathFromIDList (id, path);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
420 msg ("Program directory for program link changed to: %s",path);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
421 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
422 // end of Win95 addition
666
146d342ff859 [xemacs-hg @ 2001-09-25 02:35:32 by andyp]
andyp
parents: 657
diff changeset
423 strcat (path, "\\");
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
424 strcat (path, XEMACS_INFO_XEMACS_ORG_REGISTRY_NAME);
666
146d342ff859 [xemacs-hg @ 2001-09-25 02:35:32 by andyp]
andyp
parents: 657
diff changeset
425 char *fname = concat (path, "\\", title, ".lnk", 0);
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
426
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
427 if (_access (fname, 0) == 0)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
428 return 0; /* already exists */
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
429
666
146d342ff859 [xemacs-hg @ 2001-09-25 02:35:32 by andyp]
andyp
parents: 657
diff changeset
430 fname = concat (path, "\\", title, ".pif", 0); /* check for a pif as well */
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
431
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
432 if (_access (fname, 0) == 0)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
433 return 0; /* already exists */
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
434
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
435 return IDC_ROOT_MENU;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
436 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
437
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
438 static void
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
439 save_dialog (HWND h)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
440 {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
441 root_desktop= rbget (h, da);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
442 root_menu = rbget (h, ma);
657
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
443 reg_c = rbget (h, ct);
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
444 reg_java = rbget (h, javat);
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
445 reg_cpp = rbget (h, cppt);
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
446 reg_elisp = rbget (h, elispt);
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
447 reg_txt = rbget (h, txtt);
672
42a8626b741e [xemacs-hg @ 2001-10-26 02:42:53 by andyp]
andyp
parents: 666
diff changeset
448 reg_idl = rbget (h, idlt);
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
449 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
450
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
451 static BOOL
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
452 dialog_cmd (HWND h, int id, HWND hwndctl, UINT code)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
453 {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
454 switch (id)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
455 {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
456
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
457 case IDC_ROOT_DESKTOP:
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
458 case IDC_ROOT_MENU:
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
459 save_dialog (h);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
460 check_if_enable_next (h);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
461 break;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
462
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
463 case IDOK:
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
464 save_dialog (h);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
465 do_desktop_setup();
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
466 NEXT (IDD_S_POSTINSTALL);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
467 break;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
468
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
469 case IDC_BACK:
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
470 save_dialog (h);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
471 NEXT (IDD_CHOOSE);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
472 break;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
473
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
474 case IDCANCEL:
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
475 NEXT (0);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
476 break;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
477 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
478 return FALSE;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
479 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
480
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
481 static BOOL CALLBACK
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
482 dialog_proc (HWND h, UINT message, WPARAM wParam, LPARAM lParam)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
483 {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
484 switch (message)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
485 {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
486 case WM_INITDIALOG:
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
487 load_dialog (h);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
488 return FALSE;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
489 case WM_COMMAND:
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
490 return HANDLE_WM_COMMAND (h, wParam, lParam, dialog_cmd);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
491 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
492 return FALSE;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
493 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
494
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
495 void
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
496 do_desktop (HINSTANCE h)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
497 {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
498 CoInitialize (NULL);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
499
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
500 verinfo.dwOSVersionInfoSize = sizeof (verinfo);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
501 GetVersionEx (&verinfo);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
502 batname = 0;
666
146d342ff859 [xemacs-hg @ 2001-09-25 02:35:32 by andyp]
andyp
parents: 657
diff changeset
503 uninstname = 0;
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
504
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
505 if (xemacs_package != 0 && xemacs_package->type != TY_GENERIC)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
506 {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
507 batname = concat (find_xemacs_exe_path (), "\\",
452
3d3049ae1304 Import from CVS: tag r21-2-41
cvs
parents: 448
diff changeset
508 find_xemacs_exe_name (),
3d3049ae1304 Import from CVS: tag r21-2-41
cvs
parents: 448
diff changeset
509 0);
666
146d342ff859 [xemacs-hg @ 2001-09-25 02:35:32 by andyp]
andyp
parents: 657
diff changeset
510 uninstname = concat (find_xemacs_exe_path (), "\\", "setup.exe", 0);
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
511 root_desktop = check_desktop ("XEmacs", batname);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
512 root_menu = check_startmenu ("XEmacs", batname);
657
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
513 reg_c = IDC_C_TYPE;
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
514 reg_cpp = IDC_CPP_TYPE;
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
515 reg_java = IDC_JAVA_TYPE;
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
516 reg_elisp = IDC_ELISP_TYPE;
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
517 reg_txt = IDC_TXT_TYPE;
672
42a8626b741e [xemacs-hg @ 2001-10-26 02:42:53 by andyp]
andyp
parents: 666
diff changeset
518 reg_idl = IDC_IDL_TYPE;
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
519 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
520 else
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
521 {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
522 root_desktop = 0;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
523 root_menu = 0;
657
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
524 reg_c = 0;
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
525 reg_cpp = 0;
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
526 reg_java = 0;
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
527 reg_elisp = 0;
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
528 reg_txt = 0;
672
42a8626b741e [xemacs-hg @ 2001-10-26 02:42:53 by andyp]
andyp
parents: 666
diff changeset
529 reg_idl = 0;
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
530 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
531
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
532 int rv = 0;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
533
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
534 rv = DialogBox (h, MAKEINTRESOURCE (IDD_DESKTOP), 0, dialog_proc);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
535 if (rv == -1)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
536 fatal (IDS_DIALOG_FAILED);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
537 }