# $Id: wuil.wuil,v 1.3 1997-11-21 15:25:16-06 annis Exp annis $
#
# Do not edit this file!  It configures the default DEFAULTS for WUil.
# It is not intended for human consumption, and could make you ill.
# Change things with your own modifications to your .wuil files.

@@ifndefined PADX        @@define PADX           3
@@ifndefined PADY        @@define PADY           5
@@ifndefined RELIEF      @@define RELIEF         groove
@@ifndefined BORDERWIDTH @@define BORDERWIDTH    2
@@ifndefined HEIGHT      @@define HEIGHT         2
@@ifndefined FILL        @@define FILL           x
@@ifndefined EXPAND      @@define EXPAND         1
@@ifndefined SIDE        @@define SIDE           top
@@ifndefined ENTRY_WIDTH @@define ENTRY_WIDTH    30
@@ifndefined LABEL_ANCHOR @@define LABEL_ANCHOR  w
@@ifndefined WRAP        @@define WRAP           none
@@ifndefined SCROLLBARS  @@define SCROLLBARS     vertical horizontal
@@ifndefined TEXT_WIDTH  @@define TEXT_WIDTH     60

# Global fall-through default.  This determines my "look-and-feel."
DEFAULT WUil_Defaults_DEFAULT
  Pad           -padx @$PADX -pady @$PADY
  Pack          -fill @$FILL -side @$SIDE -expand @$EXPAND
  Relief        -relief @$RELIEF -borderwidth @$BORDERWIDTH
  LabelSide     left
  LabelAnchor   @$LABEL_ANCHOR
  @@ifdefined DEBUG  Before  @{
        print "Now entering $widget_name.\n";
  @}
END

# Some sensible defaults for Entry widgets.
DEFAULT WUil_Entry_Defaults_DEFAULT
  Width         -width @$ENTRY_WIDTH
END

# Text widget defaults.
DEFAULT WUil_Text_Defaults_DEFAULT
  LabelAnchor   n
  LabelSide     top
  Width         -width @$TEXT_WIDTH
  Wrap          -wrap @$WRAP
  Scrollbars    @$SCROLLBARS
  Tag0   configure underline -underline 1
  Tag1   configure blue-bg   -relief raised -borderwidth 1 -background skyblue
  Tag2   configure green-bg  -relief raised -borderwidth 1 -background green3
  Tag3   configure yellow-bg -relief raised -borderwidth 1 -background yellow3
  Tag4   configure red-bg    -relief raised -borderwidth 1 -background coral2
  Tag5   configure purple-bg -relief raised -borderwidth 1 -background purple2
  Tag6   configure blue      -foreground blue3
  Tag7   configure green     -foreground green4
  Tag8   configure yellow    -foreground yellow3
  Tag9   configure red       -foreground coral3
  Tag10  configure purple    -foreground purple2
END

######################################################################
# These are some defaults which can be used by authors:

##################################################
# ButtonBox

# Include in a Frame for a side-by-listing of buttons with a surrounding
# ridged box.
DEFAULT WUil_ButtonBox
  Options       -relief @$RELIEF -borderwidth @$BORDERWIDTH
END

# Include this in Button specs of buttons in a WUil_ButtonBox Frame.
DEFAULT WUil_ButtonBox_Member
  Pack          -fill @$FILL -side left -expand @$EXPAND
END

##################################################
# Generalization of the ButtonBox (used by Frames).

DEFAULT WUil_Boxed
  Options       -relief @$RELIEF -borderwidth @$BORDERWIDTH
END



# EOF