X-Git-Url: https://git.saurik.com/wxWidgets.git/blobdiff_plain/ffecfa5aeb540b54914739dbb8603edbbd4c00a0..4913272f9cdead94a6d1470e51d6fb14946b50e0:/src/palmos/control.cpp

diff --git a/src/palmos/control.cpp b/src/palmos/control.cpp
index aad3ffef11..45f5e2a571 100644
--- a/src/palmos/control.cpp
+++ b/src/palmos/control.cpp
@@ -1,11 +1,11 @@
 /////////////////////////////////////////////////////////////////////////////
-// Name:        palmos/control.cpp
+// Name:        src/palmos/control.cpp
 // Purpose:     wxControl class
-// Author:      William Osborne
-// Modified by:
+// Author:      William Osborne - minimal working wxPalmOS port
+// Modified by: Wlodzimierz ABX Skiba - native implementation
 // Created:     10/13/04
-// RCS-ID:      $Id: 
-// Copyright:   (c) William Osborne
+// RCS-ID:      $Id$
+// Copyright:   (c) William Osborne, Wlodzimierz Skiba
 // Licence:     wxWindows licence
 /////////////////////////////////////////////////////////////////////////////
 
@@ -17,10 +17,6 @@
 // headers
 // ----------------------------------------------------------------------------
 
-#if defined(__GNUG__) && !defined(NO_GCC_PRAGMA)
-    #pragma implementation "control.h"
-#endif
-
 // For compilers that support precompilation, includes "wx.h".
 #include "wx/wxprec.h"
 
@@ -30,15 +26,26 @@
 
 #if wxUSE_CONTROLS
 
+#include "wx/control.h"
+
 #ifndef WX_PRECOMP
     #include "wx/event.h"
     #include "wx/app.h"
     #include "wx/dcclient.h"
     #include "wx/log.h"
     #include "wx/settings.h"
+    #include "wx/button.h"
+    #include "wx/checkbox.h"
+    #include "wx/radiobut.h"
+    #include "wx/slider.h"
+    #include "wx/toplevel.h"
 #endif
 
-#include "wx/control.h"
+#include "wx/tglbtn.h"
+
+#include <Control.h>
+#include <Form.h>
+#include <StatusBar.h>
 
 // ----------------------------------------------------------------------------
 // wxWin macros
@@ -58,9 +65,25 @@ END_EVENT_TABLE()
 // wxControl ctor/dtor
 // ----------------------------------------------------------------------------
 
+void wxControl::Init()
+{
+    m_palmControl = false;
+    m_palmField = false;
+}
+
 wxControl::~wxControl()
 {
-    m_isBeingDeleted = TRUE;
+    SetLabel(wxEmptyString);
+    m_isBeingDeleted = true;
+
+    DestroyChildren();
+
+    uint16_t index;
+    FormType* form = (FormType*)GetObjectFormIndex(index);
+    if(form!=NULL && index!=frmInvalidObjectId)
+    {
+        FrmRemoveObject((FormType **)&form,index);
+    }
 }
 
 // ----------------------------------------------------------------------------
@@ -76,40 +99,150 @@ bool wxControl::Create(wxWindow *parent,
                        const wxString& name)
 {
     if ( !wxWindow::Create(parent, id, pos, size, style, name) )
-        return FALSE;
+        return false;
 
 #if wxUSE_VALIDATORS
     SetValidator(validator);
 #endif
 
-    return TRUE;
+    return true;
 }
 
