From b624be9dfcbc32874d0db82d3ee4c26b65de7c49 Mon Sep 17 00:00:00 2001
From: Tomas Bzatek <tbzatek@tbzatek.englab.brq.redhat.com>
Date: Tue, 11 Nov 2008 13:53:37 +0100
Subject: Parse GtkRc styles file in memory

---
 UGTKLoader.pas | 62 ----------------------------------------------------------
 1 file changed, 62 deletions(-)
 delete mode 100644 UGTKLoader.pas

(limited to 'UGTKLoader.pas')

diff --git a/UGTKLoader.pas b/UGTKLoader.pas
deleted file mode 100644
index b135f6b..0000000
--- a/UGTKLoader.pas
+++ /dev/null
@@ -1,62 +0,0 @@
-(*
-    UGTKLoader - Special unit, which has to be loaded before gtk_init in GTKForms
-    Copyright (C) 2004 Tomas Bzatek <tbzatek@users.sourceforge.net>
-    Check for updates on tuxcmd.sourceforge.net
-
-    This program is free software; you can redistribute it and/or modify
-    it under the terms of the GNU General Public License as published by
-    the Free Software Foundation; either version 2 of the License, or
-    (at your option) any later version.
-
-    This program is distributed in the hope that it will be useful,
-    but WITHOUT ANY WARRANTY; without even the implied warranty of
-    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-    GNU General Public License for more details.
-
-    You should have received a copy of the GNU General Public License
-    along with this program; if not, write to the Free Software
-    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
-*)
-
-unit UGTKLoader;
-
-interface
-
-implementation
-
-uses glib2, gtk2, Classes, SysUtils;
-
-const ConfDefaultSettingsDir = '.tuxcmd';
-
-
-procedure WriteGTKRCTreeViewFix;
-var s, s2: string;
-    StringList: TStringList;
-begin
-  s := IncludeTrailingPathDelimiter(g_get_home_dir) + ConfDefaultSettingsDir;
-  s2 := IncludeTrailingPathDelimiter(s) + 'gtkrc';
-  if not FileExists(s2) then begin
-    StringList := TStringList.Create;
-    StringList.Add('style "treeview-style" {');
-    StringList.Add('  GtkTreeView::horizontal_separator = 0');
-    StringList.Add('  GtkTreeView::vertical_separator = 0');
-    StringList.Add('}');
-    StringList.Add('class "GtkTreeView" style "treeview-style"');
-    try
-      if not DirectoryExists(s) then
-        if not ForceDirectories(s) then begin
-          WriteLn('*** Error: Cannot make homedir');
-          Exit;
-        end;
-      StringList.SaveToFile(s2);
-      StringList.Free;
-    except
-      on E: Exception do WriteLn('*** Error: Cannot save .gtkrc in your home (', E.ClassName, '): ', E.Message);
-    end;
-  end;
-  if gtk_check_version(2, 4, 0) = nil then gtk_rc_add_default_file(PChar(s2));
-end;
-
-initialization
-  WriteGTKRCTreeViewFix;
-end.
-- 
cgit v1.2.3