xconfigure

eCos操作系统源码

   frame .optnanox.a0
   checkbutton .optnanox.a0.server -text "Link app into server" -variable server -relief flat
   checkbutton .optnanox.a0.sharedmem -text "Enable shared mem support (app/server only)" -variable sharedmem -relief flat
   checkbutton .optnanox.a0.nwidget -text "Compile Nwidget library" -variable nwidget -relief flat
   checkbutton .optnanox.a0.demo -text "Compile demos" -variable nanoxdemo -relief flat
   pack .optnanox.a0.server  -side top -pady 2 -anchor w
   pack .optnanox.a0.sharedmem  -side top -pady 2 -anchor w
   pack .optnanox.a0.nwidget  -side top -pady 2 -anchor w
   pack .optnanox.a0.demo  -side top -pady 2 -anchor w
   pack .optnanox.a0  -side top -pady 2 -anchor w -fill x
}


################################################################################
#
# Show microwindows options dialog
#
################################################################################
proc mwinoptions {} {

   toplevel .optmwin
   wm title .optmwin "MicroWindows options"
   wm geometry .optmwin +100+100

   frame .optmwin.buttons
   pack .optmwin.buttons -side bottom -fill x -pady 2m
   button .optmwin.buttons.ok -text "Ok" -command "destroy .optmwin"
   button .optmwin.buttons.help -text "Help" -command "tk_dialog .help message TODO \"\" 0 ok"
   pack .optmwin.buttons.help .optmwin.buttons.ok -side right -expand 1

   frame .optmwin.algo -borderwidth 1 -relief solid
   frame .optmwin.demo -borderwidth 1 -relief solid
   pack .optmwin.algo .optmwin.demo -side top -fill x -pady .5c -padx .5c

   frame .optmwin.algo.a0
   frame .optmwin.algo.a1
   label .optmwin.algo.label -text "Window move agorithm options"
   pack .optmwin.algo.label -side top
   checkbutton .optmwin.algo.a0.b0 -text "Update regions" -variable updateregions -relief flat
   checkbutton .optmwin.algo.a1.b1 -text "Erase Move" -variable erasemove -relief flat
   pack .optmwin.algo.a0.b0  -side top -pady 2 -anchor w
   pack .optmwin.algo.a1.b1  -side top -pady 2 -anchor w
   pack .optmwin.algo.a0  -side top -pady 2 -anchor w -fill x
   pack .optmwin.algo.a1  -side top -pady 2 -anchor w -fill x

   frame .optmwin.demo.a0
   label .optmwin.demo.label -text "Other options"
   pack .optmwin.demo.label -side top
   checkbutton .optmwin.demo.a0.b0 -text "Compile demos" -variable microwindemo -relief flat
   pack .optmwin.demo.a0.b0  -side top -pady 2 -anchor w
   pack .optmwin.demo.a0  -side top -pady 2 -anchor w -fill x
}


################################################################################
#
# Show native linux/Solaris options dialog
#
################################################################################
proc nativelinuxoptions {} {

   toplevel .optnatlinux
   wm title .optnatlinux "Native Linux/Solaris options"
   wm geometry .optnatlinux +100+100

   frame .optnatlinux.buttons
   pack .optnatlinux.buttons -side bottom -fill x -pady 2m
   button .optnatlinux.buttons.ok -text "Ok" -command "destroy .optnatlinux"
   button .optnatlinux.buttons.help -text "Help" -command "tk_dialog .help message TODO \"\" 0 ok"
   pack .optnatlinux.buttons.help .optnatlinux.buttons.ok -side right -expand 1

   button .optnatlinux.screen -text "Screen driver" -command "screenoptions;"
   button .optnatlinux.mouse -text "Mouse driver" -command "mouseoptions;"
   button .optnatlinux.kbd -text "Keyboard driver" -command "kbdoptions;"
   pack .optnatlinux.screen .optnatlinux.mouse .optnatlinux.kbd -side top -fill x
}


