controls/TextCtrlAutoComplete.py
author Andrey Skvortsov <andrej.skvortzov@gmail.com>
Fri, 15 Sep 2017 19:01:31 +0300
changeset 1807 5562f34f2fc2
parent 1782 5b6ad7a7fd9d
child 1832 0f1081928d65
permissions -rw-r--r--
lazy initialization of highlight pens and brushes for DebugVariableViewer

Constructors wx.Pen() and wx.Brush() require wx.App to exist already.
That causes crash during import of the control,
because import is done before calling main application code.
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
     1
#!/usr/bin/env python
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
     2
# -*- coding: utf-8 -*-
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
     3
1571
486f94a8032c fix license notices in source files and license files under GPLv2+
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1498
diff changeset
     4
# This file is part of Beremiz, a Integrated Development Environment for
486f94a8032c fix license notices in source files and license files under GPLv2+
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1498
diff changeset
     5
# programming IEC 61131-3 automates supporting plcopen standard and CanFestival.
486f94a8032c fix license notices in source files and license files under GPLv2+
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1498
diff changeset
     6
#
486f94a8032c fix license notices in source files and license files under GPLv2+
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1498
diff changeset
     7
# Copyright (C) 2007: Edouard TISSERANT and Laurent BESSARD
486f94a8032c fix license notices in source files and license files under GPLv2+
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1498
diff changeset
     8
#
486f94a8032c fix license notices in source files and license files under GPLv2+
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1498
diff changeset
     9
# See COPYING file for copyrights details.
486f94a8032c fix license notices in source files and license files under GPLv2+
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1498
diff changeset
    10
#
486f94a8032c fix license notices in source files and license files under GPLv2+
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1498
diff changeset
    11
# This program is free software; you can redistribute it and/or
486f94a8032c fix license notices in source files and license files under GPLv2+
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1498
diff changeset
    12
# modify it under the terms of the GNU General Public License
486f94a8032c fix license notices in source files and license files under GPLv2+
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1498
diff changeset
    13
# as published by the Free Software Foundation; either version 2
486f94a8032c fix license notices in source files and license files under GPLv2+
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1498
diff changeset
    14
# of the License, or (at your option) any later version.
486f94a8032c fix license notices in source files and license files under GPLv2+
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1498
diff changeset
    15
#
486f94a8032c fix license notices in source files and license files under GPLv2+
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1498
diff changeset
    16
# This program is distributed in the hope that it will be useful,
486f94a8032c fix license notices in source files and license files under GPLv2+
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1498
diff changeset
    17
# but WITHOUT ANY WARRANTY; without even the implied warranty of
486f94a8032c fix license notices in source files and license files under GPLv2+
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1498
diff changeset
    18
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
486f94a8032c fix license notices in source files and license files under GPLv2+
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1498
diff changeset
    19
# GNU General Public License for more details.
486f94a8032c fix license notices in source files and license files under GPLv2+
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1498
diff changeset
    20
#
486f94a8032c fix license notices in source files and license files under GPLv2+
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1498
diff changeset
    21
# You should have received a copy of the GNU General Public License
486f94a8032c fix license notices in source files and license files under GPLv2+
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1498
diff changeset
    22
# along with this program; if not, write to the Free Software
486f94a8032c fix license notices in source files and license files under GPLv2+
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1498
diff changeset
    23
# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    24
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    25
import wx
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    26
import cPickle
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    27
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    28
MAX_ITEM_COUNT = 10
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    29
MAX_ITEM_SHOWN = 6
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    30
if wx.Platform == '__WXMSW__':
1180
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
    31
    LISTBOX_BORDER_HEIGHT = 2
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
    32
    LISTBOX_INTERVAL_HEIGHT = 0
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    33
else:
1180
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
    34
    LISTBOX_BORDER_HEIGHT = 4
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
    35
    LISTBOX_INTERVAL_HEIGHT = 6
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
    36
1736
7e61baa047f0 clean-up: fix PEP8 E302 expected 2 blank lines, found 1
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1735
diff changeset
    37
1180
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
    38
class PopupWithListbox(wx.PopupWindow):
1735
c02818d7e29f clean-up: fix PEP8 W293 blank line contains whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1733
diff changeset
    39
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    40
    def __init__(self, parent, choices=[]):
1180
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
    41
        wx.PopupWindow.__init__(self, parent, wx.BORDER_SIMPLE)
1735
c02818d7e29f clean-up: fix PEP8 W293 blank line contains whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1733
diff changeset
    42
