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];)