paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 23:49:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

minor changes for gtk2

Browse Source 
git-svn-id: trunk@4673 -
This commit is contained in:
ajgenius 2003-09-25 20:44:42 +00:00
parent 56f938ec86
commit 2c6c7504ac
2 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/gtk/gtkobject.inc
View File

@ -1240,10 +1240,7 @@ var
end;
if GtkWidgetIsA(PaintWidget, GTK_TYPE_RANGE)
then begin
{$IFDEF Gtk2}
// Gtk2ToDo
writeln('ToDo: SendPaintMessagesForInternalWidgets GTK_TYPE_RANGE');
{$ELSE}
{$IFDEF Gtk1}
SendPaintMessageForGDkWindow(PGtkRange(PaintWidget)^.slider);
SendPaintMessageForGDkWindow(PGtkRange(PaintWidget)^.trough);
SendPaintMessageForGDkWindow(PGtkRange(PaintWidget)^.step_forw);
@ -8446,6 +8443,9 @@ end;
{ =============================================================================
$Log$
Revision 1.429 2003/09/25 20:44:42 ajgenius
minor changes for gtk2
Revision 1.428 2003/09/25 16:02:16 ajgenius
try to catch GDK/X drawable errors and raise an AV to stop killing App

6
lcl/interfaces/gtk/gtkproc.inc
View File

@ -2659,7 +2659,6 @@ procedure ShareWindowAccelGroups(AWindow: PGtkWidget);
procedure AttachUnique(TheWindow: PGtkWidget; TheAccelGroup: PGTKAccelGroup);
begin
{$IfDef GTK2}
// Gtk2ToDo
if (TheWindow=nil) or (TheAccelGroup=nil) then exit;
gtk_window_add_accel_group(GTK_WINDOW(TheWindow), TheAccelGroup);
{$else}
@ -2725,7 +2724,6 @@ procedure UnshareWindowAccelGroups(AWindow: PGtkWidget);
procedure Detach(TheWindow: PGtkWidget; TheAccelGroup: PGTKAccelGroup);
begin
{$IfDef GTK2}
// Gtk2ToDo
if (TheWindow=nil) or (TheAccelGroup=nil) then exit;
gtk_window_remove_accel_group(GTK_WINDOW(TheWindow), TheAccelGroup);
{$else}
@ -3224,6 +3222,7 @@ begin
{$IFDEF Gtk2}
// Gtk2ToDo
if CheckMenuItem<>nil then begin
GTK_MENU_ITEM(CheckMenuItem)^.toggle_size := 0;
gtk_menu_item_toggle_size_allocate(GTK_MENU_ITEM(CheckMenuItem),MaxToggleSize);
GTK_MENU_ITEM(CheckMenuItem)^.toggle_size := MaxToggleSize;
end;
@ -4898,6 +4897,9 @@ end;
{ =============================================================================
$Log$
Revision 1.213 2003/09/25 20:44:42 ajgenius
minor changes for gtk2
Revision 1.212 2003/09/25 16:02:16 ajgenius
try to catch GDK/X drawable errors and raise an AV to stop killing App