1745
f9d32913bad4 clean-up: fix PEP8 E227 missing whitespace around bitwise or shift operator
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1736
diff changeset
    43
        self.ListBox = wx.ListBox(self, -1, style=wx.LB_HSCROLL | wx.LB_SINGLE | wx.LB_SORT)
1735
c02818d7e29f clean-up: fix PEP8 W293 blank line contains whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1733
diff changeset
    44
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    45
        self.SetChoices(choices)
1735
c02818d7e29f clean-up: fix PEP8 W293 blank line contains whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1733
diff changeset
    46
1180
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
    47
        self.ListBox.Bind(wx.EVT_LEFT_DOWN, self.OnLeftDown)
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
    48
        self.ListBox.Bind(wx.EVT_MOTION, self.OnMotion)
1735
c02818d7e29f clean-up: fix PEP8 W293 blank line contains whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1733
diff changeset
    49
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    50
    def SetChoices(self, choices):
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    51
        max_text_width = 0
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    52
        max_text_height = 0
1735
c02818d7e29f clean-up: fix PEP8 W293 blank line contains whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1733
diff changeset
    53
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    54
        self.ListBox.Clear()
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    55
        for choice in choices:
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    56
            self.ListBox.Append(choice)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    57
            w, h = self.ListBox.GetTextExtent(choice)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    58
            max_text_width = max(max_text_width, w)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    59
            max_text_height = max(max_text_height, h)
1735
c02818d7e29f clean-up: fix PEP8 W293 blank line contains whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1733
diff changeset
    60
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    61
        itemcount = min(len(choices), MAX_ITEM_SHOWN)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    62
        width = self.Parent.GetSize()[0]
1767
c74815729afd clean-up: fix PEP8 E127 continuation line over-indented for visual indent
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1745
diff changeset
    63
        height = \
c74815729afd clean-up: fix PEP8 E127 continuation line over-indented for visual indent
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1745
diff changeset
    64
            max_text_height * itemcount + \
c74815729afd clean-up: fix PEP8 E127 continuation line over-indented for visual indent
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1745
diff changeset
    65
            LISTBOX_INTERVAL_HEIGHT * max(0, itemcount - 1) + \
c74815729afd clean-up: fix PEP8 E127 continuation line over-indented for visual indent
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1745
diff changeset
    66
            2 * LISTBOX_BORDER_HEIGHT
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    67
        if max_text_width + 10 > width:
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    68
            height += 15
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    69
        size = wx.Size(width, height)
1180
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
    70
        if wx.Platform == '__WXMSW__':
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
    71
            size.width -= 2
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    72
        self.ListBox.SetSize(size)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    73
        self.SetClientSize(size)
1735
c02818d7e29f clean-up: fix PEP8 W293 blank line contains whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1733
diff changeset
    74
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    75
    def MoveSelection(self, direction):
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    76
        selected = self.ListBox.GetSelection()
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    77
        if selected == wx.NOT_FOUND:
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    78
            if direction >= 0:
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    79
                selected = 0
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    80
            else:
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    81
                selected = self.ListBox.GetCount() - 1
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    82
        else:
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    83
            selected = (selected + direction) % (self.ListBox.GetCount() + 1)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    84
        if selected == self.ListBox.GetCount():
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    85
            selected = wx.NOT_FOUND
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    86
        self.ListBox.SetSelection(selected)
1735
c02818d7e29f clean-up: fix PEP8 W293 blank line contains whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1733
diff changeset
    87
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    88
    def GetSelection(self):
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    89
        return self.ListBox.GetStringSelection()
1735
c02818d7e29f clean-up: fix PEP8 W293 blank line contains whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1733
diff changeset
    90
1180
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
    91
    def OnLeftDown(self, event):
1498
b11045a2f17c fix deprecation warnings about accessing properties m_x, m_y of wxKeyEvent
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1180
diff changeset
    92
        selected = self.ListBox.HitTest(wx.Point(event.GetX(), event.GetY()))
1180
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
    93
        parent_size = self.Parent.GetSize()
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
    94
        parent_rect = wx.Rect(0, -parent_size[1], parent_size[0], parent_size[1])
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    95
        if selected != wx.NOT_FOUND:
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    96
            wx.CallAfter(self.Parent.SetValueFromSelected, self.ListBox.GetString(selected))
1498
b11045a2f17c fix deprecation warnings about accessing properties m_x, m_y of wxKeyEvent
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1180
diff changeset
    97
        elif parent_rect.InsideXY(event.GetX(), event.GetY()):
b11045a2f17c fix deprecation warnings about accessing properties m_x, m_y of wxKeyEvent
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1180
diff changeset
    98
            result, x, y = self.Parent.HitTest(wx.Point(event.GetX(), event.GetY() + parent_size[1]))