################################################################################
#
# Show arm linux options dialog
#
################################################################################
proc armlinuxoptions {} {
   global screenlinux;
   global armtoolsprefix;

   toplevel .optarmlinux
   wm title .optarmlinux "ARM Linux options"
   wm geometry .optarmlinux +100+100

   frame .optarmlinux.buttons
   pack .optarmlinux.buttons -side bottom -fill x -pady 2m
   button .optarmlinux.buttons.ok -text "Ok" -command "armlinuxoptions_ok; destroy .optarmlinux"
   button .optarmlinux.buttons.help -text "Help" -command "tk_dialog .help message TODO \"\" 0 ok"
   pack .optarmlinux.buttons.help .optarmlinux.buttons.ok -side right -expand 1

   frame .optarmlinux.comp -borderwidth 1 -relief solid
   pack .optarmlinux.comp -side top -fill x -pady .5c -padx .5c

   frame .optarmlinux.comp.a0
   label .optarmlinux.comp.label -text "Compiler options"
   pack .optarmlinux.comp.label -side top
   label .optarmlinux.comp.a0.label -text "Tools Prefix:" -anchor e
   entry .optarmlinux.comp.a0.prefix -width 25 -relief sunken
   checkbutton .optarmlinux.comp.a0.sa1100ltlend \
-text "SA1100 Little endian option (for 4 bpp only)" -variable sa1100ltlend -relief flat
   pack .optarmlinux.comp.a0.label  -side top -pady 2 -anchor w
   pack .optarmlinux.comp.a0.prefix  -side top -pady 2 -anchor c
   pack .optarmlinux.comp.a0.sa1100ltlend  -side top -pady 2 -anchor c
   pack .optarmlinux.comp.a0  -side top -pady 2 -anchor w -fill x
   .optarmlinux.comp.a0.prefix insert 0 $armtoolsprefix;

   button .optarmlinux.screen -text "Screen driver" -command "screenoptions;"
   button .optarmlinux.mouse -text "Mouse driver" -command "mouseoptions;"
   button .optarmlinux.kbd -text "Keyboard driver" -command "kbdoptions;"
   pack .optarmlinux.comp .optarmlinux.screen .optarmlinux.mouse .optarmlinux.kbd -side top -fill x
}

proc armlinuxoptions_ok {} {
   global armtoolsprefix;
   set armtoolsprefix [.optarmlinux.comp.a0.prefix get];
}


################################################################################
#
# Show mips linux options dialog
#
################################################################################
proc mipslinuxoptions {} {
   global screenlinux;
   global mipstoolsprefix;

   toplevel .optmipslinux
   wm title .optmipslinux "MIPS Linux options"
   wm geometry .optmipslinux +100+100

   frame .optmipslinux.buttons
   pack .optmipslinux.buttons -side bottom -fill x -pady 2m
   button .optmipslinux.buttons.ok -text "Ok" -command "mipslinuxoptions_ok; destroy .optmipslinux"
   button .optmipslinux.buttons.help -text "Help" -command "tk_dialog .help message TODO \"\" 0 ok"
   pack .optmipslinux.buttons.help .optmipslinux.buttons.ok -side right -expand 1

   frame .optmipslinux.comp -borderwidth 1 -relief solid
   pack .optmipslinux.comp -side top -fill x -pady .5c -padx .5c

   frame .optmipslinux.comp.a0
   label .optmipslinux.comp.label -text "Compiler options"
   pack .optmipslinux.comp.label -side top
   label .optmipslinux.comp.a0.label -text "Tools Prefix:" -anchor e
   entry .optmipslinux.comp.a0.prefix -width 25 -relief sunken
   pack .optmipslinux.comp.a0.label  -side top -pady 2 -anchor w
   pack .optmipslinux.comp.a0.prefix  -side top -pady 2 -anchor c
   pack .optmipslinux.comp.a0  -side top -pady 2 -anchor w -fill x
   .optmipslinux.comp.a0.prefix insert 0 $mipstoolsprefix;

   button .optmipslinux.screen -text "Screen driver" -command "screenoptions;"
   button .optmipslinux.mouse -text "Mouse driver" -command "mouseoptions;"
   button .optmipslinux.kbd -text "Keyboard driver" -command "kbdoptions;"
   pack .optmipslinux.comp .optmipslinux.screen .optmipslinux.mouse .optmipslinux.kbd -side top -fill x
}

proc mipslinuxoptions_ok {} {
   global mipstoolsprefix;
   set mipstoolsprefix [.optmipslinux.comp.a0.prefix get];
}


