annotate netinstall/desktop.cc @ 726:1f525cb38373

[xemacs-hg @ 2002-01-09 18:58:56 by janv] Autodetect Athena when explicitly asked for widgets
author janv
date Wed, 09 Jan 2002 18:58:57 +0000
parents a307f9a2021d
children 6504113e7c2d
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);
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
318 setup_explorer ("hh", "C++ Header file", batname);
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
319 }
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
320 if (reg_c)
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
321 {
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
322 log (0, "Registering .c files");
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
323 setup_explorer ("c", "C Source file", batname);
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
324 setup_explorer ("h", "C Header file", batname);
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
325 }
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
326 if (reg_elisp)
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
327 {
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
328 log (0, "Registering .el files");
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
329 setup_explorer ("el", "E-Lisp Source file", batname);
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 if (reg_txt)
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
332 {
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
333 log (0, "Registering .txt files");
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
334 setup_explorer ("txt", "Text file", batname);
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
335 }
672
42a8626b741e [xemacs-hg @ 2001-10-26 02:42:53 by andyp]
andyp
parents: 666
diff changeset
336 if (reg_idl)
42a8626b741e [xemacs-hg @ 2001-10-26 02:42:53 by andyp]
andyp
parents: 666
diff changeset
337 {
42a8626b741e [xemacs-hg @ 2001-10-26 02:42:53 by andyp]
andyp
parents: 666
diff changeset
338 log (0, "Registering .idl files");
42a8626b741e [xemacs-hg @ 2001-10-26 02:42:53 by andyp]
andyp
parents: 666
diff changeset
339 setup_explorer ("idl", "OMG IDL file", batname);
42a8626b741e [xemacs-hg @ 2001-10-26 02:42:53 by andyp]
andyp
parents: 666
diff changeset
340 }
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
341 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
342 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
343 }
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 static int da[] = { IDC_ROOT_DESKTOP, 0 };
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
346 static int ma[] = { IDC_ROOT_MENU, 0 };
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
347
657
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
348 static int ct[] = { IDC_C_TYPE, 0 };
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
349 static int javat[] = { IDC_JAVA_TYPE, 0 };
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
350 static int cppt[] = { IDC_CPP_TYPE, 0 };
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
351 static int elispt[] = { IDC_ELISP_TYPE, 0 };
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
352 static int txtt[] = { IDC_TXT_TYPE, 0 };
672
42a8626b741e [xemacs-hg @ 2001-10-26 02:42:53 by andyp]
andyp
parents: 666
diff changeset
353 static int idlt[] = { IDC_IDL_TYPE, 0 };
657
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
354
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
355 static void
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
356 check_if_enable_next (HWND h)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
357 {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
358 EnableWindow (GetDlgItem (h, IDOK), 1);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
359 }
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 static void
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
362 load_dialog (HWND h)
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 rbset (h, da, root_desktop);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
365 rbset (h, ma, root_menu);
657
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
366 rbset (h, ct, reg_c);
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
367 rbset (h, javat, reg_java);
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
368 rbset (h, cppt, reg_cpp);
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
369 rbset (h, elispt, reg_elisp);
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
370 rbset (h, txtt, reg_txt);
672
42a8626b741e [xemacs-hg @ 2001-10-26 02:42:53 by andyp]
andyp
parents: 666
diff changeset
371 rbset (h, idlt, reg_idl);
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
372 check_if_enable_next (h);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
373 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
374
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
375 static int check_desktop (char *title, char *target)
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 char path[_MAX_PATH];
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
378 LPITEMIDLIST id;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
379 int issystem = (root_scope == IDC_ROOT_SYSTEM) ? 1 : 0;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
380 SHGetSpecialFolderLocation (NULL, issystem ? CSIDL_COMMON_DESKTOPDIRECTORY : CSIDL_DESKTOPDIRECTORY, &id);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
381 SHGetPathFromIDList (id, path);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
382 // following lines added because it appears Win95 does not use common programs
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
383 // unless it comes into play when multiple users for Win95 is enabled
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
384 msg ("Desktop directory for desktop link: %s",path);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
385 if (strlen (path) == 0) {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
386 SHGetSpecialFolderLocation (NULL, CSIDL_DESKTOPDIRECTORY, &id);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
387 SHGetPathFromIDList (id, path);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
388 msg ("Desktop directory for deskop link changed to: %s",path);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
389 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
390 // end of Win95 addition
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
391 char *fname = concat (path, "/", title, ".lnk", 0);
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 if (_access (fname, 0) == 0)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
394 return 0; /* already exists */
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 fname = concat (path, "/", title, ".pif", 0); /* check for a pif as well */
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
397
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
398 if (_access (fname, 0) == 0)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
399 return 0; /* already exists */
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 return IDC_ROOT_DESKTOP;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
402 }
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 static int check_startmenu (char *title, char *target)
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 char path[_MAX_PATH];
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
407 LPITEMIDLIST id;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
408 int issystem = (root_scope == IDC_ROOT_SYSTEM) ? 1 : 0;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
409 SHGetSpecialFolderLocation (NULL, issystem ? CSIDL_COMMON_PROGRAMS : CSIDL_PROGRAMS, &id);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
410 SHGetPathFromIDList (id, path);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
411 // following lines added because it appears Win95 does not use common programs
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
412 // unless it comes into play when multiple users for Win95 is enabled
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
413 msg ("Program directory for program link: %s",path);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
414 if (strlen (path) == 0) {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
415 SHGetSpecialFolderLocation (NULL, CSIDL_PROGRAMS, &id);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
416 SHGetPathFromIDList (id, path);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
417 msg ("Program directory for program link changed to: %s",path);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
418 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
419 // end of Win95 addition
666
146d342ff859 [xemacs-hg @ 2001-09-25 02:35:32 by andyp]
andyp
parents: 657
diff changeset
420 strcat (path, "\\");
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
421 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
422 char *fname = concat (path, "\\", title, ".lnk", 0);
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
423
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
424 if (_access (fname, 0) == 0)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
425 return 0; /* already exists */
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
426
666
146d342ff859 [xemacs-hg @ 2001-09-25 02:35:32 by andyp]
andyp
parents: 657
diff changeset
427 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
428
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
429 if (_access (fname, 0) == 0)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
430 return 0; /* already exists */
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 return IDC_ROOT_MENU;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
433 }
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 static void
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
436 save_dialog (HWND h)
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 root_desktop= rbget (h, da);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
439 root_menu = rbget (h, ma);
657
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
440 reg_c = rbget (h, ct);
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
441 reg_java = rbget (h, javat);
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
442 reg_cpp = rbget (h, cppt);
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
443 reg_elisp = rbget (h, elispt);
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
444 reg_txt = rbget (h, txtt);
672
42a8626b741e [xemacs-hg @ 2001-10-26 02:42:53 by andyp]
andyp
parents: 666
diff changeset
445 reg_idl = rbget (h, idlt);
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
446 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
447
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
448 static BOOL
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
449 dialog_cmd (HWND h, int id, HWND hwndctl, UINT code)
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 switch (id)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
452 {
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 case IDC_ROOT_DESKTOP:
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
455 case IDC_ROOT_MENU:
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
456 save_dialog (h);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
457 check_if_enable_next (h);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
458 break;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
459
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
460 case IDOK:
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
461 save_dialog (h);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
462 do_desktop_setup();
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
463 NEXT (IDD_S_POSTINSTALL);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
464 break;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
465
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
466 case IDC_BACK:
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
467 save_dialog (h);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
468 NEXT (IDD_CHOOSE);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
469 break;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
470
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
471 case IDCANCEL:
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
472 NEXT (0);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
473 break;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
474 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
475 return FALSE;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
476 }
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 static BOOL CALLBACK
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
479 dialog_proc (HWND h, UINT message, WPARAM wParam, LPARAM lParam)
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 switch (message)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
482 {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
483 case WM_INITDIALOG:
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
484 load_dialog (h);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
485 return FALSE;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
486 case WM_COMMAND:
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
487 return HANDLE_WM_COMMAND (h, wParam, lParam, dialog_cmd);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
488 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
489 return FALSE;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
490 }
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 void
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
493 do_desktop (HINSTANCE h)
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 CoInitialize (NULL);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
496
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
497 verinfo.dwOSVersionInfoSize = sizeof (verinfo);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
498 GetVersionEx (&verinfo);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
499 batname = 0;
666
146d342ff859 [xemacs-hg @ 2001-09-25 02:35:32 by andyp]
andyp
parents: 657
diff changeset
500 uninstname = 0;
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
501
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
502 if (xemacs_package != 0 && xemacs_package->type != TY_GENERIC)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
503 {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
504 batname = concat (find_xemacs_exe_path (), "\\",
452
3d3049ae1304 Import from CVS: tag r21-2-41
cvs
parents: 448
diff changeset
505 find_xemacs_exe_name (),
3d3049ae1304 Import from CVS: tag r21-2-41
cvs
parents: 448
diff changeset
506 0);
666
146d342ff859 [xemacs-hg @ 2001-09-25 02:35:32 by andyp]
andyp
parents: 657
diff changeset
507 uninstname = concat (find_xemacs_exe_path (), "\\", "setup.exe", 0);
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
508 root_desktop = check_desktop ("XEmacs", batname);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
509 root_menu = check_startmenu ("XEmacs", batname);
657
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
510 reg_c = IDC_C_TYPE;
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
511 reg_cpp = IDC_CPP_TYPE;
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
512 reg_java = IDC_JAVA_TYPE;
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
513 reg_elisp = IDC_ELISP_TYPE;
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
514 reg_txt = IDC_TXT_TYPE;
672
42a8626b741e [xemacs-hg @ 2001-10-26 02:42:53 by andyp]
andyp
parents: 666
diff changeset
515 reg_idl = IDC_IDL_TYPE;
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
516 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
517 else
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
518 {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
519 root_desktop = 0;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
520 root_menu = 0;
657
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
521 reg_c = 0;
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
522 reg_cpp = 0;
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
523 reg_java = 0;
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
524 reg_elisp = 0;
ce0b3f2eff35 [xemacs-hg @ 2001-09-09 04:37:41 by andyp]
andyp
parents: 462
diff changeset
525 reg_txt = 0;
672
42a8626b741e [xemacs-hg @ 2001-10-26 02:42:53 by andyp]
andyp
parents: 666
diff changeset
526 reg_idl = 0;
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
527 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
528
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
529 int rv = 0;
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 rv = DialogBox (h, MAKEINTRESOURCE (IDD_DESKTOP), 0, dialog_proc);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
532 if (rv == -1)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
533 fatal (IDS_DIALOG_FAILED);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents:
diff changeset
534 }