controls/PouInstanceVariablesPanel.py
author Andrey Skvortsov <andrej.skvortzov@gmail.com>
Mon, 30 Jul 2018 19:02:36 +0300
changeset 2255 f6a0508fa473
parent 1948 b9a3f771aaab
child 2437 105c20fdeb19
permissions -rw-r--r--
Fix problem with decreasing size of StatusToolBar when tools are removed from toolbar.

StatusToolBar - toolbar with tool to build, clear, connect, ...
This problem appears only in python-wxgtk3.0. In python-wxgtk2.8 there
was not such problem.

If call StatusToolBar.SetMinSize(wx.DefaultSize), all is working, but
following warning message appears:

(Beremiz.py:15155): Gtk-WARNING **: 18:42:24.115: Negative content
width -6 (allocation 1, extents 4x3) while allocating gadget (node
toolbar, owner GtkToolbar)

To avoid that StatusToolBar.GetToolBitmapSize() is used instead of wx.DefaultSize
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
     1
#!/usr/bin/env python
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
     2
# -*- coding: utf-8 -*-
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
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.
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
     6
#
1571
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) 2012: Edouard TISSERANT and Laurent BESSARD
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
     8
#
1571
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.
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
    10
#
1571
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.
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
    15
#
1571
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.
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
    20
#
1571
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.
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
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: 1878
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: 1878
diff changeset
    26
from __future__ import absolute_import
1343
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
    27
from collections import namedtuple
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
    28
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
    29
import wx
1281
47131e3388f4 Various cleanup and optimization
Edouard Tisserant
parents: 1277
diff changeset
    30
import wx.lib.agw.customtreectrl as CT
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
    31
import wx.lib.buttons
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
    32
1948
b9a3f771aaab Moved some definitions away from controller class, and adaped references them through all code.
Edouard Tisserant
parents: 1881
diff changeset
    33
from plcopen.types_enums import *
1783
3311eea28d56 clean-up: fix PEP8 E402 module level import not at top of file
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1782
diff changeset
    34
3311eea28d56 clean-up: fix PEP8 E402 module level import not at top of file
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1782
diff changeset
    35
from util.BitmapLibrary import GetBitmap
3311eea28d56 clean-up: fix PEP8 E402 module level import not at top of file
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1782
diff changeset
    36
3311eea28d56 clean-up: fix PEP8 E402 module level import not at top of file
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1782
diff changeset
    37
1343
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
    38
# Customize CustomTreeItem for adding icon on item right
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
    39
CT.GenericTreeItem._rightimages = []
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
    40
1736
7e61baa047f0 clean-up: fix PEP8 E302 expected 2 blank lines, found 1
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1730
diff changeset
    41
1343
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
    42
def SetRightImages(self, images):
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
    43
    self._rightimages = images
1749
d73b64672238 clean-up: fix PEP8 E305 expected 2 blank lines after class or function definition
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1742
diff changeset
    44
d73b64672238 clean-up: fix PEP8 E305 expected 2 blank lines after class or function definition
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1742
diff changeset
    45
1343
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
    46
CT.GenericTreeItem.SetRightImages = SetRightImages
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
    47
1736
7e61baa047f0 clean-up: fix PEP8 E302 expected 2 blank lines, found 1
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1730
diff changeset
    48
1343
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
    49
def GetRightImages(self):
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
    50
    return self._rightimages
1749
d73b64672238 clean-up: fix PEP8 E305 expected 2 blank lines after class or function definition
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1742
diff changeset
    51
d73b64672238 clean-up: fix PEP8 E305 expected 2 blank lines after class or function definition
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1742
diff changeset
    52
1343
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
    53
CT.GenericTreeItem.GetRightImages = GetRightImages
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
    54
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
    55
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
    56
class CustomTreeCtrlWithRightImage(CT.CustomTreeCtrl):
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
    57
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
    58
    def SetRightImageList(self, imageList):
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
    59
        self._imageListRight = imageList
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
    60
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
    61
    def GetLineHeight(self, item):
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
    62
        height = CT.CustomTreeCtrl.GetLineHeight(self, item)
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
    63
        rightimages = item.GetRightImages()
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
    64
        if len(rightimages) > 0:
1847
6198190bc121 explicitly mark unused variables found by pylint with _ or dummy
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1846
diff changeset
    65
            _r_image_w, r_image_h = self._imageListRight.GetSize(rightimages[0])
1343
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
    66
            return max(height, r_image_h + 8)
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
    67
        return height
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
    68
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
    69
    def GetItemRightImagesBBox(self, item):
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
    70
        rightimages = item.GetRightImages()
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
    71
        if len(rightimages) > 0:
1847
6198190bc121 explicitly mark unused variables found by pylint with _ or dummy
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1846
diff changeset
    72
            w, _h = self.GetClientSize()
1343
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
    73
            total_h = self.GetLineHeight(item)
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
    74
            r_image_w, r_image_h = self._imageListRight.GetSize(rightimages[0])
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1669
diff changeset
    75
1343
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
    76
            bbox_width = (r_image_w + 4) * len(rightimages) + 4
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
    77
            bbox_height = r_image_h + 8
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
    78
            bbox_x = w - bbox_width
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
    79
            bbox_y = item.GetY() + ((total_h > r_image_h) and [(total_h-r_image_h)/2] or [0])[0]
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1669
diff changeset
    80
1343
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
    81
            return wx.Rect(bbox_x, bbox_y, bbox_width, bbox_height)
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1669
diff changeset
    82
