From 6c298ddbcfab93cb02ca694e710fe3858aee4a42 Mon Sep 17 00:00:00 2001 From: warweasle Date: Tue, 4 Apr 2017 19:15:26 -0400 Subject: [PATCH] Renamed *editing-event* to *on-editing-event* --- package.lisp | 2 +- window.lisp | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/package.lisp b/package.lisp index fa70b84..1a84197 100644 --- a/package.lisp +++ b/package.lisp @@ -90,7 +90,7 @@ #:*on-controller-axis-move* #:*on-idle* #:*on-quit* - #:*text-editing* + #:*on-text-editing* #:*on-text-input* #:unload-all-uncollected diff --git a/window.lisp b/window.lisp index e08e917..e999682 100644 --- a/window.lisp +++ b/window.lisp @@ -55,7 +55,7 @@ "Called when a key is pressed. Arguments (win keysym state ts)") (defparameter *on-key-up* nil "Called when a key is released. Arguments (win keysym state ts)") -(defparameter *text-editing* nil +(defparameter *on-text-editing* nil "Called when editing text.") (defparameter *on-text-input* nil "Call when text input happens.") @@ -281,7 +281,7 @@ working while cepl runs" (:textediting (:window-id win :timestamp ts :text text) - (fire *text-editing* win text ts)) + (fire *on-text-editing* win text ts)) (:textinput (:window-id win :timestamp ts :text text)