1180
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
    99
            if result != wx.TE_HT_UNKNOWN:
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   100
                self.Parent.SetInsertionPoint(self.Parent.XYToPosition(x, y))
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   101
        else:
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   102
            wx.CallAfter(self.Parent.DismissListBox)
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   103
        event.Skip()
1735
c02818d7e29f clean-up: fix PEP8 W293 blank line contains whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1733
diff changeset
   104
1180
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   105
    def OnMotion(self, event):
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   106
        self.ListBox.SetSelection(
1498
b11045a2f17c fix deprecation warnings about accessing properties m_x, m_y of wxKeyEvent
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1180
diff changeset
   107
            self.ListBox.HitTest(wx.Point(event.GetX(), event.GetY())))
1180
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   108
        event.Skip()
1735
c02818d7e29f clean-up: fix PEP8 W293 blank line contains whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1733
diff changeset
   109
1736
7e61baa047f0 clean-up: fix PEP8 E302 expected 2 blank lines, found 1
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1735
diff changeset
   110
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   111
class TextCtrlAutoComplete(wx.TextCtrl):
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   112
1771
f68a105000be clean-up: fix PEP8 E211 whitespace before '[' or '('
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1767
diff changeset
   113
    def __init__(self, parent, choices=None, dropDownClick=True,
f68a105000be clean-up: fix PEP8 E211 whitespace before '[' or '('
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1767
diff changeset
   114
                 element_path=None, **therest):
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   115
        """
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   116
        Constructor works just like wx.TextCtrl except you can pass in a
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   117
        list of choices.  You can also change the choice list at any time
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   118
        by calling setChoices.
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   119
        """
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   120
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   121
        therest['style'] = wx.TE_PROCESS_ENTER | therest.get('style', 0)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   122
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   123
        wx.TextCtrl.__init__(self, parent, **therest)
1735
c02818d7e29f clean-up: fix PEP8 W293 blank line contains whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1733
diff changeset
   124
1733
dea107dce0c4 clean-up: fix some PEP8 E265 block comment should start with '# '
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1571
diff changeset
   125
        # Some variables
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   126
        self._dropDownClick = dropDownClick
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   127
        self._lastinsertionpoint = None
1180
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   128
        self._hasfocus = False
1735
c02818d7e29f clean-up: fix PEP8 W293 blank line contains whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1733
diff changeset
   129
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   130
        self._screenheight = wx.SystemSettings.GetMetric(wx.SYS_SCREEN_Y)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   131
        self.element_path = element_path
1735
c02818d7e29f clean-up: fix PEP8 W293 blank line contains whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1733
diff changeset
   132
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   133
        self.listbox = None
1735
c02818d7e29f clean-up: fix PEP8 W293 blank line contains whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1733
diff changeset
   134
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   135
        self.SetChoices(choices)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   136
1782
5b6ad7a7fd9d clean-up: fix PEP8 E265 block comment should start with '# '
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1771
diff changeset
   137
        # gp = self
5b6ad7a7fd9d clean-up: fix PEP8 E265 block comment should start with '# '
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1771
diff changeset
   138
        # while ( gp != None ) :
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   139
        #    gp.Bind ( wx.EVT_MOVE , self.onControlChanged, gp )
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   140
        #    gp.Bind ( wx.EVT_SIZE , self.onControlChanged, gp )
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   141
        #    gp = gp.GetParent()
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   142
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   143
        self.Bind(wx.EVT_KILL_FOCUS, self.OnControlChanged)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   144
        self.Bind(wx.EVT_TEXT_ENTER, self.OnControlChanged)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   145
        self.Bind(wx.EVT_TEXT, self.OnEnteredText)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   146
        self.Bind(wx.EVT_KEY_DOWN, self.OnKeyDown)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   147
1733
dea107dce0c4 clean-up: fix some PEP8 E265 block comment should start with '# '
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1571
diff changeset
   148
        # If need drop down on left click
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   149
        if dropDownClick:
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   150
            self.Bind(wx.EVT_LEFT_DOWN, self.OnClickToggleDown)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   151
            self.Bind(wx.EVT_LEFT_UP, self.OnClickToggleUp)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   152
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   153
    def ChangeValue(self, value):
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   154
        wx.TextCtrl.ChangeValue(self, value)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   155
        self.RefreshListBoxChoices()
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   156
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   157
    def OnEnteredText(self, event):
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   158
        wx.CallAfter(self.RefreshListBoxChoices)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   159
        event.Skip()
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   160
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   161
    def OnKeyDown(self, event):
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   162
        """ Do some work when the user press on the keys:
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   163
            up and down: move the cursor
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   164
        """
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   165
        keycode = event.GetKeyCode()
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   166
        if keycode in [wx.WXK_DOWN, wx.WXK_UP]:
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   167
            self.PopupListBox()
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   168
            if keycode == wx.WXK_DOWN:
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   169
                self.listbox.MoveSelection(1)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   170
            else:
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   171
                self.listbox.MoveSelection(-1)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   172
        elif keycode in [wx.WXK_LEFT, wx.WXK_RIGHT, wx.WXK_RETURN] and self.listbox is not None:
