paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-03 19:07:27 +01:00
Code Issues Packages Projects Releases Wiki Activity

gtk2 intf: clean up

Browse Source 
git-svn-id: trunk@21369 -
This commit is contained in:
mattias 2009-08-20 19:00:38 +00:00
parent bac4495e45
commit 30ca64725e
1 changed files with 0 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/interfaces/gtk2/gtk2wschecklst.pp
View File

@ -78,24 +78,11 @@ procedure Gtk2WS_CheckListBoxDataFunc(tree_column: PGtkTreeViewColumn;
cell: PGtkCellRenderer; tree_model: PGtkTreeModel; iter: PGtkTreeIter; data: Pointer); cdecl;
var
b: byte;
gap1: byte;
ADisabled: gboolean;
gap2: byte;
AValue: TCheckBoxState;
begin
gap1:=112;
gap2:=123;
{$IFDEF VerboseGtk2CheckList}
DebugLn(['Gtk2WS_CheckListBoxDataFunc AAA1 gap1=',gap1,' gap2=',gap2]);
{$ENDIF}
gtk_tree_model_get(tree_model, iter, [gtk2CLBState, @b, -1]);
{$IFDEF VerboseGtk2CheckList}
DebugLn(['Gtk2WS_CheckListBoxDataFunc AAA2 gap1=',gap1,' gap2=',gap2]);
{$ENDIF}
gtk_tree_model_get(tree_model, iter, [gtk2CLBDisabled, @ADisabled, -1]);
{$IFDEF VerboseGtk2CheckList}
DebugLn(['Gtk2WS_CheckListBoxDataFunc AAA3 gap1=',gap1,' gap2=',gap2]);
{$ENDIF}
AValue := TCheckBoxState(b); // TCheckBoxState is 4 byte
g_object_set(cell, 'inconsistent', [gboolean(AValue = cbGrayed), nil]);
if AValue <> cbGrayed then