controls/TextCtrlAutoComplete.py
author Edouard Tisserant
Wed, 01 Dec 2021 09:54:02 +0100
branchRuntimeLists
changeset 3394 9ea29ac18837
parent 2431 6923074540dd
child 3303 0ffb41625592
permissions -rw-r--r--
RUNTIME: Variable trace now uses limited list and buffer instead of flags in instance tree that was requiring systematical instance tree traversal, and worst size buffer. Forcing and retain still use tree traversal.
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
1881
091005ec69c4 fix pylint py3k conversion warning: "(no-absolute-import) import missing `from __future__ import absolute_import`"
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1852
diff changeset
    25
091005ec69c4 fix pylint py3k conversion warning: "(no-absolute-import) import missing `from __future__ import absolute_import`"
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1852
diff changeset
    26
from __future__ import absolute_import
2431
6923074540dd python3 support: pylint, W1648 # (bad-python3-import) Module moved in Python 3
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1881
diff changeset
    27
from six.moves import cPickle
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    28
import wx
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    29
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    30
MAX_ITEM_COUNT = 10
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    31
MAX_ITEM_SHOWN = 6
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    32
if wx.Platform == '__WXMSW__':
1180
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
    33
    LISTBOX_BORDER_HEIGHT = 2
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
    34
    LISTBOX_INTERVAL_HEIGHT = 0
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    35
else:
1180
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
    36
    LISTBOX_BORDER_HEIGHT = 4
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
    37
    LISTBOX_INTERVAL_HEIGHT = 6
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
    38
1736
7e61baa047f0 clean-up: fix PEP8 E302 expected 2 blank lines, found 1
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1735
diff changeset
    39
1180
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
    40
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
    41
1852
70c1cc354a8f fix pylint warning '(dangerous-default-value) Dangerous default value {} as argument'
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1832
diff changeset
    42
    def __init__(self, parent, choices=None):
1180
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
    43
        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
    44
1745
f9d32913bad4 clean-up: fix PEP8 E227 missing whitespace around bitwise or shift operator
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1736
diff changeset
    45
        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
    46
1852
70c1cc354a8f fix pylint warning '(dangerous-default-value) Dangerous default value {} as argument'
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1832
diff changeset
    47
        choices = [] if choices is None else choices
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    48
        self.SetChoices(choices)
1735
c02818d7e29f clean-up: fix PEP8 W293 blank line contains whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1733
diff changeset
    49
1180
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
    50
        self.ListBox.Bind(wx.EVT_LEFT_DOWN, self.OnLeftDown)
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
    51
        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
    52
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    53
    def SetChoices(self, choices):
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    54
        max_text_width = 0
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    55
        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
    56
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    57
        self.ListBox.Clear()
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    58
        for choice in choices:
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    59
            self.ListBox.Append(choice)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    60
            w, h = self.ListBox.GetTextExtent(choice)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    61
            max_text_width = max(max_text_width, w)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    62
            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
    63
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    64
        itemcount = min(len(choices), MAX_ITEM_SHOWN)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    65
        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
    66
        height = \
c74815729afd clean-up: fix PEP8 E127 continuation line over-indented for visual indent
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1745
diff changeset
    67
            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
    68
            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
    69
            2 * LISTBOX_BORDER_HEIGHT
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    70
        if max_text_width + 10 > width:
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    71
            height += 15
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    72
        size = wx.Size(width, height)
1180
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
    73
        if wx.Platform == '__WXMSW__':
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
    74
            size.width -= 2
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    75
        self.ListBox.SetSize(size)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    76
        self.SetClientSize(size)
1735
c02818d7e29f clean-up: fix PEP8 W293 blank line contains whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1733
diff changeset
    77
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    78
    def MoveSelection(self, direction):
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    79
        selected = self.ListBox.GetSelection()
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    80
        if selected == wx.NOT_FOUND:
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    81
            if direction >= 0:
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    82
                selected = 0
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    83
            else:
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    84
                selected = self.ListBox.GetCount() - 1
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    85
        else:
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    86
            selected = (selected + direction) % (self.ListBox.GetCount() + 1)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    87
        if selected == self.ListBox.GetCount():
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    88
            selected = wx.NOT_FOUND
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    89
        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
    90
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    91
    def GetSelection(self):
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    92
        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
    93
