xconfigure

eCos操作系统源码

   .optt1.a0.inct1 insert 0 $inct1;
   .optt1.a1.libt1 insert 0 $libt1;
}


proc t1options_ok {} {
   global inct1;
   global libt1;
   set inct1 [.optt1.a0.inct1 get];
   set libt1 [.optt1.a1.libt1 get];
}

################################################################################
#
# Show hzk dir options dialog
#
################################################################################
proc hzkoptions {} {
   global hzkdir;
	 global hzkfontsize;

   toplevel .opthzk
   wm title .opthzk "HZK support options"
   wm geometry .opthzk +100+100

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

   frame .opthzk.a0
   frame .opthzk.a1
   label .opthzk.a0.label -text "HZK fonts dir:" -anchor e
   entry .opthzk.a0.hzkdir -width 40 -relief sunken
   label .opthzk.a1.label -text "HZK fonts Size:(16 or 12 ,now)" -anchor e
   entry .opthzk.a1.hzksize -width 40 -relief sunken
   pack .opthzk.a0.label  -side top -pady 2 -anchor w
   pack .opthzk.a0.hzkdir -side top -pady 2 -anchor w
   pack .opthzk.a1.label  -side top -pady 2 -anchor w
   pack .opthzk.a1.hzksize -side top -pady 2 -anchor w
   pack .opthzk.a0  -side top -pady 2 -anchor w -fill x
   pack .opthzk.a1  -side top -pady 2 -anchor w -fill x

	 pack .opthzk.a0.hzkdir .opthzk.a1.hzksize -side top -anchor e

   .opthzk.a0.hzkdir insert 0 $hzkdir;
   .opthzk.a1.hzksize insert 0 $hzkfontsize;
}


proc hzkoptions_ok {} {
   global hzkdir;
   global hzkfontsize;
   set hzkdir [.opthzk.a0.hzkdir get];
   set hzkfontsize [.opthzk.a1.hzksize get];

}


################################################################################
#
# Show screen driver options dialog
#
################################################################################
proc screenoptions {} {

   toplevel .optscreen
   wm title .optscreen "Screen driver options"
   wm geometry .optscreen +100+100

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

   frame .optscreen.a0
   frame .optscreen.a1
   frame .optscreen.a2
   frame .optscreen.a3
   radiobutton .optscreen.a0.b0 -text "Framebuffer" -variable screenlinux -relief flat -value 0 -anchor w
   button .optscreen.a0.options -text "Options" -command {fboptions;};
   radiobutton .optscreen.a1.b1 -text "X11" -variable screenlinux -relief flat -value 1 -anchor w
   button .optscreen.a1.options -text "Options" -command {x11options;};
   radiobutton .optscreen.a2.b2 -text "VgaLib" -variable screenlinux -relief flat -value 2 -anchor w
   radiobutton .optscreen.a3.b3 -text "HW Vga" -variable screenlinux -relief flat -value 3 -anchor w
   pack .optscreen.a0.b0 .optscreen.a0.options -side left
   pack .optscreen.a1.b1  .optscreen.a1.options -side left
   pack .optscreen.a2.b2  -side top -pady 2 -anchor w
   pack .optscreen.a3.b3  -side top -pady 2 -anchor w
   pack .optscreen.a0  -side top -pady 2 -anchor w -fill x
   pack .optscreen.a1  -side top -pady 2 -anchor w -fill x
   pack .optscreen.a2  -side top -pady 2 -anchor w -fill x
   pack .optscreen.a3  -side top -pady 2 -anchor w -fill x
   pack .optscreen.a0.options .optscreen.a1.options  -side top -anchor e
}


