method init : unit = (
         destroy hf1;
         hf1 <- Frame.create f;
         destroy labelDepth;
         labelDepth <- Label.create ~text:"Defth : " ~width:20 ~height:2 hf1;
         destroy entryDepth;
         entryDepth <- Entry.create ~width:20 ~background:selcol hf1;
         destroy hf2;
         hf2 <- Frame.create f;
         destroy labelPath;
         labelPath <- Label.create ~text:"Path : " ~width:20 ~height:2 hf2;
         destroy entryPath;
        entryPath <- Entry.create ~width:20 ~background:selcol hf2;
        Checkbutton.configure session ~command:(fun () -> (if sessionString="" then sessionString <- " -sessco " else sessionString <- ""));  
        pack ~side:`Top [optionFrame];
        pack ~side:`Top [optionLabel];
        pack ~side:`Top [session];
        pack ~side:`Top [f];
        pack ~side:`Top [hf1];
        pack ~side:`Left [labelDepth];
        pack ~side:`Left [entryDepth];
        pack ~side:`Top [hf2];
        pack ~side:`Left [labelPath];
             pack ~side:`Left [entryPath];)