controls/TextCtrlAutoComplete.py
author Andrey Skvortsov <andrej.skvortzov@gmail.com>
Wed, 05 Apr 2017 14:17:02 +0300
changeset 1672 9298ba0cd70a
parent 1571 486f94a8032c
child 1733 dea107dce0c4
permissions -rw-r--r--
reset loaded messages counts on new PLC program trasnfer

This fixes the problem that first message from newer PLC program maybe
lost, if it's issued before first PLC log fetching.

Closes #23
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
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
    37
class PopupWithListbox(wx.PopupWindow):
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    38
    
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    39
    def __init__(self, parent, choices=[]):
1180
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
    40
        wx.PopupWindow.__init__(self, parent, wx.BORDER_SIMPLE)
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    41
        
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    42
        self.ListBox = wx.ListBox(self, -1, style=wx.LB_HSCROLL|wx.LB_SINGLE|wx.LB_SORT)
1180
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
    43
        
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    44
        self.SetChoices(choices)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    45
        
1180
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
    46
        self.ListBox.Bind(wx.EVT_LEFT_DOWN, self.OnLeftDown)
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
    47
        self.ListBox.Bind(wx.EVT_MOTION, self.OnMotion)
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    48
    
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    49
    def SetChoices(self, choices):
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    50
        max_text_width = 0
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    51
        max_text_height = 0
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    52
        
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    53
        self.ListBox.Clear()
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    54
        for choice in choices:
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    55
            self.ListBox.Append(choice)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    56
            w, h = self.ListBox.GetTextExtent(choice)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    57
            max_text_width = max(max_text_width, w)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    58
            max_text_height = max(max_text_height, h)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    59
        
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    60
        itemcount = min(len(choices), MAX_ITEM_SHOWN)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    61
        width = self.Parent.GetSize()[0]
1180
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
    62
        height = max_text_height * itemcount + \
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
    63
                 LISTBOX_INTERVAL_HEIGHT * max(0, itemcount - 1) + \
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
    64
                 2 * LISTBOX_BORDER_HEIGHT
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    65
        if max_text_width + 10 > width:
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    66
            height += 15
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    67
        size = wx.Size(width, height)
1180
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
    68
        if wx.Platform == '__WXMSW__':
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
    69
            size.width -= 2
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    70
        self.ListBox.SetSize(size)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    71
        self.SetClientSize(size)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    72
    
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    73
    def MoveSelection(self, direction):
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    74
        selected = self.ListBox.GetSelection()
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    75
        if selected == wx.NOT_FOUND:
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    76
            if direction >= 0:
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    77
                selected = 0
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    78
            else:
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    79
                selected = self.ListBox.GetCount() - 1
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 = (selected + direction) % (self.ListBox.GetCount() + 1)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    82
        if selected == self.ListBox.GetCount():
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    83
            selected = wx.NOT_FOUND
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    84
        self.ListBox.SetSelection(selected)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    85
    
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    86
    def GetSelection(self):
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    87
        return self.ListBox.GetStringSelection()
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    88
    
1180
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
    89
    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
    90
        selected = self.ListBox.HitTest(wx.Point(event.GetX(), event.GetY()))
1180
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
    91
        parent_size = self.Parent.GetSize()
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
    92
        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
    93
        if selected != wx.NOT_FOUND:
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
    94
            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
    95
        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
    96
            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
    97
            if result != wx.TE_HT_UNKNOWN:
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
    98
                self.Parent.SetInsertionPoint(self.Parent.XYToPosition(x, y))
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
    99
        else:
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   100
            wx.CallAfter(self.Parent.DismissListBox)
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   101
        event.Skip()
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   102
    
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   103
    def OnMotion(self, event):
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   104
        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
   105
            self.ListBox.HitTest(wx.Point(event.GetX(), event.GetY())))
1180
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   106
        event.Skip()
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   107
    
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   108
class TextCtrlAutoComplete(wx.TextCtrl):
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   109
1180
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   110
    def __init__ (self, parent, choices=None, dropDownClick=True,
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   111
                  element_path=None, **therest):
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   112
        """
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   113
        Constructor works just like wx.TextCtrl except you can pass in a
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   114
        list of choices.  You can also change the choice list at any time
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   115
        by calling setChoices.
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   116
        """
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   117
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   118
        therest['style'] = wx.TE_PROCESS_ENTER | therest.get('style', 0)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   119
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   120
        wx.TextCtrl.__init__(self, parent, **therest)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   121
        
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   122
        #Some variables
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   123
        self._dropDownClick = dropDownClick
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   124
        self._lastinsertionpoint = None