1180
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
    94
    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
    95
        selected = self.ListBox.HitTest(wx.Point(event.GetX(), event.GetY()))
1180
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
    96
        parent_size = self.Parent.GetSize()
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
    97
        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
    98
        if selected != wx.NOT_FOUND:
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    99
            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
   100
        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
   101
            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
   102
            if result != wx.TE_HT_UNKNOWN:
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   103
                self.Parent.SetInsertionPoint(self.Parent.XYToPosition(x, y))
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   104
        else:
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   105
            wx.CallAfter(self.Parent.DismissListBox)
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   106
        event.Skip()
1735
c02818d7e29f clean-up: fix PEP8 W293 blank line contains whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1733
diff changeset
   107
1180
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   108
    def OnMotion(self, event):
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   109
        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
   110
            self.ListBox.HitTest(wx.Point(event.GetX(), event.GetY())))
1180
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   111
        event.Skip()
1735
c02818d7e29f clean-up: fix PEP8 W293 blank line contains whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1733
diff changeset
   112
1736
7e61baa047f0 clean-up: fix PEP8 E302 expected 2 blank lines, found 1
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1735
diff changeset
   113
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   114
class TextCtrlAutoComplete(wx.TextCtrl):
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   115
1771
f68a105000be clean-up: fix PEP8 E211 whitespace before '[' or '('
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1767
diff changeset
   116
    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
   117
                 element_path=None, **therest):
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   118
        """
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   119
        Constructor works just like wx.TextCtrl except you can pass in a
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   120
        list of choices.  You can also change the choice list at any time
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   121
        by calling setChoices.
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   122
        """
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   123
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   124
        therest['style'] = wx.TE_PROCESS_ENTER | therest.get('style', 0)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   125
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   126
        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
   127
1733
dea107dce0c4 clean-up: fix some PEP8 E265 block comment should start with '# '
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1571
diff changeset
   128
        # Some variables
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   129
        self._dropDownClick = dropDownClick
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   130
        self._lastinsertionpoint = None
1180
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   131
        self._hasfocus = False
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._screenheight = wx.SystemSettings.GetMetric(wx.SYS_SCREEN_Y)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   134
        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
   135
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   136
        self.listbox = None
1735
c02818d7e29f clean-up: fix PEP8 W293 blank line contains whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1733
diff changeset
   137
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   138
        self.SetChoices(choices)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   139
1782
5b6ad7a7fd9d clean-up: fix PEP8 E265 block comment should start with '# '
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1771
diff changeset
   140
        # gp = self
5b6ad7a7fd9d clean-up: fix PEP8 E265 block comment should start with '# '
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1771
diff changeset
   141
        # while ( gp != None ) :
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   142
        #    gp.Bind ( wx.EVT_MOVE , self.onControlChanged, gp )
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   143
        #    gp.Bind ( wx.EVT_SIZE , self.onControlChanged, gp )
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   144
        #    gp = gp.GetParent()
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   145
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   146
        self.Bind(wx.EVT_KILL_FOCUS, self.OnControlChanged)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   147
        self.Bind(wx.EVT_TEXT_ENTER, self.OnControlChanged)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   148
        self.Bind(wx.EVT_TEXT, self.OnEnteredText)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   149
        self.Bind(wx.EVT_KEY_DOWN, self.OnKeyDown)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   150
