Changeset 8338


Ignore:
Timestamp:
01/11/05 04:20:41 (17 years ago)
Author:
piso
Message:

ADJUST-APPEARANCE: don't do anything on Windows.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/examples/init.lisp

    r8089 r8338  
    11;;; init.lisp
    2 ;;; $Id: init.lisp,v 1.27 2004-11-03 18:04:18 piso Exp $
     2;;; $Id: init.lisp,v 1.28 2005-01-11 04:20:41 piso Exp $
    33
    44;;; ~/.j/init.lisp (if it exists) is loaded automatically when j starts up.
     
    2727
    2828(defun adjust-appearance ()
    29   (when (member (subseq (java-version) 0 5)
    30                 '("1.4.0" "1.4.1" "1.4.2" "1.5.0")
    31                 :test #'string=)
    32     (set-global-property "adjustAscent" -2)
    33     (set-global-property "adjustLeading" -2)
    34     (reset-display)))
     29  (unless (sys:featurep :windows)
     30    (when (member (subseq (java-version) 0 5)
     31                  '("1.4.0" "1.4.1" "1.4.2" "1.5.0")
     32                  :test #'string=)
     33      (set-global-property "adjustAscent" -2)
     34      (set-global-property "adjustLeading" -2)
     35      (reset-display))))
    3536
    3637;; Do it now!
Note: See TracChangeset for help on using the changeset viewer.