1180
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   125
        self._hasfocus = False
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   126
        
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   127
        self._screenheight = wx.SystemSettings.GetMetric(wx.SYS_SCREEN_Y)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   128
        self.element_path = element_path
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   129
        
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   130
        self.listbox = None
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   131
        
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   132
        self.SetChoices(choices)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   133
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   134
        #gp = self
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   135
        #while ( gp != None ) :
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   136
        #    gp.Bind ( wx.EVT_MOVE , self.onControlChanged, gp )
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   137
        #    gp.Bind ( wx.EVT_SIZE , self.onControlChanged, gp )
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   138
        #    gp = gp.GetParent()
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   139
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   140
        self.Bind(wx.EVT_KILL_FOCUS, self.OnControlChanged)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   141
        self.Bind(wx.EVT_TEXT_ENTER, self.OnControlChanged)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   142
        self.Bind(wx.EVT_TEXT, self.OnEnteredText)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   143
        self.Bind(wx.EVT_KEY_DOWN, self.OnKeyDown)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   144
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   145
        #If need drop down on left click
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   146
        if dropDownClick:
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   147
            self.Bind(wx.EVT_LEFT_DOWN, self.OnClickToggleDown)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   148
            self.Bind(wx.EVT_LEFT_UP, self.OnClickToggleUp)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   149
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   150
    def ChangeValue(self, value):
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   151
        wx.TextCtrl.ChangeValue(self, value)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   152
        self.RefreshListBoxChoices()
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   153
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   154
    def OnEnteredText(self, event):
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   155
        wx.CallAfter(self.RefreshListBoxChoices)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   156
        event.Skip()
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   157
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   158
    def OnKeyDown(self, event):
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   159
        """ Do some work when the user press on the keys:
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   160
            up and down: move the cursor
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   161
        """
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   162
        keycode = event.GetKeyCode()
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   163
        if keycode in [wx.WXK_DOWN, wx.WXK_UP]:
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   164
            self.PopupListBox()
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   165
            if keycode == wx.WXK_DOWN:
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   166
                self.listbox.MoveSelection(1)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   167
            else:
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   168
                self.listbox.MoveSelection(-1)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   169
        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
   170
            selected = self.listbox.GetSelection()
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   171
            if selected != "":
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   172
                self.SetValueFromSelected(selected)
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   173
            else:
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   174
                event.Skip()
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   175
        elif event.GetKeyCode() == wx.WXK_ESCAPE:
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   176
            self.DismissListBox()
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   177
        else:
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   178
            event.Skip()
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   179
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   180
    def OnClickToggleDown(self, event):
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   181
        self._lastinsertionpoint = self.GetInsertionPoint()
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   182
        event.Skip()
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   183
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   184
    def OnClickToggleUp(self, event):
1180
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   185
        if not self._hasfocus:
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   186
            self._hasfocus = True
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   187
        elif self.GetInsertionPoint() == self._lastinsertionpoint:
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   188
            wx.CallAfter(self.PopupListBox)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   189
        self._lastinsertionpoint = None
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   190
        event.Skip()
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   191
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   192
    def OnControlChanged(self, event):
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   193
        res = self.GetValue()
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   194
        config = wx.ConfigBase.Get()
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   195
        listentries = cPickle.loads(str(config.Read(self.element_path, cPickle.dumps([]))))
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   196
        if res and res not in listentries:
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   197
            listentries = (listentries + [res])[-MAX_ITEM_COUNT:]
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   198
            config.Write(self.element_path, cPickle.dumps(listentries))
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   199
            config.Flush()
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   200
            self.SetChoices(listentries)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   201
        self.DismissListBox()
1180
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   202
        self._hasfocus = False
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   203
        event.Skip()
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   204
    
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   205
    def SetChoices(self, choices):
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   206
        self._choices = choices
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   207
        self.RefreshListBoxChoices()
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   208
        
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   209
    def GetChoices(self):
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   210
        return self._choices
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   211
    
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   212
    def SetValueFromSelected(self, selected):
1180
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   213
        """
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   214
        Sets the wx.TextCtrl value from the selected wx.ListCtrl item.
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   215
        Will do nothing if no item is selected in the wx.ListCtrl.
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   216
        """
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   217
        if selected != "":
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   218
            self.SetValue(selected)
1180
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   219
        self.DismissListBox()
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   220
    
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   221
    def RefreshListBoxChoices(self):
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   222
        if self.listbox is not None:
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   223
            text = self.GetValue()
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   224
            choices = [choice for choice in self._choices if choice.startswith(text)]
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   225
            self.listbox.SetChoices(choices)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   226
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   227
    def PopupListBox(self):
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   228
        if self.listbox is None:
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   229
            self.listbox = PopupWithListbox(self)
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   230
            
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   231
            # Show the popup right below or above the button
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   232
            # depending on available screen space...
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   233
            pos = self.ClientToScreen((0, 0))
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   234
            sz = self.GetSize()
1180
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   235
            if wx.Platform == '__WXMSW__':
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   236
                pos.x -= 2
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   237
                pos.y -= 2
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   238
            self.listbox.Position(pos, (0, sz[1]))
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   239
            
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   240
            self.RefreshListBoxChoices()
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   241
            
1180
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   242
            self.listbox.Show()
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   243
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   244
    def DismissListBox(self):
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   245
        if self.listbox is not None:
1180
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   246
            if self.listbox.ListBox.HasCapture():
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   247
                self.listbox.ListBox.ReleaseMouse()
276a30c68eaa Fixed bugs with TextCtrlAutoComplete
Laurent Bessard
parents: 814
diff changeset
   248
            self.listbox.Destroy()
428
ea09f33ce717 Update internationalization for new functionalities.
laurent
parents: 426
diff changeset
   249
            self.listbox = None