bug#10014: Patch for fullscreen under Mac OS X 10.7 (Lion)

[Konstantinos Efstathiou]

** Description

The attached patch adds fullscreen support to Cocoa Emacs running under Lion. 
The fullscreen support works only under OS X 10.7 and takes advantage of the 
support for fullscreen applications that appeared in this version. In 
particular the fullscreen window is assigned its own space (here window means 
Emacs frame).  The patch reuses some code from previous patches that add 
support for fullscreen under OS X <= 10.6 but were never included in Emacs.

The code works by implementing the fullscreen APIs provided in 10.7, especially 
the NSWindowDelegate methods windowDidEnterFullScreen:, 
windowDidExitFullScreen:, and window:willUseFullScreenPresentationOptions:. 
Furthermore, the Emacs Lisp function ns-toggle-fullscreen is added.

The most potentially dangerous changes are the ones to free_frame_tool_bar and 
update_frame_tool_bar (in src/nsmenu.m) where the window toolbar is now set to 
nil in the former function and to [view toolbar] in the latter. Before, only 
the visibility of the toolbar would change in these functions. This interacted 
badly with fullscreen support under Lion because when the window would go 
fullscreen its toolbar would become visible even if it was empty.

One bug that exists is that if one toggles the toolbar visibility while the 
window is fullscreen, the toolbar stops working properly.

Finally, I have removed the code that was used to add the window size to the 
window title when the window was resized. This should be determined by 
appropriately modifying frame-title-format and not by low-level C code because 
in the latter case this behavior cannot be modified by the user.

** ChangeLog

* lisp/term/ns-win.el, src/nsterm.m, src/nsfns.m, src/nsmenu.m, src/nsterm.h: 
Add fullscreen support to Cocoa Emacs under Mac OS X 10.7 (Lion).


** Patch

