or download this
$mw->optionAdd(q{*Entry*borderWidth}, 1, $priority);
$mw->optionAdd(q{*Entry*insertBorderWidth}, 0, $priority);
...
$mw->optionAdd(q{*NoteBook.Frame.borderWidth}, 0, $priority);
$mw->optionAdd(q{*NoteBook.Frame.activeBorderWidth}, 0, $priority)
+;