[patch] Remove last remnants of uigtk

d0b45f073c0899d7e743582bdcad858bd2c69ea1.patch (text/plain), 3.09 KB, created by Bernd Feige on 2022-02-22 21:33:30 UTC

From d0b45f073c0899d7e743582bdcad858bd2c69ea1 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?T=C3=B5ivo=20Leedj=C3=A4rv?=
 <[e-mail]>
Date: Wed, 14 Jul 2021 20:34:39 +0200
Subject: [PATCH] Remove last remnants of uigtk

---
 src/.depend        |  4 ----
 src/Makefile.OCaml |  9 ---------
 src/dune           |  2 +-
 src/linkgtk.ml     | 19 -------------------
 4 files changed, 1 insertion(+), 33 deletions(-)
 delete mode 100644 src/linkgtk.ml

diff --git a/src/.depend b/src/.depend
index f466ad02a..b9b9fa36c 100644
--- a/src/.depend
+++ b/src/.depend
@@ -523,10 +523,6 @@ globals.cmi : \
     path.cmi \
     lwt/lwt.cmi \
     common.cmi
-linkgtk.cmo : \
-    main.cmo
-linkgtk.cmx : \
-    main.cmx
 linkgtk2.cmo : \
     uigtk2.cmi \
     main.cmo
diff --git a/src/Makefile.OCaml b/src/Makefile.OCaml
index 2a4afba53..61e82b18b 100644
--- a/src/Makefile.OCaml
+++ b/src/Makefile.OCaml
@@ -66,13 +66,11 @@ OCAMLLIBDIR=$(shell ocamlc -v | tail -1 | sed -e 's/.* //g' | tr '\\' '/' | tr -
 # User interface style:
 #   Legal values are
 #     UISTYLE=text
-#     UISTYLE=gtk
 #     UISTYLE=gtk2
 #     UISTYLE=mac
 #
 # This should be set to an appropriate value automatically, depending
 # on whether the lablgtk library is available
-LABLGTKLIB=$(OCAMLLIBDIR)/lablgtk
 LABLGTK2LIB=$(OCAMLLIBDIR)/lablgtk3
 ##BCP [3/2007]: Removed temporarily, since the OSX UI is not working well
 ## at the moment and we don't want to confuse people by building it by default
@@ -282,13 +280,6 @@ ifeq ($(OSARCH), win32)
   endif
 endif
 
-# Gtk GUI
-ifeq ($(UISTYLE), gtk)
-  CAMLFLAGS+=-I +lablgtk
-  OCAMLOBJS+=pixmaps.cmo uigtk.cmo linkgtk.cmo
-  OCAMLLIBS+=lablgtk.cma
-endif
-
 # Gtk2 GUI
 OCAMLFIND := $(shell command -v ocamlfind 2> /dev/null)
 
diff --git a/src/dune b/src/dune
index cdc4404fe..a732a498d 100644
--- a/src/dune
+++ b/src/dune
@@ -1,7 +1,7 @@
 (library
  (name unison_lib)
  (wrapped false)
- (modules :standard \ linktext linkgtk linkgtk2 uigtk2 uimacbridge uimacbridgenew test)
+ (modules :standard \ linktext linkgtk2 uigtk2 uimacbridge uimacbridgenew test)
  (modules_without_implementation ui)
  (flags :standard
         -w -3-6-9-10-26-27-32-34-35-38-39-50-52
diff --git a/src/linkgtk.ml b/src/linkgtk.ml
deleted file mode 100644
index a77759362..000000000
--- a/src/linkgtk.ml
+++ /dev/null
@@ -1,19 +0,0 @@
-(* Unison file synchronizer: src/linkgtk.ml *)
-(* Copyright 1999-2020, Benjamin C. Pierce
-
-    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 3 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, see <http://www.gnu.org/licenses/>.
-*)
-
-
-module TopLevel = Main.Body(Uigtk.Body)