From 6e74c9a7e86301eb22c3095c07fc771070d1ceed Mon Sep 17 00:00:00 2001
From: Dan Gudmundsson <dgud@erlang.org>
Date: Thu, 14 Sep 2017 13:16:37 +0200
Subject: wx: Remove export_all in example code

---
 lib/wx/examples/simple/hello.erl       |  1 -
 lib/wx/examples/simple/hello2.erl      |  5 +++--
 lib/wx/examples/simple/menu.erl        | 31 -------------------------------
 lib/wx/examples/simple/minimal.erl     |  2 +-
 lib/wx/examples/sudoku/sudoku.erl      |  3 +--
 lib/wx/examples/sudoku/sudoku_game.erl | 23 +++--------------------
 lib/wx/examples/sudoku/sudoku_gui.erl  |  2 +-
 lib/wx/examples/xrc/xrc.erl            |  2 +-
 8 files changed, 10 insertions(+), 59 deletions(-)

(limited to 'lib/wx/examples')

diff --git a/lib/wx/examples/simple/hello.erl b/lib/wx/examples/simple/hello.erl
index 36bce56329..bf870c6f3e 100644
--- a/lib/wx/examples/simple/hello.erl
+++ b/lib/wx/examples/simple/hello.erl
@@ -29,7 +29,6 @@
 -include_lib("wx/include/wx.hrl").
 
 -export([start/0]).
--compile(export_all).
 
 start() ->
     Wx = wx:new(),
diff --git a/lib/wx/examples/simple/hello2.erl b/lib/wx/examples/simple/hello2.erl
index 671b23d892..b9da622b6b 100644
--- a/lib/wx/examples/simple/hello2.erl
+++ b/lib/wx/examples/simple/hello2.erl
@@ -29,8 +29,9 @@
 -module(hello2).
 -include_lib("wx/include/wx.hrl").
 
--export([start/0]).
--compile(export_all).
+-export([start/0,
+         init/1, handle_info/2, handle_event/2, handle_call/3,
+         code_change/3, terminate/2]).
 
 -behavoiur(wx_object).
 
diff --git a/lib/wx/examples/simple/menu.erl b/lib/wx/examples/simple/menu.erl
index 479df1ef98..93573fb97d 100644
--- a/lib/wx/examples/simple/menu.erl
+++ b/lib/wx/examples/simple/menu.erl
@@ -29,7 +29,6 @@
 -include_lib("wx/include/wx.hrl").
 
 -export([start/0]).
--compile(export_all).
 
 %%%Lots of IDs to declare!
 -define(menuID_FILE_QUIT,           ?wxID_EXIT).
@@ -225,36 +224,6 @@ create_menubar_menu() ->
     MenuBarMenu.
 
 
-%%    
-%%    
-%%    
-create_submenu_menu() ->
-    SubMenuMenu   = wxMenu:new(),
-    wxMenu:append(SubMenuMenu, wxMenuItem:new([
-            {id,    ?menuID_SUBMENU_NORMAL},
-            {text,  "&Normal submenu item"},
-            {help,  "Disabled submenu item"}
-            ])),
-    %% note different way of adding check menu item
-    wxMenu:appendCheckItem(SubMenuMenu, 
-            ?menuID_SUBMENU_CHECK,
-            "&Check submenu item",
-            [{help,  "Check submenu item"}]),
-    wxMenu:appendRadioItem(SubMenuMenu, 
-            ?menuID_SUBMENU_RADIO_1,
-            "Radio item &1",
-            [{help,  "Radio item"}]),
-    wxMenu:appendRadioItem(SubMenuMenu, 
-            ?menuID_SUBMENU_RADIO_2,
-            "Radio item &2",
-            [{help,  "Radio item"}]),
-    wxMenu:appendRadioItem(SubMenuMenu, 
-            ?menuID_SUBMENU_RADIO_3,
-            "Radio item &3",
-            [{help,  "Radio item"}]),
-    SubMenuMenu.
-
-
 %%    
 %%    
 %%    
