There's probably a few things you should take into consideration before making universal changes.

As well as borderWidth, some widgets also have activeBorderWidth, insertBorderWidth and selectBorderWidth - Tk::options has details of these. If, for instance, you had borderWidth and activeBorderWidth with different sizes, you'll get unwanted visual effects when you interact with these widgets.

Other widgets, such as Tk::Frame, have a default borderWidth of zero which you'll generally not want to change.

In short, while $mw->optionAdd('*borderWidth', '1'); might look like a quick fix, it will probably lead to all sorts of unwanted problems - some of which may not be immediately obvious.

My advice would be to just change what you need on a widget-by-widget basis.

Here's a few more examples, taken from the same script as the earlier examples, that demonstrate some of the points I've just made:

    $mw->optionAdd(q{*Entry*borderWidth}, 1, $priority);
    $mw->optionAdd(q{*Entry*insertBorderWidth}, 0, $priority);
    $mw->optionAdd(q{*Entry*selectBorderWidth}, 0, $priority);

    $mw->optionAdd(q{*NoteBook.borderWidth}, 1, $priority);
    $mw->optionAdd(q{*NoteBook.activeBorderWidth}, 1, $priority);

    $mw->optionAdd(q{*NoteBook.Frame.borderWidth}, 0, $priority);
    $mw->optionAdd(q{*NoteBook.Frame.activeBorderWidth}, 0, $priority)
+;
[download]