mirror of
https://github.com/Stichting-MINIX-Research-Foundation/pkgsrc-ng.git
synced 2025-08-04 02:08:49 -04:00
54 lines
1.6 KiB
Tcl
54 lines
1.6 KiB
Tcl
$NetBSD: patch-ui-ctrlmenu.tcl,v 1.1.1.1 2008/12/16 19:35:46 sborrill Exp $
|
|
|
|
Add option to disable overlay UI
|
|
|
|
--- tcl/ui-ctrlmenu.tcl.orig 2008-12-14 12:21:43.000000000 +0000
|
|
+++ tcl/ui-ctrlmenu.tcl 2008-12-14 12:21:55.000000000 +0000
|
|
@@ -478,7 +478,8 @@
|
|
set transmitButton $w.send
|
|
global logoButton
|
|
set logoButton $w.logo
|
|
-
|
|
+ global overlayEnabled
|
|
+ set overlayEnabled [ yesno overlayEnabled ]
|
|
checkbutton $w.send -text "Transmit" \
|
|
-relief raised -command transmit \
|
|
-anchor w -variable transmitButtonState -font $f \
|
|
@@ -494,9 +495,12 @@
|
|
-relief raised -command logo_transmit \
|
|
-anchor w -variable logoButtonState -font $f \
|
|
-state normal -highlightthickness 0
|
|
-
|
|
# pack $w.send $w.release $w.freeze -fill both
|
|
- pack $w.send $w.logo $w.release -fill both
|
|
+ pack $w.send -fill both
|
|
+ if $overlayEnabled {
|
|
+ pack $w.logo -fill both
|
|
+ }
|
|
+ pack $w.release -fill both
|
|
}
|
|
|
|
proc doNothing { args } {
|
|
@@ -1656,7 +1660,8 @@
|
|
|
|
proc build.xmit w {
|
|
set f [smallfont]
|
|
-
|
|
+ global overlayEnabled
|
|
+ set overlayEnabled [ yesno overlayEnabled ]
|
|
label $w.label -text Transmission
|
|
frame $w.frame -relief sunken -borderwidth 2
|
|
pack $w.label -fill x
|
|
@@ -1672,8 +1677,9 @@
|
|
build.titlemaker $w.frame.combined.tm
|
|
|
|
pack $w.frame.combined.right -side top -expand 1 -fill x -padx 10 -anchor w
|
|
- pack $w.frame.combined.tm -side bottom -expand 1 -fill y -pady 10 -anchor w
|
|
-
|
|
+ if $overlayEnabled {
|
|
+ pack $w.frame.combined.tm -side bottom -expand 1 -fill y -pady 10 -anchor w
|
|
+ }
|
|
pack $w.frame.buttons -side left -padx 6
|
|
pack $w.frame.combined -side right -expand 1 -fill x -padx 10 -anchor c
|
|
|