mirror of
https://git.freebsd.org/ports.git
synced 2025-07-17 09:19:15 -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
|
PORTNAME= lazarus
|
||||||
DISTVERSION= 3.3.1.20240503
|
DISTVERSION= 3.3.1.20240503
|
||||||
PKGNAMESUFFIX?= -gtk2-devel
|
PKGNAMESUFFIX?= -gtk2-devel
|
||||||
PORTREVISION?= 0
|
PORTREVISION?= 1
|
||||||
CATEGORIES= editors devel
|
CATEGORIES= editors devel
|
||||||
DIST_SUBDIR= freepascal
|
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
|
PKGNAMESUFFIX?= -qt5
|
||||||
|
|
||||||
|
|
|
@ -1,4 +1,4 @@
|
||||||
PORTREVISION= 1
|
PORTREVISION= 2
|
||||||
|
|
||||||
PKGNAMESUFFIX?= -qt6
|
PKGNAMESUFFIX?= -qt6
|
||||||
|
|
||||||
|
|
|
@ -1,7 +1,7 @@
|
||||||
PORTNAME= lazarus
|
PORTNAME= lazarus
|
||||||
DISTVERSION= 3.2.0
|
DISTVERSION= 3.2.0
|
||||||
PKGNAMESUFFIX?= -gtk2
|
PKGNAMESUFFIX?= -gtk2
|
||||||
PORTREVISION?= 0
|
PORTREVISION?= 1
|
||||||
CATEGORIES= editors devel
|
CATEGORIES= editors devel
|
||||||
DIST_SUBDIR= freepascal
|
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