1343
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
    83
        return None
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
    84
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
    85
    def IsOverItemRightImage(self, item, point):
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
    86
        rightimages = item.GetRightImages()
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
    87
        if len(rightimages) > 0:
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
    88
            point = self.CalcUnscrolledPosition(point)
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
    89
            r_image_w, r_image_h = self._imageListRight.GetSize(rightimages[0])
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
    90
            images_bbx = self.GetItemRightImagesBBox(item)
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1669
diff changeset
    91
1343
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
    92
            rect = wx.Rect(images_bbx.x + 4, images_bbx.y + 4,
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
    93
                           r_image_w, r_image_h)
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
    94
            for r_image in rightimages:
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
    95
                if rect.Inside(point):
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
    96
                    return r_image
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
    97
                rect.x += r_image_w + 4
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1669
diff changeset
    98
1343
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
    99
            return None
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1669
diff changeset
   100
1343
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   101
    def PaintItem(self, item, dc, level, align):
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   102
        CT.CustomTreeCtrl.PaintItem(self, item, dc, level, align)
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1669
diff changeset
   103
1343
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   104
        rightimages = item.GetRightImages()
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   105
        if len(rightimages) > 0:
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   106
            images_bbx = self.GetItemRightImagesBBox(item)
1847
6198190bc121 explicitly mark unused variables found by pylint with _ or dummy
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1846
diff changeset
   107
            r_image_w, _r_image_h = self._imageListRight.GetSize(rightimages[0])
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1669
diff changeset
   108
1636
ad3dee8b6d48 change white background for icons in PouInstanceVariablePanel to transparent
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1571
diff changeset
   109
            dc.SetBrush(wx.TRANSPARENT_BRUSH)
1343
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   110
            dc.SetPen(wx.TRANSPARENT_PEN)
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1669
diff changeset
   111
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1669
diff changeset
   112
            dc.DrawRectangle(images_bbx.x, images_bbx.y,
1343
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   113
                             images_bbx.width, images_bbx.height)
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   114
            x_pos = images_bbx.x + 4
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   115
            for r_image in rightimages:
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   116
                self._imageListRight.Draw(
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   117
                    r_image, dc, x_pos, images_bbx.y + 4,
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   118
                    wx.IMAGELIST_DRAW_TRANSPARENT)
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   119
                x_pos += r_image_w + 4
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1669
diff changeset
   120
1749
d73b64672238 clean-up: fix PEP8 E305 expected 2 blank lines after class or function definition
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1742
diff changeset
   121
1343
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   122
_ButtonCallbacks = namedtuple("ButtonCallbacks", ["leftdown", "dclick"])
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   123
1736
7e61baa047f0 clean-up: fix PEP8 E302 expected 2 blank lines, found 1
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1730
diff changeset
   124
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   125
class PouInstanceVariablesPanel(wx.Panel):
1362
077bcba2d485 Cleaner matplotlib import preventing noisy warnings
Edouard Tisserant
parents: 1348
diff changeset
   126
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   127
    def __init__(self, parent, window, controller, debug):
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1669
diff changeset
   128
        wx.Panel.__init__(self, name='PouInstanceTreePanel',
1768
691083b5682a clean-up: fix PEP8 E128 continuation line under-indented for visual indent
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1754
diff changeset
   129
                          parent=parent, pos=wx.Point(0, 0),
691083b5682a clean-up: fix PEP8 E128 continuation line under-indented for visual indent
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1754
diff changeset
   130
                          size=wx.Size(0, 0), style=wx.TAB_TRAVERSAL)
691083b5682a clean-up: fix PEP8 E128 continuation line under-indented for visual indent
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1754
diff changeset
   131
691083b5682a clean-up: fix PEP8 E128 continuation line under-indented for visual indent
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1754
diff changeset
   132
        self.ParentButton = wx.lib.buttons.GenBitmapButton(
691083b5682a clean-up: fix PEP8 E128 continuation line under-indented for visual indent
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1754
diff changeset
   133
            self, bitmap=GetBitmap("top"), size=wx.Size(28, 28), style=wx.NO_BORDER)
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   134
        self.ParentButton.SetToolTipString(_("Parent instance"))
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1669
diff changeset
   135
        self.Bind(wx.EVT_BUTTON, self.OnParentButtonClick,
1768
691083b5682a clean-up: fix PEP8 E128 continuation line under-indented for visual indent
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1754
diff changeset
   136
                  self.ParentButton)
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1669
diff changeset
   137
821
3667bb14aeca Fix bug debug instance button not visible in PouInstanceVariablesPanel when instance path is too long
laurent
parents: 814
diff changeset
   138
        self.InstanceChoice = wx.ComboBox(self, size=wx.Size(0, 0), style=wx.CB_READONLY)
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   139
        self.Bind(wx.EVT_COMBOBOX, self.OnInstanceChoiceChanged,
1768
691083b5682a clean-up: fix PEP8 E128 continuation line under-indented for visual indent
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1754
diff changeset
   140
                  self.InstanceChoice)
691083b5682a clean-up: fix PEP8 E128 continuation line under-indented for visual indent
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1754
diff changeset
   141
691083b5682a clean-up: fix PEP8 E128 continuation line under-indented for visual indent
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1754
diff changeset
   142
        self.DebugButton = wx.lib.buttons.GenBitmapButton(
691083b5682a clean-up: fix PEP8 E128 continuation line under-indented for visual indent
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1754
diff changeset
   143
            self, bitmap=GetBitmap("debug_instance"), size=wx.Size(28, 28), style=wx.NO_BORDER)
1082
5a08404d5dda Fixed bug in PouInstanceVariablesPanel buttons tooltips
Laurent Bessard
parents: 1031
diff changeset
   144
        self.DebugButton.SetToolTipString(_("Debug instance"))
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1669
diff changeset
   145
        self.Bind(wx.EVT_BUTTON, self.OnDebugButtonClick,
1768
691083b5682a clean-up: fix PEP8 E128 continuation line under-indented for visual indent
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1754
diff changeset
   146
                  self.DebugButton)
