[graphic-forms-cvs] r166 - in trunk/src/uitoolkit: system widgets

[junrue at common-lisp.net]

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+))