=== modified file 'lisp/term/ns-win.el'
*** lisp/term/ns-win.el 2011-10-01 20:32:01 +0000
--- lisp/term/ns-win.el 2011-11-10 16:22:51 +0000
*************** See the documentation of `create-fontset
*** 928,933 ****
--- 928,937 ----
  (add-to-list 'frame-creation-function-alist '(ns . x-create-frame-with-faces))
  (add-to-list 'window-system-initialization-alist '(ns . 
ns-initialize-window-system))
  
+ (declare-function ns-toggle-fullscreen-internal "nsfns.m" ())
+ (defun ns-toggle-fullscreen ()
+   (interactive)
+   (ns-toggle-fullscreen-internal))
  
  (provide 'ns-win)
  

=== modified file 'src/nsfns.m'
*** src/nsfns.m 2011-11-05 12:25:01 +0000
--- src/nsfns.m 2011-11-10 18:54:31 +0000
*************** Value is t if tooltip was open, nil othe
*** 2567,2572 ****
--- 2567,2588 ----
  }
  
  
+ DEFUN ("ns-toggle-fullscreen-internal", Fns_toggle_fullscreen_internal, 
Sns_toggle_fullscreen_internal,
+         0, 0, 0,
+         doc: /* Toggle fulscreen mode */)
+ ()
+ {
+   struct frame *f = SELECTED_FRAME();
+   EmacsWindow *window = ns_get_window(f);
+ 
+ #if defined (NS_IMPL_COCOA) && MAC_OS_X_VERSION_MAX_ALLOWED >= 
MAC_OS_X_VERSION_10_7
+   [window toggleFullScreen:nil];
+ #endif
+ 
+   return Qnil;
+ }
+ 
+ 
  /* ==========================================================================
  
      Class implementations
*************** be used as the image of the icon represe
*** 2724,2729 ****
--- 2740,2747 ----
    defsubr (&Sx_show_tip);
    defsubr (&Sx_hide_tip);
  
+   defsubr (&Sns_toggle_fullscreen_internal);
+ 
    /* used only in fontset.c */
    check_window_system_func = check_ns;
  

=== modified file 'src/nsmenu.m'
*** src/nsmenu.m        2011-07-29 05:31:12 +0000
--- src/nsmenu.m        2011-11-10 16:22:51 +0000
*************** free_frame_tool_bar (FRAME_PTR f)
*** 986,992 ****
     -------------------------------------------------------------------------- 
*/
  {
    BLOCK_INPUT;
!   [[FRAME_NS_VIEW (f) toolbar] setVisible: NO];
    FRAME_TOOLBAR_HEIGHT (f) = 0;
    UNBLOCK_INPUT;
  }
--- 986,992 ----
     -------------------------------------------------------------------------- 
*/
  {
    BLOCK_INPUT;
!   [[FRAME_NS_VIEW (f) window] setToolbar: nil];
    FRAME_TOOLBAR_HEIGHT (f) = 0;
    UNBLOCK_INPUT;
  }
*************** update_frame_tool_bar (FRAME_PTR f)
*** 1003,1008 ****
--- 1003,1010 ----
    EmacsToolbar *toolbar = [view toolbar];
  
    BLOCK_INPUT;
+   [window setToolbar: toolbar];
+ 
    [toolbar clearActive];
  
    /* update EmacsToolbar as in GtkUtils, build items list */

=== modified file 'src/nsterm.h'
*** src/nsterm.h        2011-09-09 01:06:52 +0000
--- src/nsterm.h        2011-11-10 18:39:22 +0000
*************** along with GNU Emacs.  If not, see <http
*** 38,43 ****
--- 38,46 ----
  #ifndef MAC_OS_X_VERSION_10_6
  #define MAC_OS_X_VERSION_10_6 1060
  #endif
+ #ifndef MAC_OS_X_VERSION_10_7
+ #define MAC_OS_X_VERSION_10_7 1070
+ #endif
  #endif /* NS_IMPL_COCOA */
  
  #ifdef __OBJC__

=== modified file 'src/nsterm.m'
*** src/nsterm.m        2011-11-05 12:25:01 +0000
--- src/nsterm.m        2011-11-10 18:54:02 +0000
*************** ns_term_shutdown (int sig)
*** 5299,5337 ****
  #endif
    if (rows < MINHEIGHT)
      rows = MINHEIGHT;
! #ifdef NS_IMPL_COCOA
!   {
!     /* this sets window title to have size in it; the wm does this under GS */
!     NSRect r = [[self window] frame];
!     if (r.size.height == frameSize.height && r.size.width == frameSize.width)
!       {
!         if (old_title != 0)
!           {
!             xfree (old_title);
!             old_title = 0;
!           }
!       }
!     else
!       {
!         char *size_title;
!         NSWindow *window = [self window];
!         if (old_title == 0)
!           {
!             const char *t = [[[self window] title] UTF8String];
!             char *pos = strstr (t, "  —  ");
!             if (pos)
!               *pos = '\0';
!             old_title = (char *) xmalloc (strlen (t) + 1);
!             strcpy (old_title, t);
!           }
!         size_title = xmalloc (strlen (old_title) + 40);
!       esprintf (size_title, "%s  —  (%d x %d)", old_title, cols, rows);
!         [window setTitle: [NSString stringWithUTF8String: size_title]];
!         [window display];
!         xfree (size_title);
!       }
!   }
! #endif /* NS_IMPL_COCOA */
  /*fprintf (stderr,"    ...size became %.0f x %.0f  (%d x 
%d)\n",frameSize.width,frameSize.height,cols,rows); */
  
    return frameSize;
--- 5299,5305 ----
  #endif
    if (rows < MINHEIGHT)
      rows = MINHEIGHT;
! 
  /*fprintf (stderr,"    ...size became %.0f x %.0f  (%d x 
%d)\n",frameSize.width,frameSize.height,cols,rows); */
  
    return frameSize;
*************** ns_term_shutdown (int sig)
*** 5353,5366 ****
    NSTRACE (windowDidResize);
  /*fprintf (stderr,"windowDidResize: %.0f\n",[theWindow frame].size.height); */
  
- #ifdef NS_IMPL_COCOA
-   if (old_title != 0)
-     {
-       xfree (old_title);
-       old_title = 0;
-     }
- #endif /* NS_IMPL_COCOA */
- 
    /* Avoid loop under GNUstep due to call at beginning of this function.
       (x_set_window_size causes a resize which causes
       a "windowDidResize" which calls x_set_window_size).  */
--- 5321,5326 ----
*************** ns_term_shutdown (int sig)
*** 5388,5393 ****
--- 5348,5407 ----
    ns_send_appdefined (-1);
  }
  
+ #if defined (NS_IMPL_COCOA) && MAC_OS_X_VERSION_MAX_ALLOWED >= 
MAC_OS_X_VERSION_10_7
+ - (void)windowDidEnterFullScreen:(NSNotification *)notification
+ {
+     NSTRACE (windowDidEnterFullScreen);
+     /* NSLog(@"Calling windowDidEnterFullScreen"); */
+     
+     NSWindow *window = [self window];
+     NSRect wr = [window frame];
+     int w = (int)wr.size.width - emacsframe->border_width;
+     int h = (int)wr.size.height;
+     cols = FRAME_PIXEL_WIDTH_TO_TEXT_COLS(emacsframe, w);
+     rows = FRAME_PIXEL_HEIGHT_TO_TEXT_LINES(emacsframe, h);
+     /* NSLog(@"window_size=%dx%d (%dx%d)", w, h, cols, rows); */
+     FRAME_PIXEL_WIDTH (emacsframe) = w;
+     FRAME_PIXEL_HEIGHT (emacsframe) = h;
+     change_frame_size (emacsframe, rows, cols, 0, 1, 0);
+     SET_FRAME_GARBAGED (emacsframe);
+     cancel_mouse_face (emacsframe);
+     ns_send_appdefined (-1);
+ }
+ #endif
+ 
+ #if defined (NS_IMPL_COCOA) && MAC_OS_X_VERSION_MAX_ALLOWED >= 
MAC_OS_X_VERSION_10_7
+ - (void)windowDidExitFullScreen:(NSNotification *)notification
+ {
+     NSTRACE (windowDidExitFullScreen);
+     /* NSLog(@"Calling windowDidExitFullScreen"); */
+     
+     NSWindow *window = [self window];
+     NSRect wr = [window frame];
+     int w = (int)wr.size.width - emacsframe->border_width;
+     int h = (int)wr.size.height
+     - FRAME_NS_TITLEBAR_HEIGHT (emacsframe)
+     - FRAME_TOOLBAR_HEIGHT (emacsframe);
+     cols = FRAME_PIXEL_WIDTH_TO_TEXT_COLS(emacsframe, w);
+     rows = FRAME_PIXEL_HEIGHT_TO_TEXT_LINES(emacsframe, h);
+     /* NSLog(@"window_size=%dx%d (%dx%d)", w, h, cols, rows); */
+     FRAME_PIXEL_WIDTH (emacsframe) = w;
+     FRAME_PIXEL_HEIGHT (emacsframe) = h;
+     change_frame_size (emacsframe, rows, cols, 0, 1, 0);
+     SET_FRAME_GARBAGED (emacsframe);
+     cancel_mouse_face (emacsframe);
+     ns_send_appdefined (-1);
+ }
+ #endif
+ 
+ #if defined (NS_IMPL_COCOA) && MAC_OS_X_VERSION_MAX_ALLOWED >= 
MAC_OS_X_VERSION_10_7
+ - (NSApplicationPresentationOptions)window:(NSWindow *)window 
willUseFullScreenPresentationOptions:(NSApplicationPresentationOptions)proposedOptions
+ {
+     /* NSLog(@"Calling window:willUseFullScreenPresentationOptions: %d", 
proposedOptions); */
+     return proposedOptions | NSApplicationPresentationAutoHideToolbar;
+ }
+ #endif
+ 
  
  - (void)windowDidBecomeKey: (NSNotification *)notification
  /* cf. x_detect_focus_change(), x_focus_changed(), x_new_focus_frame() */
*************** ns_term_shutdown (int sig)
*** 5559,5564 ****
--- 5573,5586 ----
    [NSApp registerServicesMenuSendTypes: ns_send_types
                             returnTypes: nil];
  
+ #if defined (NS_IMPL_COCOA) && MAC_OS_X_VERSION_MAX_ALLOWED >= 
MAC_OS_X_VERSION_10_7
+   if (NSApp != nil && [NSApp isActive])
+   {
+     [NSApp setPresentationOptions: NSApplicationPresentationFullScreen | 
[NSApp presentationOptions] ];
+     [win setCollectionBehavior: NSWindowCollectionBehaviorFullScreenPrimary | 
[win collectionBehavior] ];
+   }
+ #endif
+ 
    ns_window_num++;
    return self;
  }