diff options
Diffstat (limited to 'lib/gs/examples/man.erl')
| -rw-r--r-- | lib/gs/examples/man.erl | 202 |
1 files changed, 0 insertions, 202 deletions
diff --git a/lib/gs/examples/man.erl b/lib/gs/examples/man.erl deleted file mode 100644 index 97d897e191..0000000000 --- a/lib/gs/examples/man.erl +++ /dev/null @@ -1,202 +0,0 @@ -%% -%% %CopyrightBegin% -%% -%% Copyright Ericsson AB 1996-2016. All Rights Reserved. -%% -%% Licensed under the Apache License, Version 2.0 (the "License"); -%% you may not use this file except in compliance with the License. -%% You may obtain a copy of the License at -%% -%% http://www.apache.org/licenses/LICENSE-2.0 -%% -%% Unless required by applicable law or agreed to in writing, software -%% distributed under the License is distributed on an "AS IS" BASIS, -%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -%% See the License for the specific language governing permissions and -%% limitations under the License. -%% -%% %CopyrightEnd% -%% - -%% -%% ------------------------------------------------------------ -%% Simple Manual Page Browser -%% ------------------------------------------------------------ - --module(man). --compile([{nowarn_deprecated_function,{gs,button,2}}, - {nowarn_deprecated_function,{gs,config,2}}, - {nowarn_deprecated_function,{gs,create,4}}, - {nowarn_deprecated_function,{gs,entry,2}}, - {nowarn_deprecated_function,{gs,label,2}}, - {nowarn_deprecated_function,{gs,listbox,2}}, - {nowarn_deprecated_function,{gs,read,2}}, - {nowarn_deprecated_function,{gs,start,0}}, - {nowarn_deprecated_function,{gs,window,3}}]). - --export([start/0,init/0]). --export([man_list/0]). --export([browser/1,browser_init/2]). - - -start() -> - case whereis(man) of - undefined -> - register(man,Pid=spawn(man,init,[])), - Pid; - Pid -> - Pid - end. - - -%% ---- Man Directories ----- -dirManual() -> - filename:join([code:root_dir(), "man", "cat3"]). - - -%% ----- init ----- -init() -> - S=gs:start(), - Width=520,Height=520, - gs:create(window,win,S,[{title,"Manual Browser"}, - {width,Width},{height,Height}]), - gs:create(button,quit,win,[{width,60},{label,{text,"Quit"}}]), - gs:create(button,select,win,[{x,60},{label,{text,"Select Page"}}]), - gs:create(editor,editor,win,[{y,30},{width,Width},{height,Height-30}, - {hscroll,false},{vscroll,left}]), - gs:config(win,[{map,true},{configure,true}]), - man_loop(Width,Height). - -man_loop(Width0,Height0) -> - receive - {gs,_Win,configure,_,[Width0,Height0|_]} -> %% already got that size! - man_loop(Width0,Height0); - {gs,_Win,configure,_,[Width,Height|_]} -> - %%io:format("man: width=~w, height=~w ~n",[Width,Height]), - gs:config(editor,[{width,Width},{height,Height-30}]), - man_loop(Width,Height); - {gs,quit,click,_,_} -> - %%io:format("man: exiting.~n",[]), - exit(normal); - {gs,select,click,_,_} -> - case browser(man_list()) of - cancel -> true; - {ok,Page} -> load_page(Page); - O -> io:format("man: bad browser result: ~w~n",[O]) - end, - man_loop(Width0,Height0); - {gs,_,destroy,_,_} -> - exit(normal); - X -> - io:format("man: got other: ~w~n",[X]), - man_loop(Width0,Height0) - end. - - -%% ----- man_list ---- -%% -man_list() -> - {ok,FirstList} = file:list_dir(dirManual()), - SecondList = - mapfilter(fun(File) -> - case filename:extension(File) of - ".3" -> - {true, filename:basename(File, ".3")}; - _ -> false - end - end, - FirstList), - lists:sort(SecondList). - -mapfilter(Fun, [H|T]) -> - case Fun(H) of - {true, Val} -> - [Val|mapfilter(Fun, T)]; - false -> - mapfilter(Fun, T) - end; -mapfilter(_Fun, []) -> - []. - - -%% ------------------------------------------------------------ -%% Load in the Page - -load_page(Page) -> - %%io:format("man: load page start ~p.~n",[Page]), - Filename = filename:join([dirManual(),Page++".3"]), - {ok,Bin}=file:read_file(Filename), - _Txt=binary_to_list(Bin), - gs:config(editor,{enable,true}), - gs:config(editor,{load,Filename}), - gs:config(editor,{enable,false}), - %%io:format("man: load page done.~n",[]), - true. - - -%% ------------------------------------------------------------ -%% Simple Browser -%% ------------------------------------------------------------ - -browser(Items) -> - Browser=spawn_link(man,browser_init,[self(),Items]), - await_reply(Browser). - -await_reply(Browser) -> - receive - {browser,Result} -> - Result; - {gs,_,destroy,_,_} -> exit(normal); - {gs,quit,click,_,_} -> exit(normal); - {gs,select,click,_,_} -> - Browser ! wake_up, - await_reply(Browser) - end. - -browser_init(Pid,Items) -> - process_flag(trap_exit,true), - S=gs:start(), - Win=gs:window(win,S,[{width,250},{height,270},{title,"Browser"}]), - _Lbl=gs:label(Win,[{label,{text,"Select a Manual Page"}},{width,250}]), - gs:label(Win,[{width,40},{y,35},{label,{text,"Page:"}}]), - Entry=gs:entry(Win,[{y,35},{width,205},{x,40}, - {keypress,true},{focus,true}]), - Lb=gs:listbox(Win,[{x,5},{y,65},{width,160},{height,195}, - {vscroll,right},{click,true},{doubleclick,true}]), - Ok=gs:button(Win,[{label,{text,"OK"}},{width,40},{x,185},{y,175}]), - Cancel=gs:button(Win,[{label,{text,"Cancel"}},{x,175},{y,225},{width,65}]), - gs:config(Lb,[{items,Items}]), - gs:config(Win,{map,true}), - browser_loop(Pid,Ok,Cancel,Entry,Lb). - -browser_loop(Pid,Ok,Cancel,Entry,Lb) -> - receive - {gs,Ok,click,_,_} -> - Txt=gs:read(Entry,text), - Pid ! {browser,{ok,Txt}}; - {gs,Cancel,click,_,_} -> - Pid ! {browser,cancel}; - {gs,Entry,keypress,_,['Return'|_]} -> - Txt=gs:read(Entry,text), - Pid ! {browser,{ok,Txt}}; - {gs,Entry,keypress,_,_} -> - browser_loop(Pid,Ok,Cancel,Entry,Lb); - {gs,Lb,click,_,[_Idx, Txt| _Rest]} -> - gs:config(Entry,{text,Txt}), - browser_loop(Pid,Ok,Cancel,Entry,Lb); - {gs,Lb,doubleclick,_,[_Idx, Txt| _Rest]} -> - Pid ! {browser,{ok,Txt}}; - {gs,_,destroy,_,_} -> - Pid ! {browser,cancel}; - wake_up -> - gs:config(win,[{iconify,false},raise]), - browser_loop(Pid,Ok,Cancel,Entry,Lb); - {'EXIT',_Man,Why} -> - exit(Why); - X -> - io:format("man: browser got other: ~w.~n",[X]), - browser_loop(Pid,Ok,Cancel,Entry,Lb) - end. - -%% ------------------------------------------------------------ -%% end of man.erl |