################################################################################
#
# Show mouse options dialog
#
################################################################################
proc mouseoptions {} {

   toplevel .optmouse
   wm title .optmouse "Mouse driver options"
   wm geometry .optmouse +100+100

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

   frame .optmouse.a0
   frame .optmouse.a1
   frame .optmouse.a2
   frame .optmouse.a3
   frame .optmouse.a4
   radiobutton .optmouse.a0.b0 -text "GPM mouse" -variable mouselinux -relief flat -value 0 -anchor w
   radiobutton .optmouse.a1.b1 -text "Serial mouse" -variable mouselinux -relief flat -value 1 -anchor w
   radiobutton .optmouse.a2.b2 -text "Touch Pad" -variable mouselinux -relief flat -value 2 -anchor w
   radiobutton .optmouse.a3.b3 -text "Touch screen" -variable mouselinux -relief flat -value 3 -anchor w
   radiobutton .optmouse.a4.b4 -text "No Mouse" -variable mouselinux -relief flat -value 4 -anchor w
   pack .optmouse.a0.b0  -side top -pady 2 -anchor w
   pack .optmouse.a1.b1  -side top -pady 2 -anchor w
   pack .optmouse.a2.b2  -side top -pady 2 -anchor w
   pack .optmouse.a3.b3  -side top -pady 2 -anchor w
   pack .optmouse.a4.b4  -side top -pady 2 -anchor w
   pack .optmouse.a0  -side top -pady 2 -anchor w -fill x
   pack .optmouse.a1  -side top -pady 2 -anchor w -fill x
   pack .optmouse.a2  -side top -pady 2 -anchor w -fill x
   pack .optmouse.a3  -side top -pady 2 -anchor w -fill x
   pack .optmouse.a4  -side top -pady 2 -anchor w -fill x
}


################################################################################
#
# Show keyboard options dialog
#
################################################################################
proc kbdoptions {} {

   toplevel .optkbd
   wm title .optkbd "Keyboard driver options"
   wm geometry .optkbd +100+100

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

   frame .optkbd.a0
   frame .optkbd.a1
   radiobutton .optkbd.a0.b0 -text "TTY" -variable keyblinux -relief flat -value 0 -anchor w
   radiobutton .optkbd.a1.b0 -text "No keyboard" -variable keyblinux -relief flat -value 1 -anchor w
   pack .optkbd.a0.b0  -side top -pady 2 -anchor w
   pack .optkbd.a1.b0  -side top -pady 2 -anchor w
   pack .optkbd.a0  -side top -pady 2 -anchor w -fill x
   pack .optkbd.a1  -side top -pady 2 -anchor w -fill x
}


################################################################################
#
# Show framebuffer options dialog
#
################################################################################
proc fboptions {} {

   toplevel .optfb
   wm title .optfb "Framebuffer options"
   wm geometry .optfb +100+100

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

   frame .optfb.a0
   frame .optfb.a1
   frame .optfb.a2
   checkbutton .optfb.a0.vgafb -text "VGA fb" -variable vgafb -relief flat
   checkbutton .optfb.a1.portrait -text "Portrait mode" -variable portraitfb -relief flat
   checkbutton .optfb.a2.vt -text "VTerm Switch code included" -variable vtswitch -relief flat
   pack .optfb.a0.vgafb  -side top -pady 2 -anchor w
   pack .optfb.a1.portrait  -side top -pady 2 -anchor w
   pack .optfb.a2.vt  -side top -pady 2 -anchor w
   pack .optfb.a0 .optfb.a1 .optfb.a2 -side top -pady 2 -anchor w -fill x
}


################################################################################
#
# Show X11 options dialog
#
################################################################################
proc x11options {} {
   global x11screenwidth;
   global x11screenheight;
   global x11screendepth;
   global x11e15;

   toplevel .optx11
   wm title .optx11 "X11 options"
   wm geometry .optx11 +100+100

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

   frame .optx11.a0
   frame .optx11.a1
   frame .optx11.a2
   frame .optx11.a3
   label .optx11.a0.label -text "Screen width:" -anchor e
   entry .optx11.a0.width -width 5 -relief sunken
   label .optx11.a1.label -text "Screen height:" -anchor e
   entry .optx11.a1.height -width 5 -relief sunken
   label .optx11.a2.label -text "Screen depth:" -anchor e
   entry .optx11.a2.depth -width 5 -relief sunken
   checkbutton .optx11.a3.x11e15 -text "Use predefined model E15" -variable x11e15 -relief flat
   pack .optx11.a0.label .optx11.a0.width  -side left
   pack .optx11.a1.label .optx11.a1.height -side left
   pack .optx11.a2.label .optx11.a2.depth -side left
   pack .optx11.a3.x11e15  -side top -pady 2 -anchor w
   pack .optx11.a0  -side top -pady 2 -anchor w -fill x
   pack .optx11.a1  -side top -pady 2 -anchor w -fill x
   pack .optx11.a2  -side top -pady 2 -anchor w -fill x
   pack .optx11.a3  -side top -pady 2 -anchor w -fill x
   pack .optx11.a0.width .optx11.a1.height .optx11.a2.depth -side top -anchor e
   .optx11.a0.width insert 0 $x11screenwidth;
   .optx11.a1.height insert 0 $x11screenheight;
   .optx11.a2.depth insert 0 $x11screendepth;
}

