📄 xconfigure
字号:
.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;}
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -