X-Git-Url: https://git.saurik.com/wxWidgets.git/blobdiff_plain/4bb6408c2631988fab9925014c6619358bf867de..184b5d99a5382cd7a19888c85aff11f8a21af2f6:/src/motif/textctrl.cpp diff --git a/src/motif/textctrl.cpp b/src/motif/textctrl.cpp index 6727160c89..b28bdf9ef5 100644 --- a/src/motif/textctrl.cpp +++ b/src/motif/textctrl.cpp @@ -30,11 +30,30 @@ #endif #endif +#include +#include +#include +#include + +#include "wx/motif/private.h" + +static void +wxTextWindowChangedProc (Widget w, XtPointer clientData, XtPointer ptr); +static void +wxTextWindowModifyProc (Widget w, XtPointer clientData, XmTextVerifyCallbackStruct *cbs); +static void +wxTextWindowGainFocusProc (Widget w, XtPointer clientData, XmAnyCallbackStruct *cbs); +static void +wxTextWindowLoseFocusProc (Widget w, XtPointer clientData, XmAnyCallbackStruct *cbs); +static void wxTextWindowActivateProc(Widget w, XtPointer clientData, + XmAnyCallbackStruct *ptr); + #if !USE_SHARED_LIBRARY IMPLEMENT_DYNAMIC_CLASS(wxTextCtrl, wxControl) BEGIN_EVENT_TABLE(wxTextCtrl, wxControl) EVT_DROP_FILES(wxTextCtrl::OnDropFiles) + EVT_CHAR(wxTextCtrl::OnChar) END_EVENT_TABLE() #endif @@ -45,6 +64,9 @@ wxTextCtrl::wxTextCtrl() #endif { m_fileName = ""; + m_tempCallbackStruct = (void*) NULL; + m_modified = FALSE; + m_processedDefault = FALSE; } bool wxTextCtrl::Create(wxWindow *parent, wxWindowID id, @@ -54,7 +76,13 @@ bool wxTextCtrl::Create(wxWindow *parent, wxWindowID id, const wxValidator& validator, const wxString& name) { + m_tempCallbackStruct = (void*) NULL; + m_modified = FALSE; + m_processedDefault = FALSE; m_fileName = ""; + m_backgroundColour = parent->GetBackgroundColour(); + m_foregroundColour = parent->GetForegroundColour(); + SetName(name); SetValidator(validator); if (parent) parent->AddChild(this); @@ -66,49 +94,127 @@ bool wxTextCtrl::Create(wxWindow *parent, wxWindowID id, else m_windowId = id; + Widget parentWidget = (Widget) parent->GetClientWidget(); + + bool wantHorizScrolling = ((m_windowStyle & wxHSCROLL) != 0); + + // If we don't have horizontal scrollbars, we want word wrap. + bool wantWordWrap = !wantHorizScrolling; + + if (m_windowStyle & wxTE_MULTILINE) + { + Arg args[2]; + XtSetArg (args[0], XmNscrollHorizontal, wantHorizScrolling ? True : False); + XtSetArg (args[1], XmNwordWrap, wantWordWrap ? True : False); + + m_mainWidget = (WXWidget) XmCreateScrolledText (parentWidget, (char*) (const char*) name, args, 2); + + XtVaSetValues ((Widget) m_mainWidget, + XmNeditable, ((style & wxTE_READONLY) ? False : True), + XmNeditMode, XmMULTI_LINE_EDIT, + NULL); + XtManageChild ((Widget) m_mainWidget); + } + else + { + m_mainWidget = (WXWidget) XtVaCreateManagedWidget ((char*) (const char*) name, + xmTextWidgetClass, parentWidget, + NULL); + + // TODO: Is this relevant? What does it do? + int noCols = 2; + if (!value.IsNull() && (value.Length() > (unsigned int) noCols)) + noCols = value.Length(); + XtVaSetValues ((Widget) m_mainWidget, + XmNcolumns, noCols, + NULL); + } + + if (!value.IsNull()) + XmTextSetString ((Widget) m_mainWidget, (char*) (const char*) value); + + XtAddCallback((Widget) m_mainWidget, XmNvalueChangedCallback, (XtCallbackProc)wxTextWindowChangedProc, (XtPointer)this); + + XtAddCallback((Widget) m_mainWidget, XmNmodifyVerifyCallback, (XtCallbackProc)wxTextWindowModifyProc, (XtPointer)this); + + XtAddCallback((Widget) m_mainWidget, XmNactivateCallback, (XtCallbackProc)wxTextWindowActivateProc, (XtPointer)this); + + XtAddCallback((Widget) m_mainWidget, XmNfocusCallback, (XtCallbackProc)wxTextWindowGainFocusProc, (XtPointer)this); + + XtAddCallback((Widget) m_mainWidget, XmNlosingFocusCallback, (XtCallbackProc)wxTextWindowLoseFocusProc, (XtPointer)this); + + m_windowFont = parent->GetFont(); + ChangeFont(FALSE); + + SetCanAddEventHandler(TRUE); + AttachWidget (parent, m_mainWidget, (WXWidget) NULL, pos.x, pos.y, size.x, size.y); + + ChangeBackgroundColour(); + return TRUE; } -wxString wxTextCtrl::GetValue() const +WXWidget wxTextCtrl::GetTopWidget() const { - // TODO - return wxString(""); + return ((m_windowStyle & wxTE_MULTILINE) ? (WXWidget) XtParent((Widget) m_mainWidget) : m_mainWidget); } -void wxTextCtrl::SetValue(const wxString& value) +wxString wxTextCtrl::GetValue() const { - // TODO + if (m_windowStyle & wxTE_PASSWORD) + return m_value; + else + { + char *s = XmTextGetString ((Widget) m_mainWidget); + if (s) + { + wxString str(s); + XtFree (s); + return str; + } + else + { + return wxEmptyString; + } + } } -void wxTextCtrl::SetSize(int x, int y, int width, int height, int sizeFlags) +void wxTextCtrl::SetValue(const wxString& value) { - // TODO + // This assert is wrong -- means that you can't set an empty + // string (IsNull == IsEmpty). + // wxASSERT_MSG( (!value.IsNull()), "Must not pass a null string to wxTextCtrl::SetValue." ) ; + m_inSetValue = TRUE; + + XmTextSetString ((Widget) m_mainWidget, (char*) (const char*) value); + + m_inSetValue = FALSE; } // Clipboard operations void wxTextCtrl::Copy() { - // TODO + XmTextCopy((Widget) m_mainWidget, CurrentTime); } void wxTextCtrl::Cut() { - // TODO + XmTextCut((Widget) m_mainWidget, CurrentTime); } void wxTextCtrl::Paste() { - // TODO + XmTextPaste((Widget) m_mainWidget); } void wxTextCtrl::SetEditable(bool editable) { - // TODO + XmTextSetEditable((Widget) m_mainWidget, (Boolean) editable); } void wxTextCtrl::SetInsertionPoint(long pos) { - // TODO + XmTextSetInsertionPosition ((Widget) m_mainWidget, (XmTextPosition) pos); } void wxTextCtrl::SetInsertionPointEnd() @@ -119,29 +225,31 @@ void wxTextCtrl::SetInsertionPointEnd() long wxTextCtrl::GetInsertionPoint() const { - // TODO - return 0; + return (long) XmTextGetInsertionPosition ((Widget) m_mainWidget); } long wxTextCtrl::GetLastPosition() const { - // TODO - return 0; + return (long) XmTextGetLastPosition ((Widget) m_mainWidget); } void wxTextCtrl::Replace(long from, long to, const wxString& value) { - // TODO + XmTextReplace ((Widget) m_mainWidget, (XmTextPosition) from, (XmTextPosition) to, + (char*) (const char*) value); } void wxTextCtrl::Remove(long from, long to) { - // TODO + XmTextSetSelection ((Widget) m_mainWidget, (XmTextPosition) from, (XmTextPosition) to, + (Time) 0); + XmTextRemove ((Widget) m_mainWidget); } void wxTextCtrl::SetSelection(long from, long to) { - // TODO + XmTextSetSelection ((Widget) m_mainWidget, (XmTextPosition) from, (XmTextPosition) to, + (Time) 0); } bool wxTextCtrl::LoadFile(const wxString& file) @@ -153,37 +261,36 @@ bool wxTextCtrl::LoadFile(const wxString& file) Clear(); - ifstream input((char*) (const char*) file, ios::nocreate | ios::in); + Widget textWidget = (Widget) m_mainWidget; + FILE *fp; - if (!input.bad()) + struct stat statb; + if ((stat ((char*) (const char*) file, &statb) == -1) || (statb.st_mode & S_IFMT) != S_IFREG || + !(fp = fopen ((char*) (const char*) file, "r"))) { - struct stat stat_buf; - if (stat(file, &stat_buf) < 0) - return FALSE; - // This may need to be a bigger buffer than the file size suggests, - // if it's a UNIX file. Give it an extra 1000 just in case. - char *tmp_buffer = (char*)malloc((size_t)(stat_buf.st_size+1+1000)); - long no_lines = 0; - long pos = 0; - while (!input.eof() && input.peek() != EOF) - { - input.getline(wxBuffer, 500); - int len = strlen(wxBuffer); - wxBuffer[len] = 13; - wxBuffer[len+1] = 10; - wxBuffer[len+2] = 0; - strcpy(tmp_buffer+pos, wxBuffer); - pos += strlen(wxBuffer); - no_lines++; - } - - // TODO add line - - free(tmp_buffer); - - return TRUE; + return FALSE; + } + else + { + long len = statb.st_size; + char *text; + if (!(text = XtMalloc ((unsigned) (len + 1)))) + { + fclose (fp); + return FALSE; + } + if (fread (text, sizeof (char), len, fp) != (size_t) len) + { + } + fclose (fp); + + text[len] = 0; + XmTextSetString (textWidget, text); + // m_textPosition = len; + XtFree (text); + m_modified = FALSE; + return TRUE; } - return FALSE; } // If file is null, try saved file name first @@ -197,69 +304,147 @@ bool wxTextCtrl::SaveFile(const wxString& file) return FALSE; m_fileName = theFile; - ofstream output((char*) (const char*) theFile); - if (output.bad()) - return FALSE; - - // TODO get and save text + Widget textWidget = (Widget) m_mainWidget; + FILE *fp; - return FALSE; + if (!(fp = fopen ((char*) (const char*) theFile, "w"))) + { + return FALSE; + } + else + { + char *text = XmTextGetString (textWidget); + long len = XmTextGetLastPosition (textWidget); + + if (fwrite (text, sizeof (char), len, fp) != (size_t) len) + { + // Did not write whole file + } + // Make sure newline terminates the file + if (text[len - 1] != '\n') + fputc ('\n', fp); + + fclose (fp); + XtFree (text); + m_modified = FALSE; + return TRUE; + } } void wxTextCtrl::WriteText(const wxString& text) { - // TODO write text to control + long textPosition = GetInsertionPoint() + strlen (text); + XmTextInsert ((Widget) m_mainWidget, GetInsertionPoint(), (char*) (const char*) text); + XtVaSetValues ((Widget) m_mainWidget, XmNcursorPosition, textPosition, NULL); + SetInsertionPoint(textPosition); + XmTextShowPosition ((Widget) m_mainWidget, textPosition); + m_modified = TRUE; } void wxTextCtrl::Clear() { - // TODO + XmTextSetString ((Widget) m_mainWidget, ""); + m_modified = FALSE; } bool wxTextCtrl::IsModified() const { - // TODO - return FALSE; + return m_modified; } // Makes 'unmodified' void wxTextCtrl::DiscardEdits() { - // TODO + XmTextSetString ((Widget) m_mainWidget, ""); + m_modified = FALSE; } int wxTextCtrl::GetNumberOfLines() const { - // TODO + // HIDEOUSLY inefficient, but we have no choice. + char *s = XmTextGetString ((Widget) m_mainWidget); + if (s) + { + long i = 0; + int currentLine = 0; + bool finished = FALSE; + while (!finished) + { + int ch = s[i]; + if (ch == '\n') + { + currentLine++; + i++; + } + else if (ch == 0) + { + finished = TRUE; + } + else + i++; + } + + XtFree (s); + return currentLine; + } return 0; } long wxTextCtrl::XYToPosition(long x, long y) const { - // TODO - return 0; +/* It seems, that there is a bug in some versions of the Motif library, + so the original wxWin-Code doesn't work. */ +/* + Widget textWidget = (Widget) handle; + return (long) XmTextXYToPos (textWidget, (Position) x, (Position) y); +*/ + /* Now a little workaround: */ + long r=0; + for (int i=0; idoit = True; + if (isascii(event.m_keyCode) && (textStruct->text->length == 1)) + { + textStruct->text->ptr[0] = ((event.m_keyCode == WXK_RETURN) ? 10 : event.m_keyCode); + } + } +} + +void wxTextCtrl::ChangeFont(bool keepOriginalSize) +{ + wxWindow::ChangeFont(keepOriginalSize); +} + +void wxTextCtrl::ChangeBackgroundColour() +{ + wxWindow::ChangeBackgroundColour(); + + Widget parent = XtParent ((Widget) m_mainWidget); + Widget hsb, vsb; + + XtVaGetValues (parent, + XmNhorizontalScrollBar, &hsb, + XmNverticalScrollBar, &vsb, + NULL); + + /* TODO: should scrollbars be affected? Should probably have separate + * function to change them (by default, taken from wxSystemSettings) + if (hsb) + DoChangeBackgroundColour((WXWidget) hsb, m_backgroundColour, TRUE); + if (vsb) + DoChangeBackgroundColour((WXWidget) vsb, m_backgroundColour, TRUE); + */ + + DoChangeBackgroundColour((WXWidget) parent, m_backgroundColour, TRUE); +} + +void wxTextCtrl::ChangeForegroundColour() +{ + wxWindow::ChangeForegroundColour(); + + + Widget parent = XtParent ((Widget) m_mainWidget); + Widget hsb, vsb; + + XtVaGetValues (parent, + XmNhorizontalScrollBar, &hsb, + XmNverticalScrollBar, &vsb, + NULL); + + /* TODO: should scrollbars be affected? Should probably have separate + * function to change them (by default, taken from wxSystemSettings) + if (hsb) + DoChangeForegroundColour((WXWidget) hsb, m_foregroundColour); + if (vsb) + DoChangeForegroundColour((WXWidget) vsb, m_foregroundColour); + */ + DoChangeForegroundColour((WXWidget) parent, m_foregroundColour); +} + +static void wxTextWindowChangedProc (Widget w, XtPointer clientData, XtPointer ptr) +{ + if (!wxGetWindowFromTable(w)) + // Widget has been deleted! + return; + + wxTextCtrl *tw = (wxTextCtrl *) clientData; + tw->SetModified(TRUE); +} + +static void +wxTextWindowModifyProc (Widget w, XtPointer clientData, XmTextVerifyCallbackStruct *cbs) +{ + wxTextCtrl *tw = (wxTextCtrl *) clientData; + tw->m_processedDefault = FALSE; + + // First, do some stuff if it's a password control. + // (What does this do exactly?) + + if (tw->GetWindowStyleFlag() & wxTE_PASSWORD) + { + /* _sm_ + * At least on my system (SunOS 4.1.3 + Motif 1.2), you need to think of + * every event as a replace event. cbs->text->ptr gives the replacement + * text, cbs->startPos gives the index of the first char affected by the + * replace, and cbs->endPos gives the index one more than the last char + * affected by the replace (startPos == endPos implies an empty range). + * Hence, a deletion is represented by replacing all input text with a + * blank string ("", *not* NULL!). A simple insertion that does not + * overwrite any text has startPos == endPos. + */ + + if (tw->m_value.IsNull()) + { + tw->m_value = cbs->text->ptr; + } + else + { + char * passwd = (char*) (const char*) tw->m_value; // Set up a more convenient alias. + + int len = passwd ? strlen(passwd) : 0; // Enough room for old text + len += strlen(cbs->text->ptr) + 1; // + new text (if any) + NUL + len -= cbs->endPos - cbs->startPos; // - text from affected region. + + char * newS = new char [len]; + char * p = passwd, * dest = newS, * insert = cbs->text->ptr; + + // Copy (old) text from passwd, up to the start posn of the change. + int i; + for (i = 0; i < cbs->startPos; ++i) + *dest++ = *p++; + + // Copy the text to be inserted). + while (*insert) + *dest++ = *insert++; + + // Finally, copy into newS any remaining text from passwd[endPos] on. + for (p = passwd + cbs->endPos; *p; ) + *dest++ = *p++; + *dest = 0; + + tw->m_value = newS; + + delete[] newS; + } + + if (cbs->text->length>0) + { + int i; + for (i = 0; i < cbs->text->length; ++i) + cbs->text->ptr[i] = '*'; + cbs->text->ptr[i] = 0; + } + } + + // If we're already within an OnChar, return: probably + // a programmatic insertion. + if (tw->m_tempCallbackStruct) + return; + + // Check for a backspace + if (cbs->startPos == (cbs->currInsert - 1)) + { + tw->m_tempCallbackStruct = (void*) cbs; + + wxKeyEvent event (wxEVT_CHAR); + event.SetId(tw->GetId()); + event.m_keyCode = WXK_DELETE; + event.SetEventObject(tw); + + // Only if wxTextCtrl::OnChar is called + // will this be set to True (and the character + // passed through) + cbs->doit = False; + + tw->GetEventHandler()->ProcessEvent(event); + + tw->m_tempCallbackStruct = NULL; + + if (tw->InSetValue()) + return; + + if (tw->m_processedDefault) + { + // Can generate a command + wxCommandEvent commandEvent(wxEVT_COMMAND_TEXT_UPDATED, tw->GetId()); + commandEvent.SetEventObject(tw); + tw->ProcessCommand(commandEvent); + } + + return; + } + + // Pasting operation: let it through without + // calling OnChar + if (cbs->text->length > 1) + return; + + // Something other than text + if (cbs->text->ptr == NULL) + return; + + tw->m_tempCallbackStruct = (void*) cbs; + + wxKeyEvent event (wxEVT_CHAR); + event.SetId(tw->GetId()); + event.SetEventObject(tw); + event.m_keyCode = (cbs->text->ptr[0] == 10 ? 13 : cbs->text->ptr[0]); + + // Only if wxTextCtrl::OnChar is called + // will this be set to True (and the character + // passed through) + cbs->doit = False; + + tw->GetEventHandler()->ProcessEvent(event); + + tw->m_tempCallbackStruct = NULL; + + if (tw->InSetValue()) + return; + + if (tw->m_processedDefault) + { + // Can generate a command + wxCommandEvent commandEvent(wxEVT_COMMAND_TEXT_UPDATED, tw->GetId()); + commandEvent.SetEventObject(tw); + tw->ProcessCommand(commandEvent); + } +} + +static void +wxTextWindowGainFocusProc (Widget w, XtPointer clientData, XmAnyCallbackStruct *cbs) +{ + if (!wxGetWindowFromTable(w)) + return; + + wxTextCtrl *tw = (wxTextCtrl *) clientData; + wxFocusEvent event(wxEVT_SET_FOCUS, tw->GetId()); + event.SetEventObject(tw); + tw->GetEventHandler()->ProcessEvent(event); +} + +static void +wxTextWindowLoseFocusProc (Widget w, XtPointer clientData, XmAnyCallbackStruct *cbs) +{ + if (!wxGetWindowFromTable(w)) + return; + + wxTextCtrl *tw = (wxTextCtrl *) clientData; + wxFocusEvent event(wxEVT_KILL_FOCUS, tw->GetId()); + event.SetEventObject(tw); + tw->GetEventHandler()->ProcessEvent(event); +} + +static void wxTextWindowActivateProc(Widget w, XtPointer clientData, + XmAnyCallbackStruct *ptr) +{ + if (!wxGetWindowFromTable(w)) + return; + + wxTextCtrl *tw = (wxTextCtrl *) clientData; + /* + case XmCR_ACTIVATE: + type_event = wxEVENT_TYPE_TEXT_ENTER_COMMAND ; + break; + default: + type_event = wxEVENT_TYPE_TEXT_COMMAND ; + break; + } + */ + + if (tw->InSetValue()) + return; + + wxCommandEvent event(wxEVT_COMMAND_TEXT_ENTER); + event.SetId(tw->GetId()); + event.SetEventObject(tw); + tw->ProcessCommand(event); +}