mirror of
https://git.freebsd.org/ports.git
synced 2025-05-31 10:26:28 -04:00
editors/lazarus-*: Fix issues with Qt5/Qt6
- Bump PORTREVISION Obtained from: https://gitlab.com/freepascal.org/lazarus/lazarus/-/issues/40246
This commit is contained in:
parent
e3d3a9cd2e
commit
2ccd6b5da7
8 changed files with 51 additions and 4 deletions
|
@ -1,7 +1,7 @@
|
|||
PORTNAME= lazarus
|
||||
DISTVERSION= 3.3.1.20240503
|
||||
PKGNAMESUFFIX?= -gtk2-devel
|
||||
PORTREVISION?= 0
|
||||
PORTREVISION?= 1
|
||||
CATEGORIES= editors devel
|
||||
DIST_SUBDIR= freepascal
|
||||
|
||||
|
|
|
@ -0,0 +1,11 @@
|
|||
--- lcl/interfaces/qt5/qtwidgets.pas.orig 2024-05-04 05:19:24 UTC
|
||||
+++ lcl/interfaces/qt5/qtwidgets.pas
|
||||
@@ -10213,7 +10213,7 @@ end;
|
||||
|
||||
procedure TQtTextEdit.setReadOnly(const AReadOnly: Boolean);
|
||||
begin
|
||||
- {$IFDEF DARWIN} // issue #40246
|
||||
+ {$IF DEFINED(DARWIN) OR DEFINED(FREEBSD)} // issue #40246
|
||||
if AReadOnly <> QTextEdit_isReadOnly(QTextEditH(Widget)) then
|
||||
{$ENDIF}
|
||||
QTextEdit_setReadOnly(QTextEditH(Widget), AReadOnly);
|
|
@ -0,0 +1,11 @@
|
|||
--- lcl/interfaces/qt6/qtwidgets.pas.orig 2024-05-04 04:27:27 UTC
|
||||
+++ lcl/interfaces/qt6/qtwidgets.pas
|
||||
@@ -10245,7 +10245,7 @@ end;
|
||||
|
||||
procedure TQtTextEdit.setReadOnly(const AReadOnly: Boolean);
|
||||
begin
|
||||
- {$IFDEF DARWIN} // issue #40246
|
||||
+ {$IF DEFINED(DARWIN) OR DEFINED(FREEBSD)} // issue #40246
|
||||
if AReadOnly <> QTextEdit_isReadOnly(QTextEditH(Widget)) then
|
||||
{$ENDIF}
|
||||
QTextEdit_setReadOnly(QTextEditH(Widget), AReadOnly);
|
|
@ -1,4 +1,4 @@
|
|||
PORTREVISION= 0
|
||||
PORTREVISION= 1
|
||||
|
||||
PKGNAMESUFFIX?= -qt5
|
||||
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
PORTREVISION= 1
|
||||
PORTREVISION= 2
|
||||
|
||||
PKGNAMESUFFIX?= -qt6
|
||||
|
||||
|
|
|
@ -1,7 +1,7 @@
|
|||
PORTNAME= lazarus
|
||||
DISTVERSION= 3.2.0
|
||||
PKGNAMESUFFIX?= -gtk2
|
||||
PORTREVISION?= 0
|
||||
PORTREVISION?= 1
|
||||
CATEGORIES= editors devel
|
||||
DIST_SUBDIR= freepascal
|
||||
|
||||
|
|
11
editors/lazarus/files/patch-lcl_interfaces_qt5_qtwidgets.pas
Normal file
11
editors/lazarus/files/patch-lcl_interfaces_qt5_qtwidgets.pas
Normal file
|
@ -0,0 +1,11 @@
|
|||
--- lcl/interfaces/qt5/qtwidgets.pas.orig 2024-05-04 04:39:55 UTC
|
||||
+++ lcl/interfaces/qt5/qtwidgets.pas
|
||||
@@ -10213,7 +10213,7 @@ begin
|
||||
|
||||
procedure TQtTextEdit.setReadOnly(const AReadOnly: Boolean);
|
||||
begin
|
||||
- {$IFDEF DARWIN} // issue #40246
|
||||
+ {$IF DEFINED(DARWIN) OR DEFINED(FREEBSD)} // issue #40246
|
||||
if AReadOnly <> QTextEdit_isReadOnly(QTextEditH(Widget)) then
|
||||
{$ENDIF}
|
||||
QTextEdit_setReadOnly(QTextEditH(Widget), AReadOnly);
|
14
editors/lazarus/files/patch-lcl_interfaces_qt6_qtwidgets.pas
Normal file
14
editors/lazarus/files/patch-lcl_interfaces_qt6_qtwidgets.pas
Normal file
|
@ -0,0 +1,14 @@
|
|||
--- lcl/interfaces/qt6/qtwidgets.pas.orig 2024-05-04 05:06:13 UTC
|
||||
+++ lcl/interfaces/qt6/qtwidgets.pas
|
||||
@@ -10243,7 +10243,10 @@ begin
|
||||
|
||||
procedure TQtTextEdit.setReadOnly(const AReadOnly: Boolean);
|
||||
begin
|
||||
- QTextEdit_setReadOnly(QTextEditH(Widget), AReadOnly);
|
||||
+ {$IF DEFINED(DARWIN) OR DEFINED(FREEBSD)} // issue #40246
|
||||
+ if AReadOnly <> QTextEdit_isReadOnly(QTextEditH(Widget)) then
|
||||
+ {$ENDIF}
|
||||
+ QTextEdit_setReadOnly(QTextEditH(Widget), AReadOnly);
|
||||
end;
|
||||
|
||||
procedure TQtTextEdit.setSelection(const AStart, ALength: Integer);
|
Loading…
Add table
Reference in a new issue