1180
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   173
            selected = self.listbox.GetSelection()
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   174
            if selected != "":
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   175
                self.SetValueFromSelected(selected)
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   176
            else:
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   177
                event.Skip()
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   178
        elif event.GetKeyCode() == wx.WXK_ESCAPE:
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   179
            self.DismissListBox()
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   180
        else:
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   181
            event.Skip()
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   182
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   183
    def OnClickToggleDown(self, event):
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   184
        self._lastinsertionpoint = self.GetInsertionPoint()
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   185
        event.Skip()
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   186
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   187
    def OnClickToggleUp(self, event):
1180
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   188
        if not self._hasfocus:
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   189
            self._hasfocus = True
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   190
        elif self.GetInsertionPoint() == self._lastinsertionpoint:
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   191
            wx.CallAfter(self.PopupListBox)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   192
        self._lastinsertionpoint = None
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   193
        event.Skip()
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   194
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   195
    def OnControlChanged(self, event):
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   196
        res = self.GetValue()
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   197
        config = wx.ConfigBase.Get()
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   198
        listentries = cPickle.loads(str(config.Read(self.element_path, cPickle.dumps([]))))
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   199
        if res and res not in listentries:
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   200
            listentries = (listentries + [res])[-MAX_ITEM_COUNT:]
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   201
            config.Write(self.element_path, cPickle.dumps(listentries))
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   202
            config.Flush()
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   203
            self.SetChoices(listentries)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   204
        self.DismissListBox()
1180
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   205
        self._hasfocus = False
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   206
        event.Skip()
1735
c02818d7e29f clean-up: fix PEP8 W293 blank line contains whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1733
diff changeset
   207
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   208
    def SetChoices(self, choices):
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   209
        self._choices = choices
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   210
        self.RefreshListBoxChoices()
1735
c02818d7e29f clean-up: fix PEP8 W293 blank line contains whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1733
diff changeset
   211
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   212
    def GetChoices(self):
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   213
        return self._choices
1735
c02818d7e29f clean-up: fix PEP8 W293 blank line contains whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1733
diff changeset
   214
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   215
    def SetValueFromSelected(self, selected):
1180
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   216
        """
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   217
        Sets the wx.TextCtrl value from the selected wx.ListCtrl item.
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   218
        Will do nothing if no item is selected in the wx.ListCtrl.
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   219
        """
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   220
        if selected != "":
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   221
            self.SetValue(selected)
1180
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   222
        self.DismissListBox()
1735
c02818d7e29f clean-up: fix PEP8 W293 blank line contains whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1733
diff changeset
   223
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   224
    def RefreshListBoxChoices(self):
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   225
        if self.listbox is not None:
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   226
            text = self.GetValue()
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   227
            choices = [choice for choice in self._choices if choice.startswith(text)]
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   228
            self.listbox.SetChoices(choices)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   229
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   230
    def PopupListBox(self):
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   231
        if self.listbox is None:
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   232
            self.listbox = PopupWithListbox(self)
1735
c02818d7e29f clean-up: fix PEP8 W293 blank line contains whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1733
diff changeset
   233
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   234
            # Show the popup right below or above the button
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   235
            # depending on available screen space...
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   236
            pos = self.ClientToScreen((0, 0))
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   237
            sz = self.GetSize()
1180
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   238
            if wx.Platform == '__WXMSW__':
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   239
                pos.x -= 2
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   240
                pos.y -= 2
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   241
            self.listbox.Position(pos, (0, sz[1]))
1735
c02818d7e29f clean-up: fix PEP8 W293 blank line contains whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1733
diff changeset
   242
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   243
            self.RefreshListBoxChoices()
1735
c02818d7e29f clean-up: fix PEP8 W293 blank line contains whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1733
diff changeset
   244
1180
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   245
            self.listbox.Show()
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   246
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   247
    def DismissListBox(self):
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   248
        if self.listbox is not None:
1180
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   249
            if self.listbox.ListBox.HasCapture():
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   250
                self.listbox.ListBox.ReleaseMouse()
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   251
            self.listbox.Destroy()
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   252
            self.listbox = None