################################################################################
#
# Show rtems options dialog
#
################################################################################
proc rtemsoptions {} {
   global rtemstoolsprefix;
   global rtemsbuild;
   global rtemsbsp;

   toplevel .optrtems
   wm title .optrtems "RTEMS options"
   wm geometry .optrtems +100+100

   frame .optrtems.buttons
   pack .optrtems.buttons -side bottom -fill x -pady 2m
   button .optrtems.buttons.ok -text "Ok" -command "rtemsoptions_ok; destroy .optrtems"
   button .optrtems.buttons.help -text "Help" -command "tk_dialog .help message TODO \"\" 0 ok"
   pack .optrtems.buttons.help .optrtems.buttons.ok -side right -expand 1

   frame .optrtems.comp -borderwidth 1 -relief solid
   pack .optrtems.comp -side top -fill x -pady .5c -padx .5c

   frame .optrtems.comp.a0
   frame .optrtems.comp.a1
   frame .optrtems.comp.a2
   label .optrtems.comp.label -text "Compiler options"
   pack .optrtems.comp.label -side top
   label .optrtems.comp.a0.label -text "Tools Prefix:" -anchor e
   entry .optrtems.comp.a0.prefix -width 25 -relief sunken
   label .optrtems.comp.a1.label -text "Build:" -anchor e
   entry .optrtems.comp.a1.build -width 25 -relief sunken
   label .optrtems.comp.a2.label -text "BSP:" -anchor e
   entry .optrtems.comp.a2.bsp -width 25 -relief sunken
   pack .optrtems.comp.a0.label  -side top -pady 2 -anchor w
   pack .optrtems.comp.a0.prefix  -side top -pady 2 -anchor c
   pack .optrtems.comp.a1.label .optrtems.comp.a1.build -side top -pady 2 -anchor w
   pack .optrtems.comp.a2.label .optrtems.comp.a2.bsp -side top -pady 2 -anchor w
   pack .optrtems.comp.a0  -side top -pady 2 -anchor w -fill x
   pack .optrtems.comp.a1  -side top -pady 2 -anchor w -fill x
   pack .optrtems.comp.a2  -side top -pady 2 -anchor w -fill x
   pack .optrtems.comp.a0.prefix .optrtems.comp.a1.build .optrtems.comp.a2.bsp  -side top -anchor e
   .optrtems.comp.a0.prefix insert 0 $rtemstoolsprefix;
   .optrtems.comp.a1.build insert 0 $rtemsbuild;
   .optrtems.comp.a2.bsp insert 0 $rtemsbsp;

   button .optrtems.screen -text "Screen driver" -command "screenoptions;"
   button .optrtems.mouse -text "Mouse driver" -command "mouseoptions;"
   button .optrtems.kbd -text "Keyboard driver" -command "kbdoptions;"
   pack .optrtems.comp .optrtems.screen .optrtems.mouse .optrtems.kbd -side top -fill x
}

proc rtemsoptions_ok {} {
   global rtemstoolsprefix;
   global rtemsbuild;
   global rtemsbsp;
   set rtemstoolsprefix [.optrtems.comp.a0.prefix get];
   set rtemsbuild [.optrtems.comp.a1.build get];
   set rtemsbsp [.optrtems.comp.a2.bsp get];
}


################################################################################
#
# Show jpeg options dialog
#
################################################################################
proc jpegoptions {} {
   global incjpg;
   global libjpg;

   toplevel .optjpeg
   wm title .optjpeg "JPEG support options"
   wm geometry .optjpeg +100+100

   frame .optjpeg.buttons
   pack .optjpeg.buttons -side bottom -fill x -pady 2m
   button .optjpeg.buttons.ok -text "Ok" -command "jpegoptions_ok; destroy .optjpeg"
   button .optjpeg.buttons.help -text "Help" -command "tk_dialog .help message TODO \"\" 0 ok"
   pack .optjpeg.buttons.help .optjpeg.buttons.ok -side right -expand 1

   frame .optjpeg.a0
   frame .optjpeg.a1
   label .optjpeg.a0.label -text "Libjpeg include dir:" -anchor e
   entry .optjpeg.a0.incjpg -width 40 -relief sunken
   label .optjpeg.a1.label -text "Libjpeg path:" -anchor e
   entry .optjpeg.a1.libjpg -width 40 -relief sunken
   pack .optjpeg.a0.label  -side top -pady 2 -anchor w
   pack .optjpeg.a0.incjpg  -side top -pady 2 -anchor w
   pack .optjpeg.a1.label  -side top -pady 2 -anchor w
   pack .optjpeg.a1.libjpg  -side top -pady 2 -anchor w
   pack .optjpeg.a0  -side top -pady 2 -anchor w -fill x
   pack .optjpeg.a1  -side top -pady 2 -anchor w -fill x

   pack .optjpeg.a0.incjpg .optjpeg.a1.libjpg  -side top -anchor e

   .optjpeg.a0.incjpg insert 0 $incjpg;
   .optjpeg.a1.libjpg insert 0 $libjpg;
}


