anchor.diff:      gs:create(menuitem,speed,Spmnu,[{label,{text,"38400"}}]),
       gs:create(menuitem,speed,Spmnu,[{label,{text,"57600"}}]),
       SerialPort = serial:start([{speed,Speed}]), % roland
  -%   SerialPort = serial:start([{speed,Speed},{open,"/dev/ttya"}]),
  +%   SerialPort = serial:start([{speed,Speed},{open,?DEVICE}]),
       gs:create(menuitem,break,Smnu,[{label,{text,"Send break"}}]),
       gs:create(menuitem,hangup,Smnu,[{label,{text,"Hang up"}}]),
       gs:create(menuitem,disconnect,Smnu,[{label,{text,"Disconnect"}}]),
       gs:create(menuitem,connect,Smnu,[{label,{text,"Connect"}}]),
  -    gs:create(menuitem,open,Smnu,[{label,{text,"Open /dev/ttya"}}]),
  +    gs:create(menuitem,open,Smnu,[{label,{text,"Open "++?DEVICE}}]),
       gs_loop(SerialPort).
   
   gs_loop(Serial) ->
  
positive.code: 		X ->
  		    case Keysym of
  			'Return' ->
  			    Serial ! {send, [13]}
  		    end
  	    end;
  	{gs,speed,click,Data,[NewSpeed,Nr]} ->
  
negative.code:     end.
  
  tty_listner(SerialPort)  ->
      Char = io:get_line('Terminal> '),
      NewChar = replace(Char,10,13),
      SerialPort ! {send, NewChar},
      tty_listner(SerialPort).
  