-bool wxControl::MSWCreateControl(const wxChar *classname,
-                                 const wxString& label,
-                                 const wxPoint& pos,
-                                 const wxSize& size)
+bool wxControl::PalmCreateControl(int style,
+                                  const wxString& label,
+                                  const wxPoint& pos,
+                                  const wxSize& size,
+                                  uint8_t groupID)
 {
-    WXDWORD exstyle;
-    WXDWORD msStyle = MSWGetStyle(GetWindowStyle(), &exstyle);
-
-    return MSWCreateControl(classname, msStyle, pos, size, label, exstyle);
+    FormType* form = (FormType*)GetParentForm();
+    if(form==NULL)
+        return false;
+
+
+    wxCoord x = pos.x == wxDefaultCoord ? 0 : pos.x,
+            y = pos.y == wxDefaultCoord ? 0 : pos.y,
+            w = size.x == wxDefaultCoord ? 1 : size.x,
+            h = size.y == wxDefaultCoord ? 1 : size.y;
+
+    wxWindow *win = this;
+    while(win->GetParent())
+    {
+        win = win->GetParent();
+        wxPoint pt(win->GetClientAreaOrigin());
+        x += pt.x;
+        y += pt.y;
+    }
+
+    ControlType *control = CtlNewControl(
+                               (void **)&form,
+                               GetId(),
+                               (ControlStyleType)style,
+                               wxEmptyString,
+                               x,
+                               y,
+                               w,
+                               h,
+                               stdFont,
+                               groupID,
+                               true
+                           );
+
+    if(control==NULL)
+        return false;
+
+    m_palmControl = true;
+
+    SetInitialBestSize(size);
+    SetLabel(label);
+    Show();
+    return true;
 }
 
-bool wxControl::MSWCreateControl(const wxChar *classname,
-                                 WXDWORD style,
-                                 const wxPoint& pos,
-                                 const wxSize& size,
-                                 const wxString& label,
-                                 WXDWORD exstyle)
+bool wxControl::PalmCreateField(const wxString& label,
+                                const wxPoint& pos,
+                                const wxSize& size,
+                                bool editable,
+                                bool underlined,
+                                int justification)
 {
-    return TRUE;
+    FormType* form = (FormType*)GetParentForm();
+    if(form==NULL)
+        return false;
+
+    m_label = label;
+
+    wxCoord x = pos.x == wxDefaultCoord ? 0 : pos.x,
+            y = pos.y == wxDefaultCoord ? 0 : pos.y,
+            w = size.x == wxDefaultCoord ? 1 : size.x,
+            h = size.y == wxDefaultCoord ? 1 : size.y;
+
+    AdjustForParentClientOrigin(x, y);
+
+    FieldType *field = FldNewField(
+                           (void **)&form,
+                           GetId(),
+                           x,
+                           y,
+                           w,
+                           h,
+                           stdFont,
+                           10,
+                           editable,
+                           underlined,
+                           false,
+                           false,
+                           (JustificationType)justification,
+                           false,
+                           false,
+                           false
+                       );
+
+    if(field==NULL)
+        return false;
+
+    m_palmField = true;
+
+    SetInitialBestSize(size);
+    SetLabel(label);
+    Show();
+    return true;
 }
 
 // ----------------------------------------------------------------------------
 // various accessors
 // ----------------------------------------------------------------------------
 
+WXFORMPTR wxControl::GetParentForm() const
+{
+    wxWindow* parentTLW = GetParent();
+    while ( parentTLW && !parentTLW->IsTopLevel() )
+    {
+        parentTLW = parentTLW->GetParent();
+    }
+    wxTopLevelWindowPalm* tlw = wxDynamicCast(parentTLW, wxTopLevelWindowPalm);
+    if(!tlw)
+        return NULL;
+    return tlw->GetForm();
+}
+
+WXFORMPTR wxControl::GetObjectFormIndex(uint16_t& index) const
+{
+    FormType* form = (FormType* )GetParentForm();
+    if(form!=NULL)
+        index = FrmGetObjectIndex(form, GetId());
+    else
+        index = frmInvalidObjectId;
+    return form;
+}
+
+void* wxControl::GetObjectPtr() const
+{
+    uint16_t index;
+    FormType* form = (FormType*)GetObjectFormIndex(index);
+    if(form==NULL || index==frmInvalidObjectId)return NULL;
+    return FrmGetObjectPtr(form,index);
+}
+
 wxBorder wxControl::GetDefaultBorder() const
 {
     // we want to automatically give controls a sunken style (confusingly,
@@ -118,9 +251,31 @@ wxBorder wxControl::GetDefaultBorder() const
     return wxBORDER_SUNKEN;
 }
 
