?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
**** Merged from MCS ****
[mono-project.git] / mcs / class / System.Windows.Forms / System.Windows.Forms / Application.cs
blob5625d7c40480b3d2e81d14d0330c5a447843ac08
1 //
2 // System.Windows.Forms.Application.cs
3 //
4 // Author:
5 // stubbed out by Jaak Simm (jaaksimm@firm.ee)
6 // Miguel de Icaza (miguel@ximian.com)
7 // Dennis hayes (dennish@raytek.com)
8 // WINELib implementation started by John Sohn (jsohn@columbus.rr.com)
9 //
10 // (C) Ximian, Inc 2002/3
11 //
12
13 //
14 // Permission is hereby granted, free of charge, to any person obtaining
15 // a copy of this software and associated documentation files (the
16 // "Software"), to deal in the Software without restriction, including
17 // without limitation the rights to use, copy, modify, merge, publish,
18 // distribute, sublicense, and/or sell copies of the Software, and to
19 // permit persons to whom the Software is furnished to do so, subject to
20 // the following conditions:
21 //
22 // The above copyright notice and this permission notice shall be
23 // included in all copies or substantial portions of the Software.
24 //
25 // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
26 // EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
27 // MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
28 // NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
29 // LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
30 // OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
31 // WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
32 //
33
34 using System;
35 using System.Drawing;
36 using Microsoft.Win32;
37 using System.ComponentModel;
38 using System.Threading;
39 using System.Globalization;
40 using System.Reflection;
41 using System.Collections;
42 using System.Runtime.CompilerServices;
43 namespace System.Windows.Forms
44 {
45
46 /// <summary>
47 /// Provides static methods and properties to manage an application,
48 /// such as methods to start and stop an application, to process
49 /// Windows messages, and properties to get information about an
50 /// application. This class cannot be inherited.
51 /// </summary>
52
53 [MonoTODO]
54 public sealed class Application
55 {
56 static private ApplicationContext applicationContext = null;
57 static private bool messageLoopStarted = false;
58 static private bool messageLoopStopRequest = false;
59 static private ArrayList messageFilters = new ArrayList ();
60 static private string safeTopLevelCaptionFormat;
61 static private bool showingException = false;
62
63
64 private Application(){//For signiture compatablity. Prevents the auto creation of public constructor
65 }
66
67 // --- (public) Properties ---
68 public static bool AllowQuit
69 {
70 // according to docs return false if embbedded in a
71 // browser, not (yet?) embedded in a browser
72 get { return true; }
73 }
74
75 [MonoTODO]
76 public static string CommonAppDataPath
77 {
78 get
79 {
80 //FIXME:
81 return "";
82 }
83 }
84
85 [MonoTODO]
86 public static RegistryKey CommonAppDataRegistry
87 {
88 get
89 {
90 throw new NotImplementedException ();
91 }
92 }
93
94 [MonoTODO]
95 public static string CompanyName
96 {
97 get
98 {
99 AssemblyCompanyAttribute[] attrs =(AssemblyCompanyAttribute[]) Assembly.GetExecutingAssembly().GetCustomAttributes(typeof(AssemblyCompanyAttribute),true);
100 if (attrs != null && attrs[0] != null)
101 return attrs[0].Company;
102 return "";
103 }
104 }
105
106 [MonoTODO]
107 public static CultureInfo CurrentCulture
108 {
109 get
110 {
111 return CultureInfo.CurrentCulture;
112 }
113 set
114 {
115 Thread.CurrentThread.CurrentCulture = value;
116 }
117 }
118
119 [MonoTODO]
120 public static InputLanguage CurrentInputLanguage
121 {
122 get { throw new NotImplementedException (); }
123 set {return;}
124 }
125
126 [MonoTODO]
127 public static string ExecutablePath
128 {
129 get
130 {
131 return Assembly.GetExecutingAssembly().Location;
132 }
133 }
134
135 [MonoTODO]
136 public static string LocalUserAppDataPath
137 {
138 get
139 {
140 //FIXME:
141 return "";
142 }
143 }
144
145 public static bool MessageLoop
146 {
147 get
148 {
149 return messageLoopStarted;
150 }
151 }
152
153 [MonoTODO]
154 //.NET version 1.1
155 public static void EnableVisualStyles ()
156 {
157 return;
158 }
159
160 [MonoTODO]
161 public static string ProductName
162 {
163 get
164 {
165 AssemblyProductAttribute[] attrs =(AssemblyProductAttribute[]) Assembly.GetExecutingAssembly().GetCustomAttributes(typeof(AssemblyProductAttribute),true);
166 if (attrs != null && attrs[0] != null)
167 return attrs[0].Product;
168 return "";
169 }
170 }
171
172 [MonoTODO]
173 public static string ProductVersion
174 {
175 get
176 {
177 AssemblyVersionAttribute[] attrs =(AssemblyVersionAttribute[]) Assembly.GetExecutingAssembly().GetCustomAttributes(typeof(AssemblyVersionAttribute),true);
178 if (attrs != null && attrs[0] != null)
179 return attrs[0].Version;
180 return "";
181 }
182 }
183
184 [MonoTODO]
185 public static string SafeTopLevelCaptionFormat
186 {
187 get
188 {
189 return safeTopLevelCaptionFormat;
190 }
191 set
192 {
193 safeTopLevelCaptionFormat = value;
194 }
195 }
196
197 [MonoTODO]
198 public static string StartupPath
199 {
200 get
201 {
202 //FIXME:
203 return "";
204 }
205 }
206
207 [MonoTODO]
208 public static string UserAppDataPath
209 {
210 get
211 {
212 //FIXME:
213 return "";
214 }
215 }
216
217 [MonoTODO]
218 // Registry key not yet defined
219 public static RegistryKey UserAppDataRegistry
220 {
221 get { throw new NotImplementedException (); }
222 }
223
224 // --- Methods ---
225 public static void AddMessageFilter (IMessageFilter value)
226 {
227 messageFilters.Add (value);
228 }
229
230 //Compact Framework
231 public static void DoEvents ()
232 {
233 MSG msg = new MSG();
234
235 while (Win32.PeekMessageA (ref msg, (IntPtr) 0, 0, 0, (uint)PeekMessageFlags.PM_REMOVE) != 0) {
236 if (msg.message==Msg.WM_PAINT) {
237 Win32.TranslateMessage(ref msg);
238 Win32.DispatchMessageA(ref msg);
239 }
240 }
241 }
242
243 //Compact Framework
244 public static void Exit ()
245 {
246 Win32.PostQuitMessage (0);
247 }
248
249 public static void ExitThread ()
250 {
251 messageLoopStopRequest = true;
252 }
253
254 [MonoTODO]
255 public static ApartmentState OleRequired ()
256 {
257 throw new NotImplementedException ();
258 }
259
260 [MonoTODO]
261 public static void OnThreadException (Exception t)
262 {
263
264 if(Application.ThreadException != null)
265 Application.ThreadException(null, new ThreadExceptionEventArgs(t));
266 else{
267
268 if (!showingException) {
269
270 showingException = true;
271
272 Form excepForm = new Form();
273 excepForm.ClientSize = new System.Drawing.Size(400, 250);
274
275 TextBox txtLabel = new TextBox();
276 txtLabel.Location = new System.Drawing.Point(30, 30);
277 txtLabel.ReadOnly = true;
278 txtLabel.Multiline = true;
279 txtLabel.Size = new System.Drawing.Size(310, 50);
280 txtLabel.Text = "The application has produced an exception. Press 'Continue' if you want the application to try to continue its execution";
281 excepForm.Controls.Add(txtLabel);
282
283 TextBox txtError = new TextBox();
284 txtError.Location = new System.Drawing.Point(30, 110);
285 txtError.ReadOnly = true;
286 txtLabel.Multiline = true;
287 txtError.Size = new System.Drawing.Size(310, 50);
288 txtError.Text = t.Message;
289 excepForm.Controls.Add(txtError);
290
291 StackButton stackbtn = new StackButton(t);
292 stackbtn.Location = new System.Drawing.Point(30, 200);
293 stackbtn.Size = new System.Drawing.Size(100, 30);
294 stackbtn.Text = "Stack Trace";
295 excepForm.Controls.Add(stackbtn);
296
297 ContinueButton continuebtn = new ContinueButton(excepForm);
298 continuebtn.Location = new System.Drawing.Point(160, 200);
299 continuebtn.Size = new System.Drawing.Size(100, 30);
300 continuebtn.Text = "Continue";
301 excepForm.Controls.Add(continuebtn);
302
303 QuitButton quitbtn = new QuitButton();
304 quitbtn.Location = new System.Drawing.Point(290, 200);
305 quitbtn.Size = new System.Drawing.Size(100, 30);
306 quitbtn.Text = "Quit";
307 excepForm.Controls.Add(quitbtn);
308
309 excepForm.ShowDialog();
310 showingException = false;
311 }
312
313 }
314
315 }
316
317
318 public static void RemoveMessageFilter (IMessageFilter value)
319 {
320 messageFilters.Remove (value);
321 }
322
323 static private void ApplicationFormClosed (object o, EventArgs args)
324 {
325 Win32.PostQuitMessage (0);
326 }
327
328 //Compact Framework
329 static public void Run ()
330 {
331 MSG msg = new MSG();
332
333 messageLoopStarted = true;
334
335
336 while (!messageLoopStopRequest &&
337 Win32.GetMessageA (ref msg, 0, 0, 0) != 0)
338 {
339
340 bool dispatchMessage = true;
341
342 Message message = new Message ();
343 message.HWnd = msg.hwnd;
344 message.Msg = (int) msg.message;//
345 message.WParam = msg.wParam;
346 message.LParam = msg.lParam;
347
348 IEnumerator e = messageFilters.GetEnumerator();
349
350 while (e.MoveNext())
351 {
352 IMessageFilter filter =
353 (IMessageFilter) e.Current;
354
355 // if PreFilterMessage returns true
356 // the message should not be dispatched
357 if (filter.PreFilterMessage (ref message))
358 dispatchMessage = false;
359 }
360
361 Control receiver = Control.FromChildHandle ( message.HWnd );
362 if ( receiver != null )
363 {
364 dispatchMessage = ! receiver.PreProcessMessage ( ref message );
365 }
366
367 if (dispatchMessage)
368 {
369 Win32.TranslateMessage (ref msg);
370 Win32.DispatchMessageA (ref msg);
371 }
372 //if (Idle != null)
373 //Idle (null, new EventArgs());
374 }
375
376 //if (ApplicationExit != null)
377 //ApplicationExit (null, new EventArgs());
378 }
379
380 public static void Run (ApplicationContext context)
381 {
382 applicationContext = context;
383 applicationContext.MainForm.Show ();
384 applicationContext.ThreadExit += new EventHandler( ApplicationFormClosed );
385 // applicationContext.MainForm.Closed += //
386 // new EventHandler (ApplicationFormClosed);
387 Run();
388 }
389
390 //[TypeAttributes.BeforeFieldInit]
391 public static void Run (Form mainForm)
392 // Documents say this parameter name should be mainform,
393 // but the verifier says context.
394 {
395 mainForm.CreateControl ();
396 ApplicationContext context = new ApplicationContext (
397 mainForm);
398 Run (context);
399 }
400
401 internal static void enterModalLoop ( Form mainForm )
402 {
403 mainForm.ExitModalLoop = false;
404
405 MSG msg = new MSG();
406 while( Win32.GetMessageA( ref msg, 0, 0, 0 ) != 0 )
407 {
408
409 if ( mainForm.ExitModalLoop )
410 break;
411
412 Message message = new Message ();
413 message.HWnd = msg.hwnd;
414 message.Msg = (int) msg.message;
415 message.WParam = msg.wParam;
416 message.LParam = msg.lParam;
417
418 Control receiver = Control.FromChildHandle ( message.HWnd );
419 if ( receiver != null )
420 if ( receiver.PreProcessMessage ( ref message ) )
421 continue;
422
423 Win32.TranslateMessage (ref msg);
424 Win32.DispatchMessageA (ref msg);
425 }
426
427 }
428
429 internal static void exitModalLoop ( Form mainForm )
430 {
431 mainForm.ExitModalLoop = true;
432
433 Win32.PostMessage( IntPtr.Zero, Msg.WM_NULL, 0, 0 );
434 }
435
436 // --- Events ---
437 public static event EventHandler ApplicationExit;
438 public static event EventHandler Idle;
439 public static event ThreadExceptionEventHandler ThreadException;
440 public static event EventHandler ThreadExit;
441
442
443 // StackButton
444 internal class StackButton : System.Windows.Forms.Button{
445
446 private Exception excep = null;
447
448 public StackButton(Exception t) : base(){
449 excep = t;
450 }
451
452 protected override void OnClick(EventArgs e) {
453 MessageBox.Show(excep.StackTrace, "Stack Trace");
454 }
455 }
456
457 // QuitButton
458 internal class QuitButton : System.Windows.Forms.Button{
459
460 public QuitButton() : base(){}
461
462 protected override void OnClick(EventArgs e) {
463 Application.ExitThread();
464 Application.Exit();
465 }
466 }
467
468 // ContinueButton
469 internal class ContinueButton : System.Windows.Forms.Button{
470
471 private Form form = null;
472
473 public ContinueButton(Form frm) : base(){form=frm;}
474
475 protected override void OnClick(EventArgs e) {
476 form.Close();
477 }
478 }
479
480
481 }
482 }
483
Mirror of the official Mono project git repository