luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[GB.FORM]

Browse Source 
* BUG: TabPanel: Fix a temporary debugging feature that sometimes could 
  lead to a crash.


git-svn-id: svn://localhost/gambas/trunk@7132 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Benoît Minisini 2015-06-14 15:45:53 +00:00
parent 0838c2a193
commit ebc02e7a2d
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
comp/src/gb.form/.src/TabPanel/_TabPanelButton.class
View File

@ -366,11 +366,13 @@ Public Sub DrawingArea_MouseMove()
Dim bInClose As Boolean Dim bInClose As Boolean
Dim X As Integer Dim X As Integer
Dim bShowClose As Boolean Dim bShowClose As Boolean
Dim bShift As Boolean
If $bDrag Then TimerDrag_Timer If $bDrag Then TimerDrag_Timer
X = Mouse.ScreenX - Me.ScreenX X = Mouse.ScreenX - Me.ScreenX
If Mouse.Shift And If Mouse.Control Then Debug X Try bShift = Mouse.Shift And Mouse.Control
If Not Error And If bShift Then Debug X
If X >= 0 And If X < Me.W Then If X >= 0 And If X < Me.W Then
bShowClose = IsClosable() bShowClose = IsClosable()