-WXDWORD wxControl::MSWGetStyle(long style, WXDWORD *exstyle) const
+void wxControl::SetIntValue(int val)
 {
-    return 0;
+    FormType* form = (FormType*)GetParentForm();
+    if(form==NULL)
+        return;
+    uint16_t index = FrmGetObjectIndex(form, GetId());
+    if(index==frmInvalidObjectId)
+        return;
+    FrmSetControlValue(form, index, val);
+}
+
+void wxControl::SetBoolValue(bool val)
+{
+    SetIntValue(val?1:0);
+}
+
+bool wxControl::GetBoolValue() const
+{
+    FormType* form = (FormType*)GetParentForm();
+    if(form==NULL)
+        return false;
+    uint16_t index = FrmGetObjectIndex(form, GetId());
+    if(index==frmInvalidObjectId)
+        return false;
+    return ( FrmGetControlValue(form, index) == 1 );
 }
 
 wxSize wxControl::DoGetBestSize() const
@@ -128,6 +283,188 @@ wxSize wxControl::DoGetBestSize() const
     return wxSize(16, 16);
 }
 
+void wxControl::DoGetBounds( WXRECTANGLEPTR rect ) const
+{
+    if(rect==NULL)
+        return;
+    FormType* form = (FormType*)GetParentForm();
+    if(form==NULL)
+        return;
+    uint16_t index = FrmGetObjectIndex(form,GetId());
+    if(index==frmInvalidObjectId)
+        return;
+    FrmGetObjectBounds(form,index,(RectangleType*)rect);
+}
+
+void wxControl::DoSetBounds( WXRECTANGLEPTR rect )
+{
+    if(rect==NULL)
+        return;
+    FormType* form = (FormType*)GetParentForm();
+    if(form==NULL)
+        return;
+    uint16_t index = FrmGetObjectIndex(form,GetId());
+    if(index==frmInvalidObjectId)
+        return;
+    FrmSetObjectBounds(form,index,(RectangleType*)rect);
+}
+
+void wxControl::DoGetPosition( int *x, int *y ) const
+{
+    int ox = 0, oy = 0;
+    AdjustForParentClientOrigin(ox, oy);
+
+    RectangleType rect;
+    DoGetBounds(&rect);
+
+    if(x)
+        *x = rect.topLeft.x - ox;
+    if(y)
+        *y = rect.topLeft.y - oy;
+}
+
+void wxControl::DoGetSize( int *width, int *height ) const
+{
+    RectangleType rect;
+    DoGetBounds(&rect);
+
+    if(width)
+        *width = rect.extent.x;
+    if(height)
+        *height = rect.extent.y;
+}
+
+void wxControl::DoMoveWindow(int x, int y, int width, int height)
+{
+    wxRect area = GetRect();
+    RectangleType rect;
+    rect.topLeft.x = x;
+    rect.topLeft.y = y;
+    rect.extent.x = width;
+    rect.extent.y = height;
+    DoSetBounds(&rect);
+    GetParent()->Refresh(true, &area);
+}
+
+bool wxControl::Enable(bool enable)
+{
+    ControlType *control = (ControlType *)GetObjectPtr();
+    if( !IsPalmControl() || (control == NULL))
+        return false;
+    if( CtlEnabled(control) == enable)
+        return false;
+    CtlSetEnabled( control, enable);
+    return true;
+}
+
+bool wxControl::IsEnabled() const
+{
+    ControlType *control = (ControlType *)GetObjectPtr();
+    if( !IsPalmControl() || (control == NULL))
+        return false;
+    return CtlEnabled(control);
+}
+
+bool wxControl::IsShown() const
+{
+    return StatGetAttribute ( statAttrBarVisible , NULL );
+}
+
+bool wxControl::Show( bool show )
+{
+    FormType* form = (FormType*)GetParentForm();
+    if(form==NULL)
+        return false;
+    uint16_t index = FrmGetObjectIndex(form,GetId());
+    if(index==frmInvalidObjectId)
+        return false;
+    if(show)
+        FrmShowObject(form,index);
+    else
+        FrmHideObject(form,index);
+    return true;
+}
+
+void wxControl::SetFieldLabel(const wxString& label)
+{
+    FieldType* field = (FieldType*)GetObjectPtr();
+    if(field==NULL)
+        return;
+
+    uint16_t newSize = label.length() + 1;
+    MemHandle strHandle = FldGetTextHandle(field);
+    FldSetTextHandle(field, NULL );
+    if (strHandle)
+    {
+        if(MemHandleResize(strHandle, newSize)!=errNone)
+            strHandle = 0;
+    }
+    else
+    {
+        strHandle = MemHandleNew( newSize );
+    }
+    if(!strHandle)
+        return;
+
+    char* str = (char*) MemHandleLock( strHandle );
+    if(str==NULL)
+        return;
+
+    strcpy(str, label.c_str());
+    MemHandleUnlock(strHandle);
+    FldSetTextHandle(field, strHandle);
+    FldRecalculateField(field, true);
+}
+
+void wxControl::SetControlLabel(const wxString& label)
+{
+    ControlType* control = (ControlType*)GetObjectPtr();
+    if(control==NULL)
+        return;
+    CtlSetLabel(control,wxEmptyString);
+    m_label = label;
+    if(!m_label.empty())
+        CtlSetLabel(control,m_label.c_str());
+}
+
+void wxControl::SetLabel(const wxString& label)
+{
+    if(IsPalmField())
+        SetFieldLabel(label);
+
+    // unlike other native controls, slider has no label
+    if(IsPalmControl() && !wxDynamicCast(this,wxSlider))
+        SetControlLabel(label);
+}
+
+wxString wxControl::GetFieldLabel()
+{
+    FieldType* field = (FieldType*)GetObjectPtr();
+    if(field==NULL)
+        return wxEmptyString;
+    return FldGetTextPtr(field);
+}
+
+wxString wxControl::GetControlLabel()
+{
+    ControlType* control = (ControlType*)GetObjectPtr();
+    if(control==NULL)
+        return wxEmptyString;
+    return CtlGetLabel(control);
+}
+
+wxString wxControl::GetLabel()
+{
+    if(IsPalmField())
+        return GetFieldLabel();
+
+    // unlike other native controls, slider has no label
+    if(IsPalmControl() && !wxDynamicCast(this,wxSlider))
+        return GetControlLabel();
+
+    return wxEmptyString;
+}
+
 /* static */ wxVisualAttributes
 wxControl::GetClassDefaultAttributes(wxWindowVariant WXUNUSED(variant))
 {
@@ -167,35 +504,8 @@ bool wxControl::ProcessCommand(wxCommandEvent& event)
     return GetEventHandler()->ProcessEvent(event);
 }
 
-#ifdef __WIN95__
-bool wxControl::MSWOnNotify(int idCtrl,
-                            WXLPARAM lParam,
-                            WXLPARAM* result)
-{
-}
-#endif // Win95
-
 void wxControl::OnEraseBackground(wxEraseEvent& event)
 {
 }
 
-WXHBRUSH wxControl::OnCtlColor(WXHDC pDC, WXHWND WXUNUSED(pWnd), WXUINT WXUNUSED(nCtlColor),
-#if wxUSE_CTL3D
-                               WXUINT message,
-                               WXWPARAM wParam,
-                               WXLPARAM lParam
-#else
-                               WXUINT WXUNUSED(message),
-                               WXWPARAM WXUNUSED(wParam),
-                               WXLPARAM WXUNUSED(lParam)
-#endif
-    )
-{
-    return (WXHBRUSH)0;
-}
-
-// ---------------------------------------------------------------------------
-// global functions
-// ---------------------------------------------------------------------------
-
 #endif // wxUSE_CONTROLS