diff options
Diffstat (limited to 'lib/gs/examples/color_demo.erl')
-rw-r--r-- | lib/gs/examples/color_demo.erl | 68 |
1 files changed, 0 insertions, 68 deletions
diff --git a/lib/gs/examples/color_demo.erl b/lib/gs/examples/color_demo.erl deleted file mode 100644 index 5d2170a394..0000000000 --- a/lib/gs/examples/color_demo.erl +++ /dev/null @@ -1,68 +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% -%% - -%% -%% ------------------------------------------------------------ -%% A simple demo for choosing -%% colors in a window. -%% ------------------------------------------------------------ - --module(color_demo). --compile([{nowarn_deprecated_function,{gs,button,2}}, - {nowarn_deprecated_function,{gs,config,2}}, - {nowarn_deprecated_function,{gs,scale,2}}, - {nowarn_deprecated_function,{gs,start,0}}, - {nowarn_deprecated_function,{gs,window,2}}]). - --export([start/0,init/0]). - -start() -> - spawn(color_demo,init,[]). - -init() -> - I= gs:start(), - W= gs:window(I,[{title,"Color Demo"},{width,300},{height,195}]), - B=gs:button(W,[{label,{text,"Quit"}},{x,261},{y,166},{width,40}]), - gs:config(B,[{bg,yellow},{fg,hotpink1},{data,quit}]), - gs:scale(W,[{text,"Red"},{y,0},{range,{0,255}},{orient,horizontal}, - {height,65},{data,red},{pos,42}]), - gs:scale(W,[{text,"Blue"},{y,65},{range,{0,255}},{orient,horizontal}, - {height,65},{data,blue},{pos,42}]), - gs:scale(W,[{text,"Green"},{y,130},{range,{0,255}},{orient,horizontal}, - {height,65},{data,green},{pos,42}]), - gs:config(W,{map,true}), - loop(W,0,0,0). - -loop(W,R,G,B) -> - gs:config(W,{bg,{R,G,B}}), - receive - {gs,_,click,red,[New_R|_]} -> - loop(W,New_R,G,B); - {gs,_,click,green,[New_G|_]} -> - loop(W,R,New_G,B); - {gs,_,click,blue,[New_B|_]} -> - loop(W,R,G,New_B); - {gs,_,click,quit,_} -> - true; - {gs,W,destroy,_,_} -> - true - end. - -%% ------------------------------------------------------------ |