Changeset 10488

Timestamp:

11/18/05 01:47:25 (18 years ago)

Author:

piso

Message:

(setf (variable-value ...) ...) => (set-global-property ...)

File:

• trunk/j/examples/key-pressed.lisp (modified) (2 diffs)

trunk/j/examples/key-pressed.lisp

@@ -1 +1 @@
 ;;; key-pressed.lisp
 ;;;
-;;; Copyright (C) 2003-2004 Peter Graves
-;;; $Id: key-pressed.lisp,v 1.7 2004-04-22 15:17:36 piso Exp $
+;;; Copyright (C) 2003-2005 Peter Graves
+;;; $Id: key-pressed.lisp,v 1.8 2005-11-18 01:47:25 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -159 +159 @@
 ;;; Enable the hook.
 (add-hook 'key-pressed-hook 'key-pressed)
-(setf (variable-value 'enable-key-pressed-hook :global) t)
+(set-global-property "enableKeyPressedHook" t)
 
-#|
-
-NOTE: ENABLE-KEY-PRESSED-HOOK will be reset to its default value (NIL) when
-preferences are reloaded (which happens automatically when you edit your
-preferences file). To prevent this (and keep the key-pressed hook working
-properly across preference file edits), add this line to ~/.j/prefs:
-
-     enableKeyPressedHook = true
-
-|#
+;; NOTE: ENABLE-KEY-PRESSED-HOOK will be reset to its default value (NIL) when
+;; preferences are reloaded (which happens automatically when you edit your
+;; preferences file). To prevent this (and keep the key-pressed hook working
+;; properly across preference file edits), add this line to ~/.j/prefs:
+;;
+;;      enableKeyPressedHook = true
+;;