]> git.saurik.com Git - wxWidgets.git/blob - src/gtk/frame.cpp
af7887cf2c00a452b956611effea1c9f4630bc51
[wxWidgets.git] / src / gtk / frame.cpp
1 /////////////////////////////////////////////////////////////////////////////
2 // Name: frame.cpp
3 // Purpose:
4 // Author: Robert Roebling
5 // Id: $Id$
6 // Copyright: (c) 1998 Robert Roebling
7 // Licence: wxWindows licence
8 /////////////////////////////////////////////////////////////////////////////
9
10 #ifdef __GNUG__
11 #pragma implementation "frame.h"
12 #endif
13
14 #include "wx/frame.h"
15 #include "wx/dialog.h"
16 #include "wx/control.h"
17 #include "wx/app.h"
18 #include "wx/menu.h"
19 #include "wx/toolbar.h"
20 #include "wx/statusbr.h"
21 #include "wx/dcclient.h"
22
23 #include "glib.h"
24 #include "gdk/gdk.h"
25 #include "gtk/gtk.h"
26 #include "wx/gtk/win_gtk.h"
27
28 //-----------------------------------------------------------------------------
29 // constants
30 //-----------------------------------------------------------------------------
31
32 const int wxMENU_HEIGHT = 27;
33 const int wxSTATUS_HEIGHT = 25;
34
35 //-----------------------------------------------------------------------------
36 // data
37 //-----------------------------------------------------------------------------
38
39 extern wxList wxTopLevelWindows;
40 extern wxList wxPendingDelete;
41
42 //-----------------------------------------------------------------------------
43 // "size_allocate"
44 //-----------------------------------------------------------------------------
45
46 static void gtk_frame_size_callback( GtkWidget *WXUNUSED(widget), GtkAllocation* alloc, wxFrame *win )
47 {
48 if (!win->HasVMT()) return;
49
50 /*
51 printf( "OnFrameResize from " );
52 if (win->GetClassInfo() && win->GetClassInfo()->GetClassName())
53 printf( win->GetClassInfo()->GetClassName() );
54 printf( ".\n" );
55 */
56
57 if ((win->m_width != alloc->width) || (win->m_height != alloc->height))
58 {
59 win->m_sizeSet = FALSE;
60 win->m_width = alloc->width;
61 win->m_height = alloc->height;
62 }
63 }
64
65 //-----------------------------------------------------------------------------
66 // "delete_event"
67 //-----------------------------------------------------------------------------
68
69 static gint gtk_frame_delete_callback( GtkWidget *WXUNUSED(widget), GdkEvent *WXUNUSED(event), wxFrame *win )
70 {
71 /*
72 printf( "OnDelete from " );
73 if (win->GetClassInfo() && win->GetClassInfo()->GetClassName())
74 printf( win->GetClassInfo()->GetClassName() );
75 printf( ".\n" );
76 */
77
78 win->Close();
79
80 return TRUE;
81 }
82
83 //-----------------------------------------------------------------------------
84 // "configure_event"
85 //-----------------------------------------------------------------------------
86
87 static gint gtk_frame_configure_callback( GtkWidget *WXUNUSED(widget), GdkEventConfigure *event, wxFrame *win )
88 {
89 if (!win->HasVMT()) return FALSE;
90
91 win->m_x = event->x;
92 win->m_y = event->y;
93
94 wxMoveEvent mevent( wxPoint(win->m_x,win->m_y), win->GetId() );
95 mevent.SetEventObject( win );
96 win->GetEventHandler()->ProcessEvent( mevent );
97
98 return FALSE;
99 }
100
101 //-----------------------------------------------------------------------------
102 // wxFrame
103 //-----------------------------------------------------------------------------
104
105 BEGIN_EVENT_TABLE(wxFrame, wxWindow)
106 EVT_SIZE(wxFrame::OnSize)
107 EVT_CLOSE(wxFrame::OnCloseWindow)
108 EVT_MENU_HIGHLIGHT_ALL(wxFrame::OnMenuHighlight)
109 END_EVENT_TABLE()
110
111 IMPLEMENT_DYNAMIC_CLASS(wxFrame,wxWindow)
112
113 wxFrame::wxFrame()
114 {
115 m_frameMenuBar = (wxMenuBar *) NULL;
116 m_frameStatusBar = (wxStatusBar *) NULL;
117 m_frameToolBar = (wxToolBar *) NULL;
118 m_sizeSet = FALSE;
119 m_miniEdge = 0;
120 m_miniTitle = 0;
121 }
122
123 wxFrame::wxFrame( wxWindow *parent, wxWindowID id, const wxString &title,
124 const wxPoint &pos, const wxSize &size,
125 long style, const wxString &name )
126 {
127 m_frameMenuBar = (wxMenuBar *) NULL;
128 m_frameStatusBar = (wxStatusBar *) NULL;
129 m_frameToolBar = (wxToolBar *) NULL;
130 m_sizeSet = FALSE;
131 m_miniEdge = 0;
132 m_miniTitle = 0;
133 Create( parent, id, title, pos, size, style, name );
134 }
135
136 bool wxFrame::Create( wxWindow *parent, wxWindowID id, const wxString &title,
137 const wxPoint &pos, const wxSize &size,
138 long style, const wxString &name )
139 {
140 wxTopLevelWindows.Append( this );
141
142 m_needParent = FALSE;
143
144 PreCreation( parent, id, pos, size, style, name );
145
146 m_title = title;
147
148 GtkWindowType win_type = GTK_WINDOW_TOPLEVEL;
149 if (style & wxSIMPLE_BORDER) win_type = GTK_WINDOW_POPUP;
150
151 m_widget = gtk_window_new( win_type );
152
153 #ifdef __WXDEBUG__
154 debug_focus_in( m_widget, "wxFrame::m_widget", name );
155 #endif
156
157 if ((size.x != -1) && (size.y != -1))
158 gtk_widget_set_usize( m_widget, m_width, m_height );
159 if ((pos.x != -1) && (pos.y != -1))
160 gtk_widget_set_uposition( m_widget, m_x, m_y );
161
162 gtk_window_set_title( GTK_WINDOW(m_widget), title );
163 GTK_WIDGET_UNSET_FLAGS( m_widget, GTK_CAN_FOCUS );
164
165 gtk_widget_set( m_widget, "GtkWindow::allow_shrink", TRUE, NULL );
166
167 gtk_signal_connect( GTK_OBJECT(m_widget), "delete_event",
168 GTK_SIGNAL_FUNC(gtk_frame_delete_callback), (gpointer)this );
169
170 m_wxwindow = gtk_myfixed_new();
171 gtk_widget_show( m_wxwindow );
172 GTK_WIDGET_UNSET_FLAGS( m_wxwindow, GTK_CAN_FOCUS );
173
174 #ifdef __WXDEBUG__
175 debug_focus_in( m_wxwindow, "wxFrame::m_wxwindow", name );
176 #endif
177
178 gtk_container_add( GTK_CONTAINER(m_widget), m_wxwindow );
179
180 gtk_signal_connect( GTK_OBJECT(m_widget), "size_allocate",
181 GTK_SIGNAL_FUNC(gtk_frame_size_callback), (gpointer)this );
182
183 gtk_signal_connect( GTK_OBJECT(m_widget), "configure_event",
184 GTK_SIGNAL_FUNC(gtk_frame_configure_callback), (gpointer)this );
185
186 if (m_parent) m_parent->AddChild( this );
187
188 PostCreation();
189
190 return TRUE;
191 }
192
193 wxFrame::~wxFrame()
194 {
195 if (m_frameMenuBar) delete m_frameMenuBar;
196 if (m_frameStatusBar) delete m_frameStatusBar;
197 if (m_frameToolBar) delete m_frameToolBar;
198
199 wxTopLevelWindows.DeleteObject( this );
200
201 if (wxTheApp->GetTopWindow() == this)
202 {
203 wxTheApp->SetTopWindow( (wxWindow*) NULL );
204 }
205
206 if (wxTopLevelWindows.Number() == 0)
207 {
208 wxTheApp->ExitMainLoop();
209 }
210 }
211
212 bool wxFrame::Show( bool show )
213 {
214 wxASSERT_MSG( (m_widget != NULL), "invalid frame" );
215
216 if (show && !m_sizeSet)
217 {
218 // by calling GtkOnSize here, we don't have to call
219 // either after showing the frame, which would entail
220 // much ugly flicker nor from within the size_allocate
221 // handler, because GTK 1.1.X forbids that.
222
223 GtkOnSize( m_x, m_y, m_width, m_height );
224 }
225
226 return wxWindow::Show( show );
227 }
228
229 void wxFrame::OnCloseWindow( wxCloseEvent &event )
230 {
231 if (GetEventHandler()->OnClose() || event.GetForce()) this->Destroy();
232 }
233
234 bool wxFrame::Destroy()
235 {
236 wxASSERT_MSG( (m_widget != NULL), "invalid frame" );
237
238 if (!wxPendingDelete.Member(this)) wxPendingDelete.Append(this);
239
240 return TRUE;
241 }
242
243 wxPoint wxFrame::GetClientAreaOrigin() const
244 {
245 wxPoint pt( m_miniEdge, m_miniEdge + m_miniTitle );
246 if (m_frameMenuBar)
247 {
248 int h = 0;
249 m_frameMenuBar->GetSize( (int*)NULL, &h );
250 pt.y += h;
251 }
252 if (m_frameToolBar)
253 {
254 int h = 0;
255 m_frameToolBar->GetSize( (int*)NULL, &h );
256 pt.y += h;
257 }
258 return pt;
259 }
260
261 void wxFrame::SetSize( int x, int y, int width, int height, int sizeFlags )
262 {
263 wxASSERT_MSG( (m_widget != NULL), "invalid window" );
264
265 // Don't do anything for children of wxMDIChildFrame
266 if (!m_wxwindow) return;
267
268 if (m_resizing) return; // I don't like recursions
269 m_resizing = TRUE;
270
271 int old_x = m_x;
272 int old_y = m_y;
273 int old_width = m_width;
274 int old_height = m_height;
275
276 if ((sizeFlags & wxSIZE_USE_EXISTING) == wxSIZE_USE_EXISTING)
277 {
278 if (x != -1) m_x = x;
279 if (y != -1) m_y = y;
280 if (width != -1) m_width = width;
281 if (height != -1) m_height = height;
282 }
283 else
284 {
285 m_x = x;
286 m_y = y;
287 m_width = width;
288 m_height = height;
289 }
290
291 if ((sizeFlags & wxSIZE_AUTO_WIDTH) == wxSIZE_AUTO_WIDTH)
292 {
293 if (width == -1) m_width = 80;
294 }
295
296 if ((sizeFlags & wxSIZE_AUTO_HEIGHT) == wxSIZE_AUTO_HEIGHT)
297 {
298 if (height == -1) m_height = 26;
299 }
300
301 if ((m_minWidth != -1) && (m_width < m_minWidth)) m_width = m_minWidth;
302 if ((m_minHeight != -1) && (m_height < m_minHeight)) m_height = m_minHeight;
303 if ((m_maxWidth != -1) && (m_width > m_maxWidth)) m_width = m_maxWidth;
304 if ((m_maxHeight != -1) && (m_height > m_maxHeight)) m_height = m_maxHeight;
305
306 if ((m_x != -1) || (m_y != -1))
307 {
308 if ((m_x != old_x) || (m_y != old_y))
309 gtk_widget_set_uposition( m_widget, m_x, m_y );
310 }
311
312 if ((m_width != old_width) || (m_height != old_height))
313 {
314 gtk_widget_set_usize( m_widget, m_width, m_height );
315 }
316
317 wxSizeEvent event( wxSize(m_width,m_height), GetId() );
318 event.SetEventObject( this );
319 GetEventHandler()->ProcessEvent( event );
320
321 m_resizing = FALSE;
322 }
323
324 void wxFrame::SetSize( int width, int height )
325 {
326 SetSize( -1, -1, width, height, wxSIZE_USE_EXISTING );
327 }
328
329 void wxFrame::Centre( int direction )
330 {
331 wxASSERT_MSG( (m_widget != NULL), "invalid frame" );
332
333 int x = 0;
334 int y = 0;
335
336 if (direction & wxHORIZONTAL == wxHORIZONTAL) x = (gdk_screen_width () - m_width) / 2;
337 if (direction & wxVERTICAL == wxVERTICAL) y = (gdk_screen_height () - m_height) / 2;
338
339 Move( x, y );
340 }
341
342 void wxFrame::GetClientSize( int *width, int *height ) const
343 {
344 wxASSERT_MSG( (m_widget != NULL), "invalid frame" );
345
346 wxWindow::GetClientSize( width, height );
347 if (height)
348 {
349 if (m_frameMenuBar) (*height) -= wxMENU_HEIGHT;
350 if (m_frameStatusBar) (*height) -= wxSTATUS_HEIGHT;
351 if (m_frameToolBar)
352 {
353 int y = 0;
354 m_frameToolBar->GetSize( (int *) NULL, &y );
355 (*height) -= y;
356 }
357 (*height) -= m_miniEdge*2 + m_miniTitle;
358 }
359 if (width)
360 {
361 (*width) -= m_miniEdge*2;
362 }
363 }
364
365 void wxFrame::SetClientSize( int const width, int const height )
366 {
367 wxASSERT_MSG( (m_widget != NULL), "invalid frame" );
368
369 int h = height;
370 if (m_frameMenuBar) h += wxMENU_HEIGHT;
371 if (m_frameStatusBar) h += wxSTATUS_HEIGHT;
372 if (m_frameToolBar)
373 {
374 int y = 0;
375 m_frameToolBar->GetSize( (int *) NULL, &y );
376 h += y;
377 }
378 wxWindow::SetClientSize( width + m_miniEdge*2, h + m_miniEdge*2 + m_miniTitle );
379 }
380
381 void wxFrame::GtkOnSize( int WXUNUSED(x), int WXUNUSED(y), int width, int height )
382 {
383 // due to a bug in gtk, x,y are always 0
384 // m_x = x;
385 // m_y = y;
386
387 if (m_resizing) return;
388 m_resizing = TRUE;
389
390 if (!m_wxwindow) return;
391
392 m_width = width;
393 m_height = height;
394
395 if ((m_minWidth != -1) && (m_width < m_minWidth)) m_width = m_minWidth;
396 if ((m_minHeight != -1) && (m_height < m_minHeight)) m_height = m_minHeight;
397 if ((m_maxWidth != -1) && (m_width > m_maxWidth)) m_width = m_maxWidth;
398 if ((m_maxHeight != -1) && (m_height > m_maxHeight)) m_height = m_maxHeight;
399
400 gtk_widget_set_usize( m_widget, m_width, m_height );
401
402 // this emulates the new wxMSW behaviour of placing all
403 // frame-subwindows (menu, toolbar..) on one native window
404 // OK, this hurts in the eye, but I don't want to call SetSize()
405 // because I don't want to call any non-native functions here.
406
407 if (m_frameMenuBar)
408 {
409 int xx = m_miniEdge;
410 int yy = m_miniEdge + m_miniTitle;
411 int ww = m_width - 2*m_miniEdge;
412 int hh = wxMENU_HEIGHT;
413 m_frameMenuBar->m_x = xx;
414 m_frameMenuBar->m_y = yy;
415 m_frameMenuBar->m_width = ww;
416 m_frameMenuBar->m_height = hh;
417
418 gtk_myfixed_move( GTK_MYFIXED(m_wxwindow), m_frameMenuBar->m_widget, xx, yy );
419 gtk_widget_set_usize( m_frameMenuBar->m_widget, ww, hh );
420 }
421
422 if (m_frameToolBar)
423 {
424 int xx = m_miniEdge;
425 int yy = m_miniEdge + m_miniTitle;
426 if (m_frameMenuBar) yy += wxMENU_HEIGHT;
427 int ww = m_width - 2*m_miniEdge;
428 int hh = m_frameToolBar->m_height;
429
430 m_frameToolBar->m_x = xx;
431 m_frameToolBar->m_y = yy;
432 m_frameToolBar->m_height = hh;
433 m_frameToolBar->m_width = ww;
434
435 gtk_myfixed_move( GTK_MYFIXED(m_wxwindow), m_frameToolBar->m_widget, xx, yy );
436 gtk_widget_set_usize( m_frameToolBar->m_widget, ww, hh );
437 }
438
439 if (m_frameStatusBar)
440 {
441 int xx = 0 + m_miniEdge;
442 int yy = m_height - wxSTATUS_HEIGHT - m_miniEdge;
443 int ww = m_width - 2*m_miniEdge;
444 int hh = wxSTATUS_HEIGHT;
445
446 m_frameStatusBar->m_x = xx;
447 m_frameStatusBar->m_y = yy;
448 m_frameStatusBar->m_width = ww;
449 m_frameStatusBar->m_height = hh;
450
451 gtk_myfixed_move( GTK_MYFIXED(m_wxwindow), m_frameStatusBar->m_widget, xx, yy );
452 gtk_widget_set_usize( m_frameStatusBar->m_widget, ww, hh );
453 }
454
455 m_sizeSet = TRUE;
456
457 /* send size event to frame */
458
459 wxSizeEvent event( wxSize(m_width,m_height), GetId() );
460 event.SetEventObject( this );
461 GetEventHandler()->ProcessEvent( event );
462
463 /* send size event to status bar */
464
465 if (m_frameStatusBar)
466 {
467 wxSizeEvent event2( wxSize(m_frameStatusBar->m_width,m_frameStatusBar->m_height), m_frameStatusBar->GetId() );
468 event2.SetEventObject( m_frameStatusBar );
469 m_frameStatusBar->GetEventHandler()->ProcessEvent( event2 );
470 }
471
472 m_resizing = FALSE;
473 }
474
475 void wxFrame::OnInternalIdle()
476 {
477 if (!m_sizeSet)
478 GtkOnSize( m_x, m_y, m_width, m_height );
479
480 DoMenuUpdates();
481 }
482
483 void wxFrame::OnSize( wxSizeEvent &WXUNUSED(event) )
484 {
485 wxASSERT_MSG( (m_widget != NULL), "invalid frame" );
486
487 if (GetAutoLayout())
488 {
489 Layout();
490 }
491 else
492 {
493 // no child: go out !
494 if (!GetChildren().First()) return;
495
496 // do we have exactly one child?
497 wxWindow *child = (wxWindow *) NULL;
498 for(wxNode *node = GetChildren().First(); node; node = node->Next())
499 {
500 wxWindow *win = (wxWindow *)node->Data();
501 if (!wxIS_KIND_OF(win,wxFrame) && !wxIS_KIND_OF(win,wxDialog)
502 #if 0 // not in m_children anyway ?
503 && (win != m_frameMenuBar) &&
504 (win != m_frameToolBar) &&
505 (win != m_frameStatusBar)
506 #endif
507 )
508 {
509 // it's the second one: do nothing
510 if (child) return;
511 child = win;
512 }
513 }
514
515 // yes: set it's size to fill all the frame
516 int client_x, client_y;
517 GetClientSize( &client_x, &client_y );
518 child->SetSize( 1, 1, client_x-2, client_y-2 );
519 }
520 }
521
522 static void SetInvokingWindow( wxMenu *menu, wxWindow *win )
523 {
524 menu->SetInvokingWindow( win );
525 wxNode *node = menu->m_items.First();
526 while (node)
527 {
528 wxMenuItem *menuitem = (wxMenuItem*)node->Data();
529 if (menuitem->IsSubMenu())
530 SetInvokingWindow( menuitem->GetSubMenu(), win );
531 node = node->Next();
532 }
533 }
534
535 void wxFrame::SetMenuBar( wxMenuBar *menuBar )
536 {
537 wxASSERT_MSG( (m_widget != NULL), "invalid frame" );
538 wxASSERT_MSG( (m_wxwindow != NULL), "invalid frame" );
539
540 m_frameMenuBar = menuBar;
541
542 if (m_frameMenuBar)
543 {
544 wxNode *node = m_frameMenuBar->m_menus.First();
545 while (node)
546 {
547 wxMenu *menu = (wxMenu*)node->Data();
548 SetInvokingWindow( menu, this );
549 node = node->Next();
550 }
551
552 if (m_frameMenuBar->m_parent != this)
553 {
554 m_frameMenuBar->m_parent = this;
555 gtk_myfixed_put( GTK_MYFIXED(m_wxwindow),
556 m_frameMenuBar->m_widget, m_frameMenuBar->m_x, m_frameMenuBar->m_y );
557 }
558 }
559
560 m_sizeSet = FALSE;
561 }
562
563 wxMenuBar *wxFrame::GetMenuBar() const
564 {
565 return m_frameMenuBar;
566 }
567
568 void wxFrame::OnMenuHighlight(wxMenuEvent& event)
569 {
570 if (GetStatusBar())
571 {
572 if (event.GetMenuId() == -1)
573 {
574 SetStatusText("");
575 }
576 else
577 {
578 wxMenuBar *menuBar = GetMenuBar();
579 if (menuBar)
580 {
581 int menuId = event.GetMenuId();
582 wxString helpString;
583 helpString = menuBar->GetHelpString(menuId);
584 if (helpString != "")
585 SetStatusText(helpString);
586 }
587 }
588 }
589 }
590
591 wxToolBar* wxFrame::CreateToolBar(long style, wxWindowID id, const wxString& name)
592 {
593 wxASSERT_MSG( (m_widget != NULL), "invalid frame" );
594
595 wxCHECK_MSG( m_frameToolBar == NULL, FALSE, "recreating toolbar in wxFrame" );
596
597 m_frameToolBar = OnCreateToolBar( style, id, name );
598
599 GetChildren().DeleteObject( m_frameToolBar );
600
601 m_sizeSet = FALSE;
602
603 return m_frameToolBar;
604 }
605
606 wxToolBar* wxFrame::OnCreateToolBar( long style, wxWindowID id, const wxString& name )
607 {
608 return new wxToolBar( this, id, wxDefaultPosition, wxDefaultSize, style, name );
609 }
610
611 wxToolBar *wxFrame::GetToolBar() const
612 {
613 return m_frameToolBar;
614 }
615
616 wxStatusBar* wxFrame::CreateStatusBar( int number, long style, wxWindowID id, const wxString& name )
617 {
618 wxASSERT_MSG( (m_widget != NULL), "invalid frame" );
619
620 wxCHECK_MSG( m_frameStatusBar == NULL, FALSE, "recreating status bar in wxFrame" );
621
622 m_frameStatusBar = OnCreateStatusBar( number, style, id, name );
623
624 m_sizeSet = FALSE;
625
626 return m_frameStatusBar;
627 }
628
629 wxStatusBar *wxFrame::OnCreateStatusBar( int number, long style, wxWindowID id, const wxString& name )
630 {
631 wxStatusBar *statusBar = (wxStatusBar *) NULL;
632
633 statusBar = new wxStatusBar(this, id, wxPoint(0, 0), wxSize(100, 20), style, name);
634
635 // Set the height according to the font and the border size
636 wxClientDC dc(statusBar);
637 dc.SetFont( statusBar->GetFont() );
638
639 long x, y;
640 dc.GetTextExtent( "X", &x, &y );
641
642 int height = (int)( (y * 1.1) + 2* statusBar->GetBorderY());
643
644 statusBar->SetSize( -1, -1, 100, height );
645
646 statusBar->SetFieldsCount( number );
647 return statusBar;
648 }
649
650 void wxFrame::SetStatusText(const wxString& text, int number)
651 {
652 wxASSERT_MSG( (m_widget != NULL), "invalid frame" );
653
654 wxCHECK_RET( m_frameStatusBar != NULL, "no statusbar to set text for" );
655
656 m_frameStatusBar->SetStatusText(text, number);
657 }
658
659 void wxFrame::SetStatusWidths(int n, const int widths_field[] )
660 {
661 wxASSERT_MSG( (m_widget != NULL), "invalid frame" );
662
663 wxCHECK_RET( m_frameStatusBar != NULL, "no statusbar to set widths for" );
664
665 m_frameStatusBar->SetStatusWidths(n, widths_field);
666 }
667
668 wxStatusBar *wxFrame::GetStatusBar() const
669 {
670 return m_frameStatusBar;
671 }
672
673 void wxFrame::SetTitle( const wxString &title )
674 {
675 wxASSERT_MSG( (m_widget != NULL), "invalid frame" );
676
677 m_title = title;
678 if (m_title.IsNull()) m_title = "";
679 gtk_window_set_title( GTK_WINDOW(m_widget), title );
680 }
681
682 void wxFrame::SetIcon( const wxIcon &icon )
683 {
684 wxASSERT_MSG( (m_widget != NULL), "invalid frame" );
685
686 m_icon = icon;
687 if (!icon.Ok()) return;
688
689 wxMask *mask = icon.GetMask();
690 GdkBitmap *bm = (GdkBitmap *) NULL;
691 if (mask) bm = mask->GetBitmap();
692
693 gdk_window_set_icon( m_widget->window, (GdkWindow *) NULL, icon.GetPixmap(), bm );
694 }
695