From 17023320be474f50ebef08de258c2719f3b1ff20 Mon Sep 17 00:00:00 2001
From: Michael Bedward <mbedward@ozemail.com.au>
Date: Tue, 21 Sep 1999 02:37:29 +0000
Subject: [PATCH] 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
---
 src/motif/textctrl.cpp | 4 ++++
 1 file changed, 4 insertions(+)

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