function CommentReply(id, dopen, dclose, foca){
  var box = ge(id);
  if(!box) return;
  var c = geByClass("r", box)[0];
  if (!c) return;
  if (!isVisible(c)) 
    slideDown(c, 500, function(){ ge("btcomment").focus(); });
  else 
    slideUp(c, 500);
}

/*Ροξιλεπ*/

function slide_bt(id, dopen, dclose, foca){
  var box = ge(id);
  if(!box) return;
  var c = geByClass("r", box)[0];
  if (!c) return;
  if (!isVisible(c)) 
    slideDown(c, 200, function(){ ge("slidebt").focus(); });
  else 
    slideUp(c, 200);
}