691083b5682a clean-up: fix PEP8 E128 continuation line under-indented for visual indent
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1754
diff changeset
   147
691083b5682a clean-up: fix PEP8 E128 continuation line under-indented for visual indent
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1754
diff changeset
   148
        self.VariablesList = CustomTreeCtrlWithRightImage(
691083b5682a clean-up: fix PEP8 E128 continuation line under-indented for visual indent
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1754
diff changeset
   149
            self,
691083b5682a clean-up: fix PEP8 E128 continuation line under-indented for visual indent
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1754
diff changeset
   150
            style=wx.SUNKEN_BORDER,
691083b5682a clean-up: fix PEP8 E128 continuation line under-indented for visual indent
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1754
diff changeset
   151
            agwStyle=(CT.TR_NO_BUTTONS |
691083b5682a clean-up: fix PEP8 E128 continuation line under-indented for visual indent
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1754
diff changeset
   152
                      CT.TR_SINGLE |
691083b5682a clean-up: fix PEP8 E128 continuation line under-indented for visual indent
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1754
diff changeset
   153
                      CT.TR_HAS_VARIABLE_ROW_HEIGHT |
691083b5682a clean-up: fix PEP8 E128 continuation line under-indented for visual indent
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1754
diff changeset
   154
                      CT.TR_HIDE_ROOT |
691083b5682a clean-up: fix PEP8 E128 continuation line under-indented for visual indent
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1754
diff changeset
   155
                      CT.TR_NO_LINES |
691083b5682a clean-up: fix PEP8 E128 continuation line under-indented for visual indent
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1754
diff changeset
   156
                      getattr(CT, "TR_ALIGN_WINDOWS_RIGHT", CT.TR_ALIGN_WINDOWS)))
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   157
        self.VariablesList.SetIndent(0)
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   158
        self.VariablesList.SetSpacing(5)
1740
b789b695b5c6 clean-up: fix PEP8 E231 missing whitespace after ':' or ','
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1736
diff changeset
   159
        self.VariablesList.DoSelectItem = lambda *x, **y: True
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   160
        self.VariablesList.Bind(CT.EVT_TREE_ITEM_ACTIVATED,
1768
691083b5682a clean-up: fix PEP8 E128 continuation line under-indented for visual indent
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1754
diff changeset
   161
                                self.OnVariablesListItemActivated)
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   162
        self.VariablesList.Bind(wx.EVT_LEFT_DOWN, self.OnVariablesListLeftDown)
1031
5743398071eb Fix bug when pressing left arrow key in PouInstanceVariablesPanel
Laurent Bessard
parents: 930
diff changeset
   163
        self.VariablesList.Bind(wx.EVT_KEY_DOWN, self.OnVariablesListKeyDown)
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1669
diff changeset
   164
1343
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   165
        self.TreeRightImageList = wx.ImageList(24, 24)
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   166
        self.EditImage = self.TreeRightImageList.Add(GetBitmap("edit"))
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   167
        self.DebugInstanceImage = self.TreeRightImageList.Add(GetBitmap("debug_instance"))
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   168
        self.VariablesList.SetRightImageList(self.TreeRightImageList)
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1669
diff changeset
   169
1343
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   170
        self.ButtonCallBacks = {
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   171
            self.EditImage: _ButtonCallbacks(
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   172
                self.EditButtonCallback, None),
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   173
            self.DebugInstanceImage: _ButtonCallbacks(
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   174
                self.DebugButtonCallback, self.DebugButtonDClickCallback)}
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1669
diff changeset
   175
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   176
        buttons_sizer = wx.FlexGridSizer(cols=3, hgap=0, rows=1, vgap=0)
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   177
        buttons_sizer.AddWindow(self.ParentButton)
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   178
        buttons_sizer.AddWindow(self.InstanceChoice, flag=wx.GROW)
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   179
        buttons_sizer.AddWindow(self.DebugButton)
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   180
        buttons_sizer.AddGrowableCol(1)
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   181
        buttons_sizer.AddGrowableRow(0)
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1669
diff changeset
   182
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   183
        main_sizer = wx.FlexGridSizer(cols=1, hgap=0, rows=2, vgap=0)
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   184
        main_sizer.AddSizer(buttons_sizer, flag=wx.GROW)
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   185
        main_sizer.AddWindow(self.VariablesList, flag=wx.GROW)
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   186
        main_sizer.AddGrowableCol(0)
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   187
        main_sizer.AddGrowableRow(1)
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1669
diff changeset
   188
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   189
        self.SetSizer(main_sizer)
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1669
diff changeset
   190
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   191
        self.ParentWindow = window
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   192
        self.Controller = controller
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   193
        self.Debug = debug
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   194
        if not self.Debug:
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   195
            self.DebugButton.Hide()
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1669
diff changeset
   196
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   197
        self.PouTagName = None
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   198
        self.PouInfos = None
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   199
        self.PouInstance = None
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1669
diff changeset
   200
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   201
    def __del__(self):
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   202
        self.Controller = None
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1669
diff changeset
   203
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   204
    def SetTreeImageList(self, tree_image_list):
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   205
        self.VariablesList.SetImageList(tree_image_list)
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1669
diff changeset
   206
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   207
    def SetController(self, controller):
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   208
        self.Controller = controller
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1669
diff changeset
   209
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   210
        self.RefreshView()
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1669
diff changeset
   211
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   212
    def SetPouType(self, tagname, pou_instance=None):