proc jpegoptions_ok {} {
   global incjpg;
   global libjpg;
   set incjpg [.optjpeg.a0.incjpg get];
   set libjpg [.optjpeg.a1.libjpg get];
}


################################################################################
#
# Show freetype options dialog
#
################################################################################
proc ftoptions {} {
   global incft;
   global libft;

   toplevel .optft
   wm title .optft "Freetype support options"
   wm geometry .optft +100+100

   frame .optft.buttons
   pack .optft.buttons -side bottom -fill x -pady 2m
   button .optft.buttons.ok -text "Ok" -command "ftoptions_ok; destroy .optft"
   button .optft.buttons.help -text "Help" -command "tk_dialog .help message TODO \"\" 0 ok"
   pack .optft.buttons.help .optft.buttons.ok -side right -expand 1

   frame .optft.a0
   frame .optft.a1
   label .optft.a0.label -text "Freetype include dir:" -anchor e
   entry .optft.a0.incft -width 40 -relief sunken
   label .optft.a1.label -text "Freetype lib path:" -anchor e
   entry .optft.a1.libft -width 40 -relief sunken
   pack .optft.a0.label  -side top -pady 2 -anchor w
   pack .optft.a0.incft  -side top -pady 2 -anchor w
   pack .optft.a1.label  -side top -pady 2 -anchor w
   pack .optft.a1.libft  -side top -pady 2 -anchor w
   pack .optft.a0  -side top -pady 2 -anchor w -fill x
   pack .optft.a1  -side top -pady 2 -anchor w -fill x

   pack .optft.a0.incft .optft.a1.libft  -side top -anchor e

   .optft.a0.incft insert 0 $incft;
   .optft.a1.libft insert 0 $libft;
}


proc ftoptions_ok {} {
   global incft;
   global libft;
   set incft [.optft.a0.incft get];
   set libft [.optft.a1.libft get];
}


################################################################################
#
# Show t1lib options dialog
#
################################################################################
proc t1options {} {
   global inct1;
   global libt1;

   toplevel .optt1
   wm title .optt1 "T1Lib support options"
   wm geometry .optt1 +100+100

   frame .optt1.buttons
   pack .optt1.buttons -side bottom -fill x -pady 2m
   button .optt1.buttons.ok -text "Ok" -command "t1options_ok; destroy .optt1"
   button .optt1.buttons.help -text "Help" -command "tk_dialog .help message TODO \"\" 0 ok"
   pack .optt1.buttons.help .optt1.buttons.ok -side right -expand 1

   frame .optt1.a0
   frame .optt1.a1
   label .optt1.a0.label -text "T1lib include dir:" -anchor e
   entry .optt1.a0.inct1 -width 40 -relief sunken
   label .optt1.a1.label -text "T1lib path:" -anchor e
   entry .optt1.a1.libt1 -width 40 -relief sunken
   pack .optt1.a0.label  -side top -pady 2 -anchor w
   pack .optt1.a0.inct1  -side top -pady 2 -anchor w
   pack .optt1.a1.label  -side top -pady 2 -anchor w
   pack .optt1.a1.libt1  -side top -pady 2 -anchor w
   pack .optt1.a0  -side top -pady 2 -anchor w -fill x
   pack .optt1.a1  -side top -pady 2 -anchor w -fill x

   pack .optt1.a0.inct1 .optt1.a1.libt1  -side top -anchor e