Hi, I’ve writen a little python script that just pops up a message box containing the text passed on the command line. I want to pop it up only when the window —resulting from a previous call— is not open. from Tkinter import * import tkMessageBox root = Tk() root.withdraw() # TODO not if a window with this title exists tkMessageBox...
I have written code to read a windows bitmap and would now like to display it with ltk. How can I construct an appropriate object? Is there such functionality in ltk? If not how can I do it directly interfacing to tk? ...
Tcl/Tk is a simple way to script small GUIs. Can anyone give a nice example with a button and a text widget. When the button is pressed should a shell command be executed and the output piped to the text widget. If you have other nice and clean examples for useful tasks, please add them too. ...
The kind of functions are of the sort of: (defun display-all () "Display all items in the database." (dolist (item database) (format t "~{~a:~10t~a~%~}~%" item))) (defun prompt-read (prompt) (format query-io "~a: " prompt) (force-output query-io) (read-line query-io)) (defun prompt-for-item () (make-database (prompt...
Tk GUI's seem to be universally considered ugly, but I'd like to know why specifically. Some in the Tcl/Tk world would argue that this is a moot point as there is much better support now for native look and feel, which is a big reason I decided on Tcl/Tk. Now, however, the problem is, because I'm leveraging a Tcl/Starkit vfs (virtual ...
Does anybody know how to make the icon not show up? I'm looking for a way to have no icon at all. (Not a replacement) ...
I have an application that is built to work on Windows, Linux, and Solaris that uses the Perl/TK GUI. Due to constraints, we are limited to Perl/TK only. Moreover, we are limited to an old Perl/Tk version, 5.00404. I'd like to work within these limitations to make the GUI look as nice and modern as possible. Are there any web-resource...
I've begun prototyping a desktop app with Tcl and intend to present the idea to some venture capitalists. Neither desktop apps nor Tcl are in vogue and so I want to be prepared to counter any objections to this technology. Below are the pros as I see them, am looking forward to fleshing out plenty of cons I'm sure, but hopefully some m...
I'm using Pmw.Blt.Graph to plot a line graph. I need to mark up this graph with additional data visualized in a way that Graph doesn't seem to be able to draw. (I thought I could use line_create's trace parameter to do it, but trace's behavior currently breaks when you change the axis mins and maxes, which I need to do.) Some possible...
[cross posted again to Mahalo answers] My Perl/Tk script has an initial spreadsheet like grid displayed using the Tk::TableMatrix::Spreadsheet modules. My spreadsheet is programatically called $ss. This initial grid is wiped before the display of the first spreadsheet, with $ss->pack('forget'); The script as it is now also adds $mw-...
I've got a python GUI app in the workings, which I intend to use on both Windows and Mac. The documentation on Tkinter isn't the greatest, and google-fu has failed me. In short, I'm doing: c = Canvas( master=frame, width=settings.WINDOW_SIZE[0], height=settings.WINDOW_SIZE[1], background=settings.CANVAS_COLOUR ) file = ...
I have Tcl/Tk app that generates many forms, and would like to be able to configure the default widget fonts from a central location without having to configure each widget with the -font switch. #!/wish button .hello -text "Hello, World!" -command { exit } pack .hello puts "--- i would like to set this thing: [.hello configure -font...
I'm trying to spawn a Tk window from ruby script using ruby's Tk module. It works, but I cannot figure out a way to focus the spawned window. It's frustrating. If I run this code from terminal, as in $ruby screenup.rb the window spawns behind the terminal window. If I run as a shell script in Quicksilver, two windows spawn. One is t...
I want to do some graphic dialogs for my script but don't know how. I hear something about GTK-Server or something like that. If someone know how to link bash with tcl/tk I also be satisfied. Please do not post something like "change to C++" because my project must be a script in BASH, there are no other option. Any ideas? P.S. Sorry ...
Hi All, The following code produces pretty much what I want, but the scrollable pane on the left doesn't scroll. I am using ActivePerl 5.8.9 Build 825: The code is: use Tk; use Tk::Pane; use Tk::LabFrame; # create the application window my $MW = MainWindow->new ( -background => "GREY" ); # set the x/y size for the window $MW->geomet...
Before you ask, "Why are you using that old version of Perl?", it is out of my hands. I have to use the tools available to me for this project. My question is does anyone know if it is possible, and if so what the syntax looks like to use gridRowconfigure as follows: $main_window->gridRowconfigure(1, -weight => 1, -minsize => 171, -pa...
The tcl/tk widget iwidgets::combobox with a terrible flaw: when the list goes away, the focus goes away from the gui so you can't type in entry boxes unless you move the mouse out of the gui and back in. This problem has been noted in other places, but I have not seen any solution. a. is there a way to re-gain focus before exiting the...
I've been working with TCL/TK ,recently started to use TCL/TK with my automation applications and I'm hungry for knowledge. To continue with the long line of Hidden Feature questions, I would like to know any hidden or handy features of TCL/TK or any easy method to achieve some big operations ...
My Google-fu is failing me. Please, consider the following: http://tcl.activestate.com:8000/man/tcl8.4/TkCmd/cursors.htm Some of the cursors I understand easily enough, "watch" tells the user to wait, "left_ptr" indicates that I can select something under the cursor, "hand2" seems to be the "you're dragging something" cursor. What are ...
Here is some test code to illustrate my problem; use Tk; use POE qw( Loop::TkActiveState ); use Tk::Toplevel; POE::Session->create( inline_states => { _start => \ } ,over => sub { exit } } ); $poe_kernel->run(); exit 0; sub ui_start { my ($kernel, $session, $heap) = @_[KERNEL, SESSION, HEAP]; $heap->...