1222
775b48a2be3b Fixed flickering and lag when refreshing PouInstanceVariablesPanel
Laurent Bessard
parents: 1217
diff changeset
   213
        if self.Controller is not None:
1233
5e6d0969bb5d Fixed bugs in refresh of PouInstanceVariablesPanel
Laurent Bessard
parents: 1222
diff changeset
   214
            if tagname == "Project":
915
8dc28b21bdac Fix bug when closing project
Laurent Bessard
parents: 900
diff changeset
   215
                config_name = self.Controller.GetProjectMainConfigurationName()
8dc28b21bdac Fix bug when closing project
Laurent Bessard
parents: 900
diff changeset
   216
                if config_name is not None:
1948
b9a3f771aaab Moved some definitions away from controller class, and adaped references them through all code.
Edouard Tisserant
parents: 1881
diff changeset
   217
                    tagname = ComputeConfigurationName(config_name)
915
8dc28b21bdac Fix bug when closing project
Laurent Bessard
parents: 900
diff changeset
   218
            if pou_instance is not None:
8dc28b21bdac Fix bug when closing project
Laurent Bessard
parents: 900
diff changeset
   219
                self.PouInstance = pou_instance
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1669
diff changeset
   220
1233
5e6d0969bb5d Fixed bugs in refresh of PouInstanceVariablesPanel
Laurent Bessard
parents: 1222
diff changeset
   221
            if self.PouTagName != tagname:
5e6d0969bb5d Fixed bugs in refresh of PouInstanceVariablesPanel
Laurent Bessard
parents: 1222
diff changeset
   222
                self.PouTagName = tagname
5e6d0969bb5d Fixed bugs in refresh of PouInstanceVariablesPanel
Laurent Bessard
parents: 1222
diff changeset
   223
                self.RefreshView()
5e6d0969bb5d Fixed bugs in refresh of PouInstanceVariablesPanel
Laurent Bessard
parents: 1222
diff changeset
   224
            else:
5e6d0969bb5d Fixed bugs in refresh of PouInstanceVariablesPanel
Laurent Bessard
parents: 1222
diff changeset
   225
                self.RefreshInstanceChoice()
5e6d0969bb5d Fixed bugs in refresh of PouInstanceVariablesPanel
Laurent Bessard
parents: 1222
diff changeset
   226
        else:
5e6d0969bb5d Fixed bugs in refresh of PouInstanceVariablesPanel
Laurent Bessard
parents: 1222
diff changeset
   227
            self.RefreshView()
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1669
diff changeset
   228
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   229
    def ResetView(self):
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   230
        self.Controller = None
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1669
diff changeset
   231
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   232
        self.PouTagName = None
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   233
        self.PouInfos = None
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   234
        self.PouInstance = None
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1669
diff changeset
   235
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   236
        self.RefreshView()
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1669
diff changeset
   237
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   238
    def RefreshView(self):
1222
775b48a2be3b Fixed flickering and lag when refreshing PouInstanceVariablesPanel
Laurent Bessard
parents: 1217
diff changeset
   239
        self.Freeze()
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   240
        self.VariablesList.DeleteAllItems()
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1669
diff changeset
   241
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   242
        if self.Controller is not None and self.PouTagName is not None:
1669
54da2cfe0180 fix debug button and variable tree generate for actions and transitions in POU instance variable panel
Surkov Sergey <surkovsv93@gmail.com>
parents: 1636
diff changeset
   243
            if self.PouTagName.split('::')[0] in ['A', 'T']:
54da2cfe0180 fix debug button and variable tree generate for actions and transitions in POU instance variable panel
Surkov Sergey <surkovsv93@gmail.com>
parents: 1636
diff changeset
   244
                self.PouInfos = self.Controller.GetPouVariables('P::%s' % self.PouTagName.split('::')[1], self.Debug)
54da2cfe0180 fix debug button and variable tree generate for actions and transitions in POU instance variable panel
Surkov Sergey <surkovsv93@gmail.com>
parents: 1636
diff changeset
   245
            else:
54da2cfe0180 fix debug button and variable tree generate for actions and transitions in POU instance variable panel
Surkov Sergey <surkovsv93@gmail.com>
parents: 1636
diff changeset
   246
                self.PouInfos = self.Controller.GetPouVariables(self.PouTagName, self.Debug)
54da2cfe0180 fix debug button and variable tree generate for actions and transitions in POU instance variable panel
Surkov Sergey <surkovsv93@gmail.com>
parents: 1636
diff changeset
   247
            if None in self.Controller.GetEditedElementType(self.PouTagName, self.Debug) and self.PouInfos is not None:
54da2cfe0180 fix debug button and variable tree generate for actions and transitions in POU instance variable panel
Surkov Sergey <surkovsv93@gmail.com>
parents: 1636
diff changeset
   248
                self.PouInfos.debug = False
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   249
        else:
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   250
            self.PouInfos = None
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   251
        if self.PouInfos is not None:
1669
54da2cfe0180 fix debug button and variable tree generate for actions and transitions in POU instance variable panel
Surkov Sergey <surkovsv93@gmail.com>
parents: 1636
diff changeset
   252
            root = self.VariablesList.AddRoot("", data=self.PouInfos)
1348
aee0a7eb833a Fixed pou variables instance information loading stylesheet
Laurent Bessard
parents: 1343
diff changeset
   253
            for var_infos in self.PouInfos.variables:
aee0a7eb833a Fixed pou variables instance information loading stylesheet
Laurent Bessard
parents: 1343
diff changeset
   254
                if var_infos.type is not None:
aee0a7eb833a Fixed pou variables instance information loading stylesheet
Laurent Bessard
parents: 1343
diff changeset
   255
                    text = "%s (%s)" % (var_infos.name, var_infos.type)
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   256
                else:
