comparison src/nsterm.m @ 105083:544f5b209a5b

(ns_no_defaults): Remove. (ns_term_init): Switch ns_no_defaults -> inhibit_x_resources. (ns_use_qd_smoothing): Remove legacy variable.

105082:cdb51c560f44

static Lisp_Object Qmodifier_value;
/* TODO: unsure why these defined in term files, anyway we need in keymap.c */
Lisp_Object Qalt, Qcontrol, Qhyper, Qmeta, Qsuper;
extern Lisp_Object Qcursor_color, Qcursor_type, Qns;


/* Some preferences equivalent to those set by X resources under X are
   managed through the OpenStep defaults system. We depart from X
   behavior and refuse to read defaults when started under these
   options. */

/* Set in emacs.c. */
char ns_no_defaults;

/* Specifies which emacs modifier should be generated when NS receives
   the Alternate modifer.  May be Qnone or any of the modifier lisp symbols. */
Lisp_Object ns_alternate_modifier;

/* Specifies which emacs modifier should be generated when NS receives

/* On OS X picks up the default NSGlobalDomain AppleAntiAliasingThreshold,
   the maximum font size to NOT antialias.  On GNUstep there is currently
   no way to control this behavior. */
float ns_antialias_threshold;

/* Controls use of an undocumented CG function to do Quickdraw-style font
   smoothing (less heavy) instead of regular Quartz smoothing. */
Lisp_Object ns_use_qd_smoothing;

/* Used to pick up AppleHighlightColor on OS X */
NSString *ns_selection_color;

/* Confirm on exit. */

  ns_command_modifier = Qsuper;
  ns_control_modifier = Qcontrol;
  ns_function_modifier = Qnone;
  ns_antialias_text = Qt;
  ns_antialias_threshold = 10.0; /* not exposed to lisp side */
  ns_use_qd_smoothing = Qnil;
  ns_confirm_quit = Qnil;
}


static void

  UNBLOCK_INPUT; 

  /* Read various user defaults. */
  ns_set_default_prefs ();
  if (!ns_no_defaults)
    {
      ns_default ("GSFontAntiAlias", &ns_antialias_text,
                 Qt, Qnil, NO, NO);
      tmp = Qnil;
      /* this is a standard variable */

      xfree (old_title);
      old_title = 0;
    }
#endif /* NS_IMPL_COCOA */

  // Calling x_set_window_size tends to get us into inf-loops
  // (x_set_window_size causes a resize which causes
  // a "windowDidResize" which calls x_set_window_size).
  // At least with GNUStep, don't know about MacOSX.  --Stef
#ifndef NS_IMPL_GNUSTEP
  if (cols > 0 && rows > 0)
     x_set_window_size (emacsframe, 0, cols, rows);
#endif

  } else {
    result.size.height = defaultFrame.size.height;
    result.origin.y = defaultFrame.origin.y;
  }

  /* A windowWillResize does not get generated at least on Tiger. */
  [self windowWillResize: sender toSize: result.size];
  return result;
}

allowing it to be used at a lower level for accented character entry.");

  DEFVAR_LISP ("ns-antialias-text", &ns_antialias_text,
               "Non-nil (the default) means to render text antialiased. Only has an effect on OS X Panther and above.");

  DEFVAR_LISP ("ns-use-qd-smoothing", &ns_use_qd_smoothing,
               "Whether to render text using QuickDraw (less heavy) antialiasing. Only has an effect on OS X Panther and above.  Default is nil (use Quartz smoothing).");

  DEFVAR_LISP ("ns-confirm-quit", &ns_confirm_quit,
               "Whether to confirm application quit using dialog.");

  staticpro (&ns_display_name_list);
  ns_display_name_list = Qnil;

105083:544f5b209a5b

static Lisp_Object Qmodifier_value;
/* TODO: unsure why these defined in term files, anyway we need in keymap.c */
Lisp_Object Qalt, Qcontrol, Qhyper, Qmeta, Qsuper;
extern Lisp_Object Qcursor_color, Qcursor_type, Qns;

/* Specifies which emacs modifier should be generated when NS receives
   the Alternate modifer.  May be Qnone or any of the modifier lisp symbols. */
Lisp_Object ns_alternate_modifier;

/* Specifies which emacs modifier should be generated when NS receives

/* On OS X picks up the default NSGlobalDomain AppleAntiAliasingThreshold,
   the maximum font size to NOT antialias.  On GNUstep there is currently
   no way to control this behavior. */
float ns_antialias_threshold;

/* Used to pick up AppleHighlightColor on OS X */
NSString *ns_selection_color;

/* Confirm on exit. */

  ns_command_modifier = Qsuper;
  ns_control_modifier = Qcontrol;
  ns_function_modifier = Qnone;
  ns_antialias_text = Qt;
  ns_antialias_threshold = 10.0; /* not exposed to lisp side */
  ns_confirm_quit = Qnil;
}


static void

  UNBLOCK_INPUT; 

  /* Read various user defaults. */
  ns_set_default_prefs ();
  if (!inhibit_x_resources)
    {
      ns_default ("GSFontAntiAlias", &ns_antialias_text,
                 Qt, Qnil, NO, NO);
      tmp = Qnil;
      /* this is a standard variable */

      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).  */
#ifndef NS_IMPL_GNUSTEP
  if (cols > 0 && rows > 0)
     x_set_window_size (emacsframe, 0, cols, rows);
#endif

  } else {
    result.size.height = defaultFrame.size.height;
    result.origin.y = defaultFrame.origin.y;
  }

  /* A windowWillResize does not get generated on Tiger or Leopard. */
  [self windowWillResize: sender toSize: result.size];
  return result;
}

allowing it to be used at a lower level for accented character entry.");

  DEFVAR_LISP ("ns-antialias-text", &ns_antialias_text,
               "Non-nil (the default) means to render text antialiased. Only has an effect on OS X Panther and above.");

  DEFVAR_LISP ("ns-confirm-quit", &ns_confirm_quit,
               "Whether to confirm application quit using dialog.");

  staticpro (&ns_display_name_list);
  ns_display_name_list = Qnil;