1733
dea107dce0c4 clean-up: fix some PEP8 E265 block comment should start with '# '
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1571
diff changeset
   151
        # If need drop down on left click
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   152
        if dropDownClick:
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   153
            self.Bind(wx.EVT_LEFT_DOWN, self.OnClickToggleDown)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   154
            self.Bind(wx.EVT_LEFT_UP, self.OnClickToggleUp)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   155
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   156
    def ChangeValue(self, value):
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   157
        wx.TextCtrl.ChangeValue(self, value)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   158
        self.RefreshListBoxChoices()
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   159
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   160
    def OnEnteredText(self, event):
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   161
        wx.CallAfter(self.RefreshListBoxChoices)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   162
        event.Skip()
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   163
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   164
    def OnKeyDown(self, event):
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   165
        """ Do some work when the user press on the keys:
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   166
            up and down: move the cursor
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   167
        """
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   168
        keycode = event.GetKeyCode()
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   169
        if keycode in [wx.WXK_DOWN, wx.WXK_UP]:
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   170
            self.PopupListBox()
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   171
            if keycode == wx.WXK_DOWN:
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   172
                self.listbox.MoveSelection(1)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   173
            else:
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   174
                self.listbox.MoveSelection(-1)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   175
        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
   176
            selected = self.listbox.GetSelection()
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   177
            if selected != "":
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   178
                self.SetValueFromSelected(selected)
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   179
            else:
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   180
                event.Skip()
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   181
        elif event.GetKeyCode() == wx.WXK_ESCAPE:
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   182
            self.DismissListBox()
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   183
        else:
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   184
            event.Skip()
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   185
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   186
    def OnClickToggleDown(self, event):
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   187
        self._lastinsertionpoint = self.GetInsertionPoint()
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   188
        event.Skip()
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   189
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   190
    def OnClickToggleUp(self, event):
1180
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   191
        if not self._hasfocus:
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   192
            self._hasfocus = True
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   193
        elif self.GetInsertionPoint() == self._lastinsertionpoint:
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   194
            wx.CallAfter(self.PopupListBox)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   195
        self._lastinsertionpoint = None
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   196
        event.Skip()
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   197
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   198
    def OnControlChanged(self, event):
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   199
        res = self.GetValue()
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   200
        config = wx.ConfigBase.Get()
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   201
        listentries = cPickle.loads(str(config.Read(self.element_path, cPickle.dumps([]))))
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   202
        if res and res not in listentries:
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   203
            listentries = (listentries + [res])[-MAX_ITEM_COUNT:]
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   204
            config.Write(self.element_path, cPickle.dumps(listentries))
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   205
            config.Flush()
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   206
            self.SetChoices(listentries)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   207
        self.DismissListBox()
1180
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   208
        self._hasfocus = False
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   209
        event.Skip()
1735
c02818d7e29f clean-up: fix PEP8 W293 blank line contains whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1733
diff changeset
   210
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   211
    def SetChoices(self, choices):
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   212
        self._choices = choices
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   213
        self.RefreshListBoxChoices()
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 GetChoices(self):
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   216
        return self._choices
1735
c02818d7e29f clean-up: fix PEP8 W293 blank line contains whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1733
diff changeset
   217
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   218
    def SetValueFromSelected(self, selected):
1180
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   219
        """
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   220
        Sets the wx.TextCtrl value from the selected wx.ListCtrl item.
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   221
        Will do nothing if no item is selected in the wx.ListCtrl.
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   222
        """
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   223
        if selected != "":
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   224
            self.SetValue(selected)
1180
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   225
        self.DismissListBox()
1735
c02818d7e29f clean-up: fix PEP8 W293 blank line contains whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1733
diff changeset
   226
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   227
    def RefreshListBoxChoices(self):
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   228
        if self.listbox is not None:
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   229
            text = self.GetValue()
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   230
            choices = [choice for choice in self._choices if choice.startswith(text)]
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   231
            self.listbox.SetChoices(choices)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   232
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   233
    def PopupListBox(self):
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   234
        if self.listbox is None:
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   235
            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
   236
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   237
            # Show the popup right below or above the button
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   238
            # depending on available screen space...
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   239
            pos = self.ClientToScreen((0, 0))
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   240
            sz = self.GetSize()
1180
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   241
            if wx.Platform == '__WXMSW__':
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   242
                pos.x -= 2
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   243
                pos.y -= 2
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   244
            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
   245
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   246
            self.RefreshListBoxChoices()
1735
c02818d7e29f clean-up: fix PEP8 W293 blank line contains whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1733
diff changeset
   247
1180
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   248
            self.listbox.Show()
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   249
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   250
    def DismissListBox(self):
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   251
        if self.listbox is not None:
1180
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   252
            if self.listbox.ListBox.HasCapture():
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   253
                self.listbox.ListBox.ReleaseMouse()
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   254
            self.listbox.Destroy()
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   255
            self.listbox = None