1348
aee0a7eb833a Fixed pou variables instance information loading stylesheet
Laurent Bessard
parents: 1343
diff changeset
   257
                    text = var_infos.name
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1669
diff changeset
   258
1343
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   259
                right_images = []
1364
e9e17d3b2849 Remove old debug panels and viewers not using matplotlib
Laurent Bessard
parents: 1362
diff changeset
   260
                if var_infos.edit:
1343
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   261
                    right_images.append(self.EditImage)
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1669
diff changeset
   262
1348
aee0a7eb833a Fixed pou variables instance information loading stylesheet
Laurent Bessard
parents: 1343
diff changeset
   263
                if var_infos.debug and self.Debug:
1343
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   264
                    right_images.append(self.DebugInstanceImage)
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1669
diff changeset
   265
1343
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   266
                item = self.VariablesList.AppendItem(root, text)
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   267
                item.SetRightImages(right_images)
1348
aee0a7eb833a Fixed pou variables instance information loading stylesheet
Laurent Bessard
parents: 1343
diff changeset
   268
                self.VariablesList.SetItemImage(item, self.ParentWindow.GetTreeImage(var_infos.var_class))
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   269
                self.VariablesList.SetPyData(item, var_infos)
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1669
diff changeset
   270
1238
24577755485d Fixed bug with InstanceChoice values in PouInstanceVariablesPanel
Laurent Bessard
parents: 1233
diff changeset
   271
        self.RefreshInstanceChoice()
1233
5e6d0969bb5d Fixed bugs in refresh of PouInstanceVariablesPanel
Laurent Bessard
parents: 1222
diff changeset
   272
        self.RefreshButtons()
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1669
diff changeset
   273
1233
5e6d0969bb5d Fixed bugs in refresh of PouInstanceVariablesPanel
Laurent Bessard
parents: 1222
diff changeset
   274
        self.Thaw()
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1669
diff changeset
   275
1233
5e6d0969bb5d Fixed bugs in refresh of PouInstanceVariablesPanel
Laurent Bessard
parents: 1222
diff changeset
   276
    def RefreshInstanceChoice(self):
1238
24577755485d Fixed bug with InstanceChoice values in PouInstanceVariablesPanel
Laurent Bessard
parents: 1233
diff changeset
   277
        self.InstanceChoice.Clear()
24577755485d Fixed bug with InstanceChoice values in PouInstanceVariablesPanel
Laurent Bessard
parents: 1233
diff changeset
   278
        self.InstanceChoice.SetValue("")
1233
5e6d0969bb5d Fixed bugs in refresh of PouInstanceVariablesPanel
Laurent Bessard
parents: 1222
diff changeset
   279
        if self.Controller is not None and self.PouInfos is not None:
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   280
            instances = self.Controller.SearchPouInstances(self.PouTagName, self.Debug)
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   281
            for instance in instances:
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   282
                self.InstanceChoice.Append(instance)
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   283
            if len(instances) == 1:
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   284
                self.PouInstance = instances[0]
1348
aee0a7eb833a Fixed pou variables instance information loading stylesheet
Laurent Bessard
parents: 1343
diff changeset
   285
            if self.PouInfos.var_class in [ITEM_CONFIGURATION, ITEM_RESOURCE]:
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   286
                self.PouInstance = None
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   287
                self.InstanceChoice.SetSelection(0)
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   288
            elif self.PouInstance in instances:
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   289
                self.InstanceChoice.SetStringSelection(self.PouInstance)
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   290
            else:
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   291
                self.PouInstance = None
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   292
                self.InstanceChoice.SetValue(_("Select an instance"))
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1669
diff changeset
   293
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   294
    def RefreshButtons(self):
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   295
        enabled = self.InstanceChoice.GetSelection() != -1
1348
aee0a7eb833a Fixed pou variables instance information loading stylesheet
Laurent Bessard
parents: 1343
diff changeset
   296
        self.ParentButton.Enable(enabled and self.PouInfos.var_class != ITEM_CONFIGURATION)
aee0a7eb833a Fixed pou variables instance information loading stylesheet
Laurent Bessard
parents: 1343
diff changeset
   297
        self.DebugButton.Enable(enabled and self.PouInfos.debug and self.Debug)
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1669
diff changeset
   298
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   299
        root = self.VariablesList.GetRootItem()
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   300
        if root is not None and root.IsOk():
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   301
            item, item_cookie = self.VariablesList.GetFirstChild(root)
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   302
            while item is not None and item.IsOk():
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   303
                panel = self.VariablesList.GetItemWindow(item)
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   304
                if panel is not None:
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   305
                    for child in panel.GetChildren():
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   306
                        if child.GetName() != "edit":
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   307
                            child.Enable(enabled)
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   308
                item, item_cookie = self.VariablesList.GetNextChild(root, item_cookie)
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1669
diff changeset
   309
1343
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   310
    def EditButtonCallback(self, infos):
1348
aee0a7eb833a Fixed pou variables instance information loading stylesheet
Laurent Bessard
parents: 1343
diff changeset
   311
        var_class = infos.var_class
1343
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   312
        if var_class == ITEM_RESOURCE:
1948
b9a3f771aaab Moved some definitions away from controller class, and adaped references them through all code.
Edouard Tisserant
parents: 1881
diff changeset
   313
            tagname = ComputeConfigurationResourceName(
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1669
diff changeset
   314
                self.InstanceChoice.GetStringSelection(),
1348
aee0a7eb833a Fixed pou variables instance information loading stylesheet
Laurent Bessard
parents: 1343
diff changeset
   315
                infos.name)
1343
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   316
        elif var_class == ITEM_TRANSITION:
1948
b9a3f771aaab Moved some definitions away from controller class, and adaped references them through all code.
Edouard Tisserant
parents: 1881
diff changeset
   317
            tagname = ComputePouTransitionName(
1343
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   318
                self.PouTagName.split("::")[1],
1348
aee0a7eb833a Fixed pou variables instance information loading stylesheet
Laurent Bessard
parents: 1343
diff changeset
   319
                infos.name)
1343
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   320
        elif var_class == ITEM_ACTION:
1948
b9a3f771aaab Moved some definitions away from controller class, and adaped references them through all code.
Edouard Tisserant
parents: 1881
diff changeset
   321
            tagname = ComputePouActionName(
1343
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   322
                self.PouTagName.split("::")[1],
1348
aee0a7eb833a Fixed pou variables instance information loading stylesheet
Laurent Bessard
parents: 1343
diff changeset
   323
                infos.name)
1343
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   324
        else:
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   325
            var_class = ITEM_POU
1948
b9a3f771aaab Moved some definitions away from controller class, and adaped references them through all code.
Edouard Tisserant
parents: 1881
diff changeset
   326
            tagname = ComputePouName(infos.type)
1343
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   327
        self.ParentWindow.EditProjectElement(var_class, tagname)
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1669
diff changeset
   328
1343
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   329
    def DebugButtonCallback(self, infos):
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   330
        if self.InstanceChoice.GetSelection() != -1:
1348
aee0a7eb833a Fixed pou variables instance information loading stylesheet
Laurent Bessard
parents: 1343
diff changeset
   331
            var_class = infos.var_class
1669
54da2cfe0180 fix debug button and variable tree generate for actions and transitions in POU instance variable panel
Surkov Sergey <surkovsv93@gmail.com>
parents: 1636
diff changeset
   332
            instance_path = self.InstanceChoice.GetStringSelection()
54da2cfe0180 fix debug button and variable tree generate for actions and transitions in POU instance variable panel
Surkov Sergey <surkovsv93@gmail.com>
parents: 1636
diff changeset
   333
            if self.PouTagName.split("::")[0] in ["A", "T"]:
54da2cfe0180 fix debug button and variable tree generate for actions and transitions in POU instance variable panel
Surkov Sergey <surkovsv93@gmail.com>
parents: 1636
diff changeset
   334
                pos = instance_path.rfind('.')
54da2cfe0180 fix debug button and variable tree generate for actions and transitions in POU instance variable panel
Surkov Sergey <surkovsv93@gmail.com>
parents: 1636
diff changeset
   335
                instance_path = instance_path[0:pos]
54da2cfe0180 fix debug button and variable tree generate for actions and transitions in POU instance variable panel
Surkov Sergey <surkovsv93@gmail.com>
parents: 1636
diff changeset
   336
            var_path = "%s.%s" % (instance_path, infos.name)
1343
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   337
            if var_class in ITEMS_VARIABLE:
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   338
                self.ParentWindow.AddDebugVariable(var_path, force=True)
826
098f822ef308 Adding transition and action in list of instances of SFC POU in PouInstanceVariablesPanel
laurent
parents: 821
diff changeset
   339
            elif var_class == ITEM_TRANSITION:
1343
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   340
                self.ParentWindow.OpenDebugViewer(
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   341
                    var_class,
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   342
                    var_path,
1948
b9a3f771aaab Moved some definitions away from controller class, and adaped references them through all code.
Edouard Tisserant
parents: 1881
diff changeset
   343
                    ComputePouTransitionName(
1343
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   344
                        self.PouTagName.split("::")[1],
1348
aee0a7eb833a Fixed pou variables instance information loading stylesheet
Laurent Bessard
parents: 1343
diff changeset
   345
                        infos.name))
826
098f822ef308 Adding transition and action in list of instances of SFC POU in PouInstanceVariablesPanel
laurent
parents: 821
diff changeset
   346
            elif var_class == ITEM_ACTION:
1343
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   347
                self.ParentWindow.OpenDebugViewer(
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   348
                    var_class,
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   349
                    var_path,
1948
b9a3f771aaab Moved some definitions away from controller class, and adaped references them through all code.
Edouard Tisserant
parents: 1881
diff changeset
   350
                    ComputePouActionName(
1343
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   351
                        self.PouTagName.split("::")[1],
1348
aee0a7eb833a Fixed pou variables instance information loading stylesheet
Laurent Bessard
parents: 1343
diff changeset
   352
                        infos.name))
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   353
            else:
1343
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   354
                self.ParentWindow.OpenDebugViewer(
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   355
                    var_class,
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   356
                    var_path,
1948
b9a3f771aaab Moved some definitions away from controller class, and adaped references them through all code.
Edouard Tisserant
parents: 1881
diff changeset
   357
                    ComputePouName(infos.type))
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1669
diff changeset
   358
1343
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   359
    def DebugButtonDClickCallback(self, infos):
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   360
        if self.InstanceChoice.GetSelection() != -1:
1348
aee0a7eb833a Fixed pou variables instance information loading stylesheet
Laurent Bessard
parents: 1343
diff changeset
   361
            if infos.var_class in ITEMS_VARIABLE:
1343
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   362
                self.ParentWindow.AddDebugVariable(
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1669
diff changeset
   363
                    "%s.%s" % (self.InstanceChoice.GetStringSelection(),
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1669
diff changeset
   364
                               infos.name),
1343
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   365
                    force=True,
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   366
                    graph=True)
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1669
diff changeset
   367
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   368
    def ShowInstanceChoicePopup(self):
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   369
        self.InstanceChoice.SetFocusFromKbd()
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   370
        size = self.InstanceChoice.GetSize()
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   371
        event = wx.MouseEvent(wx.EVT_LEFT_DOWN._getEvtType())
