Author: junrue Date: Wed Jun 28 12:33:32 2006 New Revision: 166

Modified: trunk/src/uitoolkit/system/system-types.lisp trunk/src/uitoolkit/widgets/edit.lisp Log: added activation context data structure, which will be needed in the future for enabling common control theme support

Modified: trunk/src/uitoolkit/system/system-types.lisp ============================================================================== --- trunk/src/uitoolkit/system/system-types.lisp (original) +++ trunk/src/uitoolkit/system/system-types.lisp Wed Jun 28 12:33:32 2006 @@ -53,6 +53,7 @@ (defctype DWORD :unsigned-long) (defctype HANDLE :pointer) (defctype INT :int) +(defctype LANGID :short) (defctype LONG :long) (defctype LPARAM :long) (defctype LPCSTR :pointer) @@ -68,9 +69,21 @@ (defctype TCHAR :char) (defctype UINT :unsigned-int) (defctype ULONG :unsigned-long) +(defctype USHORT :unsigned-short) (defctype WORD :short) (defctype WPARAM :unsigned-int)

+(defcstruct actctx + (cbsize ULONG) + (flags DWORD) + (source :string) + (arch USHORT) + (langid LANGID) + (dir :string) + (resname :string) + (appname :string) + (hmodule HANDLE)) + (defcstruct bitmap (type LONG) (width LONG)

Modified: trunk/src/uitoolkit/widgets/edit.lisp ============================================================================== --- trunk/src/uitoolkit/widgets/edit.lisp (original) +++ trunk/src/uitoolkit/widgets/edit.lisp Wed Jun 28 12:33:32 2006 @@ -105,3 +105,6 @@

(defmethod (setf text) (str (self edit)) (set-widget-text self str)) + +(defmethod text-baseline ((self edit)) + (widget-text-baseline self +vertical-edit-text-margin+))