From: Michael Bedward <mbedward@ozemail.com.au>
Date: Tue, 21 Sep 1999 02:37:29 +0000 (+0000)
Subject: Added code to implement wxTE_READONLY style for single line text controls.
X-Git-Url: https://git.saurik.com/wxWidgets.git/commitdiff_plain/17023320be474f50ebef08de258c2719f3b1ff20

Added code to implement wxTE_READONLY style for single line text controls.


git-svn-id: https://svn.wxwidgets.org/svn/wx/wxWidgets/trunk@3738 c3d73ce0-8a6f-49c7-b76d-6d57e0e08775
---

diff --git a/src/motif/textctrl.cpp b/src/motif/textctrl.cpp
index 6a2c7a0cb5..623de21836 100644
--- a/src/motif/textctrl.cpp
+++ b/src/motif/textctrl.cpp
@@ -150,6 +150,10 @@ bool wxTextCtrl::Create(wxWindow *parent,
                                   NULL
                                  );
 
+        XtVaSetValues ((Widget) m_mainWidget,
+                        XmNeditable, ((style & wxTE_READONLY) ? False : True),
+                        NULL);
+
         // TODO: Is this relevant? What does it do?
         int noCols = 2;
         if (!value.IsNull() && (value.Length() > (unsigned int) noCols))