1498
b11045a2f17c fix deprecation warnings about accessing properties m_x, m_y of wxKeyEvent
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1369
diff changeset
   372
        event.x = size.width / 2
b11045a2f17c fix deprecation warnings about accessing properties m_x, m_y of wxKeyEvent
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1369
diff changeset
   373
        event.y = size.height / 2
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   374
        event.SetEventObject(self.InstanceChoice)
1782
5b6ad7a7fd9d clean-up: fix PEP8 E265 block comment should start with '# '
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1768
diff changeset
   375
        # event = wx.KeyEvent(wx.EVT_KEY_DOWN._getEvtType())
5b6ad7a7fd9d clean-up: fix PEP8 E265 block comment should start with '# '
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1768
diff changeset
   376
        # event.m_keyCode = wx.WXK_SPACE
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   377
        self.InstanceChoice.GetEventHandler().ProcessEvent(event)
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1669
diff changeset
   378
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   379
    def OnParentButtonClick(self, event):
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   380
        if self.InstanceChoice.GetSelection() != -1:
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   381
            parent_path = self.InstanceChoice.GetStringSelection().rsplit(".", 1)[0]
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   382
            tagname = self.Controller.GetPouInstanceTagName(parent_path, self.Debug)
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   383
            if tagname is not None:
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   384
                wx.CallAfter(self.SetPouType, tagname, parent_path)
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   385
                wx.CallAfter(self.ParentWindow.SelectProjectTreeItem, tagname)
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   386
        event.Skip()
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1669
diff changeset
   387
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   388
    def OnInstanceChoiceChanged(self, event):
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   389
        self.RefreshButtons()
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   390
        event.Skip()
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1669
diff changeset
   391
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   392
    def OnDebugButtonClick(self, event):
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   393
        if self.InstanceChoice.GetSelection() != -1:
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   394
            self.ParentWindow.OpenDebugViewer(
1348
aee0a7eb833a Fixed pou variables instance information loading stylesheet
Laurent Bessard
parents: 1343
diff changeset
   395
                self.PouInfos.var_class,
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   396
                self.InstanceChoice.GetStringSelection(),
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   397
                self.PouTagName)
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   398
        event.Skip()
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1669
diff changeset
   399
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   400
    def OnVariablesListItemActivated(self, event):
1189
93a4431a0cd8 Fixed bug in PouInstanceVariablesPanel, exploring child FunctionBlock variables if no instance selected
Laurent Bessard
parents: 1107
diff changeset
   401
        selected_item = event.GetItem()
93a4431a0cd8 Fixed bug in PouInstanceVariablesPanel, exploring child FunctionBlock variables if no instance selected
Laurent Bessard
parents: 1107
diff changeset
   402
        if selected_item is not None and selected_item.IsOk():
93a4431a0cd8 Fixed bug in PouInstanceVariablesPanel, exploring child FunctionBlock variables if no instance selected
Laurent Bessard
parents: 1107
diff changeset
   403
            item_infos = self.VariablesList.GetPyData(selected_item)
1343
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   404
            if item_infos is not None:
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1669
diff changeset
   405
1343
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   406
                item_button = self.VariablesList.IsOverItemRightImage(
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   407
                    selected_item, event.GetPoint())
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   408
                if item_button is not None:
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   409
                    callback = self.ButtonCallBacks[item_button].dclick
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   410
                    if callback is not None:
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   411
                        callback(item_infos)
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1669
diff changeset
   412
1348
aee0a7eb833a Fixed pou variables instance information loading stylesheet
Laurent Bessard
parents: 1343
diff changeset
   413
                elif item_infos.var_class not in ITEMS_VARIABLE:
1343
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   414
                    instance_path = self.InstanceChoice.GetStringSelection()
1348
aee0a7eb833a Fixed pou variables instance information loading stylesheet
Laurent Bessard
parents: 1343
diff changeset
   415
                    if item_infos.var_class == ITEM_RESOURCE:
1343
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   416
                        if instance_path != "":
1948
b9a3f771aaab Moved some definitions away from controller class, and adaped references them through all code.
Edouard Tisserant
parents: 1881
diff changeset
   417
                            tagname = ComputeConfigurationResourceName(
1878
fb73a6b6622d fix pylint warning '(bad-continuation) Wrong hanging indentation before block'
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1847
diff changeset
   418
                                instance_path,
fb73a6b6622d fix pylint warning '(bad-continuation) Wrong hanging indentation before block'
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1847
diff changeset
   419
                                item_infos.name)
1343
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   420
                        else:
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   421
                            tagname = None
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   422
                    else:
1669
54da2cfe0180 fix debug button and variable tree generate for actions and transitions in POU instance variable panel
Surkov Sergey <surkovsv93@gmail.com>
parents: 1636
diff changeset
   423
                        parent_infos = self.VariablesList.GetPyData(selected_item.GetParent())
54da2cfe0180 fix debug button and variable tree generate for actions and transitions in POU instance variable panel
Surkov Sergey <surkovsv93@gmail.com>
parents: 1636
diff changeset
   424
                        if item_infos.var_class == ITEM_ACTION:
1948
b9a3f771aaab Moved some definitions away from controller class, and adaped references them through all code.
Edouard Tisserant
parents: 1881
diff changeset
   425
                            tagname = ComputePouActionName(parent_infos.type, item_infos.name)
1669
54da2cfe0180 fix debug button and variable tree generate for actions and transitions in POU instance variable panel
Surkov Sergey <surkovsv93@gmail.com>
parents: 1636
diff changeset
   426
                        elif item_infos.var_class == ITEM_TRANSITION:
