ex11, esdl

Gerald Exner <>
Mon Sep 13 21:01:32 CEST 2004


Hallo,

> Change
> CFLAGS=/usr/local/X11/include
> 
> to 
> 
> CFLAGS=/usr/X11R6/include/X11

i do this, but i see the some error.
i must make some static changes in ex11_lib_utils:mk_colorfun.
(very ugly)

-- 
mk_colorfun(Display, Screen) ->
     io:format ("mk_colorfun: Display=~p~n", [Display]),
     io:format ("mk_colorfun: Screen =~p~n", [Screen]),
     S = lists:nth(Screen + 1, Display#display.screens),
     io:format ("mk_colorfun: screen.depth (~p)=~p~n",
         [length(S#screen.depths), S#screen.depths]),
     %
     % i try the second entry on my XP421
     %
     D = lists:nth(Screen + 2, S#screen.depths),
     io:format ("mk_colorfun: D=~p~n", [D]),
     %
     % i try the second entry
     %
     V = lists:nth(2, D#depth.visuals),
     io:format ("V=~p~n", [V]),
     #visual{red_mask=R, green_mask=G, blue_mask=B} = V,
     io:format("R=~p G=~p B=~p~n",[R,G,B]),
     mkColorMapFun(R, G, B).
-- 

Now i can see my first ex11 window, and i will do some tests
The colors are not correct, but the demos are working :-)

this is the output at the shell, i think my XTerminal has to many
entries for screens an visuals.

-> perhaps should i update my 10years old Terminal? :-(

-- 
Erlang (BEAM) emulator version 5.3 [source]

Eshell V5.3  (abort with ^G)
1> Start Host={host,"xp421.pg44.prv"} Es=
[{ip,"192.168.222.11",[16,109,48,59,80,110,12,202,19,82,124,89,68,7,214,45]}]
Try these:[{{ip,"xp421.pg44.prv"},
             0,
             [16,109,48,59,80,110,12,202,19,82,124,89,68,7,214,45]}]
Trying Host={ip,"xp421.pg44.prv"} Display=0 Screen=0
Connecting to tcp port:6000
Port opened sending cookie:
mk_colorfun: Display={display,undefined,
                               0,
                               0,
                               4194298,
                               0,
                               83886080,
                               undefined,
                               undefined,
                               "Tektronix, Inc.",
                               1,
                               32,
                               32,
                               1,
                               2,
                               [{format,1,1,32},{format,8,8,32}],
                               8,
                               undefined,
                               undefined,
                               65535,
                               undefined,
                               0,
                               1,
                               [{screen,
                                    40,
                                    1280,
                                    1024,
                                    344,
                                    275,
                                    undefined,
                                    1,
                                    0,
                                    8,
                                    38,
                                    0,
                                    0,
                                    1,
                                    1,
                                    14417981,
                                    [{depth,1,0,[]},
                                     {depth,
                                         8,
                                         6,
                                         [{visual,32,3,0,0,0,8,256},
                                          {visual,33,5,7,56,192,8,8},
                                          {visual,34,1,0,0,0,8,256},
                                          {visual,35,0,0,0,0,8,256},
                                          {visual,36,2,7,56,192,8,256},
                                          {visual,37,4,7,56,192,8,8}]}],
                                    32,
                                    undefined}],
                               256,
                               8,
                               254}
mk_colorfun: Screen =0
mk_colorfun: screen.depth (2)=[{depth,1,0,[]},
                                {depth,8,
                                       6,
                                       [{visual,32,3,0,0,0,8,256},
                                        {visual,33,5,7,56,192,8,8},
                                        {visual,34,1,0,0,0,8,256},
                                        {visual,35,0,0,0,0,8,256},
                                        {visual,36,2,7,56,192,8,256},
                                        {visual,37,4,7,56,192,8,8}]}]
mk_colorfun: D={depth,8,
                       6,
                       [{visual,32,3,0,0,0,8,256},
                        {visual,33,5,7,56,192,8,8},
                        {visual,34,1,0,0,0,8,256},
                        {visual,35,0,0,0,0,8,256},
                        {visual,36,2,7,56,192,8,256},
                        {visual,37,4,7,56,192,8,8}]}
V={visual,33,5,7,56,192,8,8}
R=7 G=56 B=192
Min,max keycodes=8,254
KeySymsPerKeycode=2
Unknown Key=1000FF17
Display=<0.32.0>
-- 

who maintains the development of widgets, i would need
a menubar and a tree widget. if there is no one working
on this, i must do this myself.
--
gerald

--OO--Ooo-< NetBSD+Tru64+VMS:IRIX ? alpha+vax+sparc+m68k:mips >--
Gerald Exner



More information about the erlang-questions mailing list