paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 19:56:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

gtk intf: do not allocate size for notebook on add page

Browse Source 
git-svn-id: trunk@24047 -
This commit is contained in:
mattias 2010-03-16 18:52:14 +00:00
parent aed8666af0
commit ec6bd0f076
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/interfaces/gtk/gtkcallback.inc
View File

@ -495,7 +495,6 @@ end;
function gtkchanged_editbox_backspace(widget: PGtkWidget;
data: gPointer): GBoolean; cdecl;
var
Mess : TLMessage;
GStart, GEnd: gint;
Info: PWidgetInfo;
EntryText: PgChar;

5
lcl/interfaces/gtk/gtkwsextctrls.pp
View File

@ -381,7 +381,9 @@ var
MenuWidget: PGtkWidget; // the popup menu (hbox containing a pixmap and
// a label)
MenuLabelWidget: PGtkWidget; // the label in the popup menu item
{$IFDEF OldAutoSize}
allocation: TGtkAllocation;
{$ENDIF}
begin
{$IFDEF NOTEBOOK_DEBUG}
DebugLn(['TGtkWSCustomNotebook.AddPage ',dbgsName(ANoteBook),' ',ANotebook.HandleAllocated,' AChild=',dbgsName(AChild),' ',AChild.HandleAllocated,' Child.TabVisible=',AChild.TabVisible]);
@ -440,6 +442,8 @@ begin
UpdateNoteBookClientWidget(ANoteBook);
// init the size of the page widget
//DebugLn(['TGtkWSCustomNotebook.AddPage ',DbgSName(ANoteBook),' ',dbgs(ANoteBook.BoundsRect)]);
{$IFDEF OldAutoSize}
allocation.x := ANoteBook.Left;
allocation.y := ANoteBook.Top;
allocation.width := ANoteBook.Width;
@ -448,6 +452,7 @@ begin
{$IFDEF VerboseSizeMsg}
DebugLn(['TGtkWSCustomNotebook.AddPage PageWidget^.allocation=',dbgs(PageWidget^.allocation),' NotebookWidget=',dbgs(NotebookWidget^.allocation)]);
{$ENDIF}
{$ENDIF}
end;
class procedure TGtkWSCustomNotebook.MovePage(const ANotebook: TCustomNotebook;