proc x11options_ok {} {
   global x11screenwidth;
   global x11screenheight;
   global x11screendepth;
   set x11screenwidth [.optx11.a0.width get];
   set x11screenheight [.optx11.a1.height get];
   set x11screendepth [.optx11.a2.depth get];
}


################################################################################
#
# Show elks options dialog
#
################################################################################
proc elksoptions {} {
   global screenelks;

   toplevel .optelks
   wm title .optelks "ELKS options"
   wm geometry .optelks +100+100

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

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

   frame .optelks.sd.a0
   frame .optelks.sd.a1
   frame .optelks.sd.a2
   label .optelks.sd.label -text "Screen driver"
   pack .optelks.sd.label -side top
   radiobutton .optelks.sd.a0.b0 -text "ASM VGA (faster)" -variable screenelks -relief flat -value 0 -anchor w
   radiobutton .optelks.sd.a1.b1 -text "C VGA " -variable screenelks -relief flat -value 1 -anchor w
   radiobutton .optelks.sd.a2.b2 -text "Hercule" -variable screenelks -relief flat -value 2 -anchor w
   pack .optelks.sd.a0.b0  -side top -pady 2 -anchor w
   pack .optelks.sd.a1.b1  -side top -pady 2 -anchor w
   pack .optelks.sd.a2.b2  -side top -pady 2 -anchor w
   pack .optelks.sd.a0  -side top -pady 2 -anchor w -fill x
   pack .optelks.sd.a1  -side top -pady 2 -anchor w -fill x
   pack .optelks.sd.a2  -side top -pady 2 -anchor w -fill x
}


################################################################################
#
# Read data from the configuration file
#
################################################################################
proc readconfig {} {
   global configfile;

   global arch;
   global armtoolsprefix;
   global mipstoolsprefix;
   global rtemstoolsprefix;
   global optimize;
   global debug;
   global verbose
   global microwin;
   global nanox;
   global shlibs;
   global objframe;
   global nwidget;
   global microwindemo;
   global nanoxdemo;
   global screenpixtype;
   global server;
   global sharedmem;
   global havefileio;
   global havebmp;
   global havejpg;
   global incjpg;
   global libjpg;
   global haveft;
   global incft;
   global libft;
   global havet1;
   global inct1;
   global libt1;
   global havehzk;
   global hzkdir;	
   global hzkfontsize;
   global updateregions;
   global erasemove;
   global havemsfonts;
   global graypalette;
   global screenlinux;
   global vgafb;
   global portraitfb;
   global x11e15;
   global x11screenwidth;
   global x11screenheight;
   global x11screendepth;
   global mouselinux;
   global keyblinux;
   global vtswitch;
   global sa1100ltlend;
   global rtemsbuild;
   global rtemsbsp;
   global screenelks;

   set configfile [open "config" r+]

   set armtoolsprefix [getvalue "ARMTOOLSPREFIX" 0];
   set mipstoolsprefix [getvalue "MIPSTOOLSPREFIX" 0];
   set rtemstoolsprefix [getvalue "RTEMSTOOLSPREFIX" 0];

   set arch [getvalue "ARCH" 0];
   switch -exact $arch {
        LINUX-NATIVE {set arch 0;}
        LINUX-ARM {set arch 1;}
        LINUX-MIPS {set arch 2;}