1948
b9a3f771aaab Moved some definitions away from controller class, and adaped references them through all code.
Edouard Tisserant
parents: 1881
diff changeset
   427
                            tagname = ComputePouTransitionName(parent_infos.type, item_infos.name)
1669
54da2cfe0180 fix debug button and variable tree generate for actions and transitions in POU instance variable panel
Surkov Sergey <surkovsv93@gmail.com>
parents: 1636
diff changeset
   428
                        else:
1948
b9a3f771aaab Moved some definitions away from controller class, and adaped references them through all code.
Edouard Tisserant
parents: 1881
diff changeset
   429
                            tagname = ComputePouName(item_infos.type)
1343
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   430
                    if tagname is not None:
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   431
                        if instance_path != "":
1348
aee0a7eb833a Fixed pou variables instance information loading stylesheet
Laurent Bessard
parents: 1343
diff changeset
   432
                            item_path = "%s.%s" % (instance_path, item_infos.name)
1343
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   433
                        else:
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   434
                            item_path = None
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   435
                        self.SetPouType(tagname, item_path)
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   436
                        self.ParentWindow.SelectProjectTreeItem(tagname)
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   437
        event.Skip()
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1669
diff changeset
   438
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   439
    def OnVariablesListLeftDown(self, event):
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   440
        if self.InstanceChoice.GetSelection() == -1:
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   441
            wx.CallAfter(self.ShowInstanceChoicePopup)
898
6b2958f04f30 Adding drag'n drop of debug variable from DebugVariable grid and PouInstance variable list
Laurent Bessard
parents: 885
diff changeset
   442
        else:
6b2958f04f30 Adding drag'n drop of debug variable from DebugVariable grid and PouInstance variable list
Laurent Bessard
parents: 885
diff changeset
   443
            instance_path = self.InstanceChoice.GetStringSelection()
6b2958f04f30 Adding drag'n drop of debug variable from DebugVariable grid and PouInstance variable list
Laurent Bessard
parents: 885
diff changeset
   444
            item, flags = self.VariablesList.HitTest(event.GetPosition())
1343
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   445
            if item is not None:
898
6b2958f04f30 Adding drag'n drop of debug variable from DebugVariable grid and PouInstance variable list
Laurent Bessard
parents: 885
diff changeset
   446
                item_infos = self.VariablesList.GetPyData(item)
1343
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   447
                if item_infos is not None:
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1669
diff changeset
   448
1343
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   449
                    item_button = self.VariablesList.IsOverItemRightImage(
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   450
                        item, event.GetPosition())
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   451
                    if item_button is not None:
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   452
                        callback = self.ButtonCallBacks[item_button].leftdown
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   453
                        if callback is not None:
a76a020b8822 Fixed PouInstanceVariablesPanel, replacing wx controls, too long to create and destroy, by bitmaps directly drawn in panel
Laurent Bessard
parents: 1281
diff changeset
   454
                            callback(item_infos)
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1669
diff changeset
   455
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1669
diff changeset
   456
                    elif (flags & CT.TREE_HITTEST_ONITEMLABEL and
1369
9bd4c783c98d Fixed bug Drag'n drop variables from left panel to debug panel disabled
Laurent Bessard
parents: 1364
diff changeset
   457
                          item_infos.var_class in ITEMS_VARIABLE):
9bd4c783c98d Fixed bug Drag'n drop variables from left panel to debug panel disabled
Laurent Bessard
parents: 1364
diff changeset
   458
                        self.ParentWindow.EnsureTabVisible(
9bd4c783c98d Fixed bug Drag'n drop variables from left panel to debug panel disabled
Laurent Bessard
parents: 1364
diff changeset
   459
                            self.ParentWindow.DebugVariablePanel)
9bd4c783c98d Fixed bug Drag'n drop variables from left panel to debug panel disabled
Laurent Bessard
parents: 1364
diff changeset
   460
                        item_path = "%s.%s" % (instance_path, item_infos.name)
9bd4c783c98d Fixed bug Drag'n drop variables from left panel to debug panel disabled
Laurent Bessard
parents: 1364
diff changeset
   461
                        data = wx.TextDataObject(str((item_path, "debug")))
9bd4c783c98d Fixed bug Drag'n drop variables from left panel to debug panel disabled
Laurent Bessard
parents: 1364
diff changeset
   462
                        dragSource = wx.DropSource(self.VariablesList)
9bd4c783c98d Fixed bug Drag'n drop variables from left panel to debug panel disabled
Laurent Bessard
parents: 1364
diff changeset
   463
                        dragSource.SetData(data)
9bd4c783c98d Fixed bug Drag'n drop variables from left panel to debug panel disabled
Laurent Bessard
parents: 1364
diff changeset
   464
                        dragSource.DoDragDrop()
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   465
        event.Skip()
1031
5743398071eb Fix bug when pressing left arrow key in PouInstanceVariablesPanel
Laurent Bessard
parents: 930
diff changeset
   466
5743398071eb Fix bug when pressing left arrow key in PouInstanceVariablesPanel
Laurent Bessard
parents: 930
diff changeset
   467
    def OnVariablesListKeyDown(self, event):
5743398071eb Fix bug when pressing left arrow key in PouInstanceVariablesPanel
Laurent Bessard
parents: 930
diff changeset
   468
        keycode = event.GetKeyCode()
5743398071eb Fix bug when pressing left arrow key in PouInstanceVariablesPanel
Laurent Bessard
parents: 930
diff changeset
   469
        if keycode != wx.WXK_LEFT:
5743398071eb Fix bug when pressing left arrow key in PouInstanceVariablesPanel
Laurent Bessard
parents: 930
diff changeset
   470
            event.Skip()