Default parameters: Configure.oz

Source File

functor 
 
import 
   Tk(font)
    
export 
   fonts:  Fonts
   colors: Colors
   delays: Delays
    
prepare 
 
   Colors = colors(glass:   steelblue1
                   cut:     firebrick
                   sketch:  c(202 225 255)
                   entry:   wheat
                   bad:     c(238 44 44)
                   okay:    c(255 127 0)
                   good:    c(180 238 180)
                   neutral: ivory
                   bg:      ivory)
 
   Delays = delays(cut:  400
                   wait: 1200)
 
define 
 
   Fonts = fonts(normal:
                    {New Tk.font tkInit(family:helvetica size:~12)}  
                 bold:
                    {New Tk.font tkInit(family:helvetica size:~12
                                        weight:bold)} )
 
end