Hi,
I have a tape made with mksysb on an AIX machine that will not restore, the system is dead to the point of needing an op sys reload.
I am trying to restore some critical data files and can read the tape image with dd on another system (SCO). I have worked out the file headers enough to... (0 Replies)
can someone tell my why the puts is not reflecting the variable?
CUT -->
set fp
while {-1 != } {
button .a${line} -text "${line} " -width 20 -command {
puts $line
}
pack .a${line}
} (0 Replies)
Hello Tcl Experts,
set i 0
while { $i < 10 } {
puts "$i"
incr i
}
I am trying to print the value of "i" at the same place. i.e. it should first print "1", then in next iteration print "2" over the location of "1" and so on.... (i.e. in every iteration, delete the previous number and... (2 Replies)
Does any one know how to capture the output of command called from a TCL script?
I cannot figure this out. I've been working on it for 4 hours now :confused: (2 Replies)
Hello,
Can someone explaine me the meaning of this program:
#! /usr/bin/tclsh
set mctal
set a
set b
set c
set d
set e
while {! line cell]} {
}
while {! line]} {
}
while {! line cell]} {
}
while {! line]} {
} (0 Replies)
Hi,
I am just going to start learning perl, but i have about tcl that it is easy. So , i am confused that whether to go for tcl or perl. I am just learning it as my interest, but still in future which one of these will benefit me. Also please guide me about tk, can we make GUI based applications... (4 Replies)
i am new one to tcl/tk
OTP-ARB:/home/ponmuthu/tcl=>/usr/bin/tclsh
tclsh tclsh8.4
OTP-ARB:/home/ponmuthu/tcl=>/usr/bin/tclsh
% wish
Application initialization failed: no display name and no $DISPLAY environment variable
when i give like that i am getting error Application... (0 Replies)
Dear Users
I'm struck by while the following tcl script.
foreach l {
set w($l) {}
set fsum 0
foreach ftemp $f($l) {
set fsum
lappend w($l) $fsum
}
}
It shows me error as "missing operand at _@_
in expression "0.10308400000000001 + _@_* 0.4 * 1"
... (0 Replies)
I need to read a file, the file has a table in it. From the table I need to choose all the rows for which AVG 2 value is greater than 0.050 and write them on to a separate file. Please help me with the TCL script for this.
Thanks in Advance (0 Replies)
Discussion started by: tonystark
0 Replies
LEARN ABOUT MOJAVE
tk_dialog
tk_dialog(n) Tk Built-In Commands tk_dialog(n)
__________________________________________________________________________________________________________________________________________________NAME
tk_dialog - Create modal dialog and wait for response
SYNOPSIS
tk_dialog window title text bitmap default string string ...
_________________________________________________________________DESCRIPTION
This procedure is part of the Tk script library. Its arguments describe a dialog box:
window Name of top-level window to use for dialog. Any existing window by this name is destroyed.
title Text to appear in the window manager's title bar for the dialog.
text Message to appear in the top portion of the dialog box.
bitmap If non-empty, specifies a bitmap to display in the top portion of the dialog, to the left of the text. If this is an empty string
then no bitmap is displayed in the dialog.
default
If this is an integer greater than or equal to zero, then it gives the index of the button that is to be the default button for the
dialog (0 for the leftmost button, and so on). If less than zero or an empty string then there will not be any default button.
string There will be one button for each of these arguments. Each string specifies text to display in a button, in order from left to
right.
After creating a dialog box, tk_dialog waits for the user to select one of the buttons either by clicking on the button with the mouse or
by typing return to invoke the default button (if any). Then it returns the index of the selected button: 0 for the leftmost button, 1
for the button next to it, and so on. If the dialog's window is destroyed before the user selects one of the buttons, then -1 is returned.
While waiting for the user to respond, tk_dialog sets a local grab. This prevents the user from interacting with the application in any
way except to invoke the dialog box.
EXAMPLE
set reply [tk_dialog .foo "The Title" "Do you want to say yes?"
questhead 0 Yes No "I'm not sure"]
SEE ALSO
tk_messageBox(n)
KEYWORDS
bitmap, dialog, modal
Tk 4.1 tk_dialog(n)