diff --git a/lib/wx/examples/simple/minimal.erl b/lib/wx/examples/simple/minimal.erl
index 9f6365e008..346f86433a 100644
--- a/lib/wx/examples/simple/minimal.erl
+++ b/lib/wx/examples/simple/minimal.erl
@@ -29,7 +29,7 @@
 -include_lib("wx/include/wx.hrl").
 
 -export([start/0]).
--compile(export_all).
+
 
 start() ->
     Wx = wx:new(),
diff --git a/lib/wx/examples/sudoku/sudoku.erl b/lib/wx/examples/sudoku/sudoku.erl
index 97f35870de..353f90d86f 100644
--- a/lib/wx/examples/sudoku/sudoku.erl
+++ b/lib/wx/examples/sudoku/sudoku.erl
@@ -26,9 +26,8 @@
 
 -module(sudoku).
 
--export([go/0]).
+-export([go/0, start/0]).
 
--compile(export_all).
 
 -include("sudoku.hrl").
 
diff --git a/lib/wx/examples/sudoku/sudoku_game.erl b/lib/wx/examples/sudoku/sudoku_game.erl
index 1e579a7c88..aa15c05653 100644
--- a/lib/wx/examples/sudoku/sudoku_game.erl
+++ b/lib/wx/examples/sudoku/sudoku_game.erl
@@ -18,7 +18,9 @@
 %% %CopyrightEnd%
 
 -module(sudoku_game).
--compile(export_all).
+
+-export([init/1,
+         indx/1, rcm/1, level/1]).
 -include("sudoku.hrl").
 
 init(GFX) ->
@@ -128,17 +130,6 @@ rebuild_all(_, S0) ->
 			add(rcm(Indx),Val,Acc)
 		end, S1, Solved).
 
-is_ok({RI,CI,MI}, Vals) ->
-    [Ri,Ci,Mi] = all(RI,CI,MI),
-    case element(indx(RI,CI),Vals) of
-	0  -> true;
-	Val ->
-	    Vs  = [[element(indx(R,C),Vals)||{R,C} <- Obs, 
-					     not ((R == RI) and (C == CI))]
-		   || Obs <- [Ri,Ci,Mi]],
-	    not lists:member(Val,lists:flatten(Vs))
-    end.
-
 test() ->  %% Known to solvable
     [{{1,2},6}, {{1,4},1}, {{1,6},4}, {{1,8},5}, 
      {{2,3},8}, {{2,4},3}, {{2,6},5}, {{2,7},6}, 
@@ -377,14 +368,6 @@ get_poss([H|R],What,Tot) ->
     %%     io:format("~p~n",[H]),
     get_poss(R,What, gb_sets:union(element(H,What),Tot)).
 
-r2rs(R) -> 
-    R0 = (R-1)*3,
-    [R0+1,R0+2,R0+3].
-
-c2cs(C) ->
-    C0 = (C-1) rem 9,
-    [C0+1, C0+10, C0+19].
-
 mindx(row,Indx) -> 
     {R,_C,M} = rcm(Indx),
     mindx(R,M);
diff --git a/lib/wx/examples/sudoku/sudoku_gui.erl b/lib/wx/examples/sudoku/sudoku_gui.erl
index 81d20814e1..4c4ad83cd7 100644
--- a/lib/wx/examples/sudoku/sudoku_gui.erl
+++ b/lib/wx/examples/sudoku/sudoku_gui.erl
@@ -28,7 +28,7 @@
 -export([init/1, handle_info/2, handle_call/3, handle_cast/2, handle_event/2,
 	 terminate/2, code_change/3]).
 
--compile(export_all).
+-export([new/1]).
 
 -behaviour(wx_object).
 
diff --git a/lib/wx/examples/xrc/xrc.erl b/lib/wx/examples/xrc/xrc.erl
index 729f4ad0db..7e967777d2 100644
--- a/lib/wx/examples/xrc/xrc.erl
+++ b/lib/wx/examples/xrc/xrc.erl
@@ -23,7 +23,7 @@
 %%%-------------------------------------------------------------------
 
 -module(xrc).
--compile(export_all).
+-export([start/0]).
 
 -include("../../include/wx.hrl").
 
-- 
cgit v1.2.3