<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>8.1 Dialogs</TITLE><LINK href="ozdoc.css" rel="stylesheet" type="text/css"></HEAD><BODY><TABLE align="center" border="0" cellpadding="6" cellspacing="6" class="nav"><TR bgcolor="#DDDDDD"><TD><A href="node41.html">- Up -</A></TD><TD><A href="node43.html#section.tools.error">Next >></A></TD></TR></TABLE><DIV id="section.tools.dialogs"><H2><A name="section.tools.dialogs">8.1 Dialogs</A></H2><P><A name="label333"></A> A dialog displays some graphical information and several buttons. A simple abstraction to build dialogs is provided by the class <CODE>TkTools<SPAN class="keyword">.</SPAN>dialog</CODE>. </P><P> <A href="node42.html#figure.tools.dialog">Figure 8.1</A> shows an example dialog for deleting a file. The class <CODE>TkTools<SPAN class="keyword">.</SPAN>dialog</CODE> is a subclass of <CODE>Tk<SPAN class="keyword">.</SPAN>frame</CODE>. Creating and initializing an instance of this class creates a toplevel widget together with buttons displayed at the bottom of the toplevel widget. The instance itself serves as container for user-defined widgets that are displayed at the top of the dialog (as the label and the entry widget in our example). </P><P> </P><DIV id="figure.tools.dialog"><HR><P><A name="figure.tools.dialog"></A></P><P> </P><DIV align="center"><IMG alt="" src="dialog.gif"></DIV><P> </P><DL class="anonymous"><DD class="code"><CODE>D={New TkTools<SPAN class="keyword">.</SPAN>dialog<BR> tkInit(title: <SPAN class="string">'Remove File'</SPAN> <BR> buttons: [<SPAN class="string">'Okay'</SPAN> <SPAN class="keyword">#</SPAN> <BR> <SPAN class="keyword">proc</SPAN><SPAN class="variablename"> </SPAN>{<SPAN class="functionname">$</SPAN>}<BR> <SPAN class="keyword">try</SPAN> <BR> {OS<SPAN class="keyword">.</SPAN>unlink {E tkReturn(get $)}}<BR> {D tkClose}<BR> <SPAN class="keyword">catch</SPAN> _ <SPAN class="keyword">then</SPAN> <SPAN class="keyword">skip</SPAN> <BR> <SPAN class="keyword">end</SPAN> <BR> <SPAN class="keyword">end</SPAN> <BR> <SPAN class="string">'Cancel'</SPAN> <SPAN class="keyword">#</SPAN> tkClose]<BR> default: 1)}<BR>L={New Tk<SPAN class="keyword">.</SPAN>label tkInit(parent:D text:<SPAN class="string">'File name:'</SPAN>)}<BR>E={New Tk<SPAN class="keyword">.</SPAN>entry tkInit(parent:D bg:wheat width:20)}<BR>{Tk<SPAN class="keyword">.</SPAN>batch [pack(L E side:left pady:2<SPAN class="keyword">#</SPAN>m) focus(E)]}</CODE></DD></DL><P> </P><P class="caption"><STRONG>Figure 8.1:</STRONG> A dialog to remove files.</P><HR></DIV><P> </P><P> The initialization message for a dialog must contain the <CODE>title</CODE> option, which gives the title of the dialog. The buttons to be displayed are specified by a list of pairs, where the first pair in the list describes the leftmost button. The pair consists of the label of the button and the action for the button. The action can be also the atom <CODE>tkClose</CODE>, which means that the action of the button sends a <CODE>tkClose</CODE> message to the dialog. In a similar manner, the action can be a unary tuple with label <CODE>tkClose</CODE>, which means that first the action specified by the tuple's argument is executed and then the dialog is closed. The <CODE>default</CODE> option specifies which button should be the default one. The default button is marked by a sunken frame drawn around the button. </P><P> In the above example, pressing the <CODE><SPAN class="string">'Okay'</SPAN></CODE> button executes an <CODE>rm</CODE> command to remove the file with the name as given by the entry widget <CODE>E</CODE>. Only if execution of this command returns <CODE>0</CODE>, the dialog is closed. </P><P> The class <CODE>TkTools<SPAN class="keyword">.</SPAN>dialog</CODE> is a subclass of <CODE>Tk<SPAN class="keyword">.</SPAN>frame</CODE>. In particular it allows to wait until the dialog object gets closed. For example, the execution of </P><BLOCKQUOTE class="code"><CODE>{Wait D<SPAN class="keyword">.</SPAN>tkClosed}</CODE></BLOCKQUOTE><P> blocks until the dialog in the above example is closed. </P></DIV><TABLE align="center" border="0" cellpadding="6" cellspacing="6" class="nav"><TR bgcolor="#DDDDDD"><TD><A href="node41.html">- Up -</A></TD><TD><A href="node43.html#section.tools.error">Next >></A></TD></TR></TABLE><HR><ADDRESS><A href="http://www.ps.uni-sb.de/~schulte/">Christian Schulte</A><BR><SPAN class="version">Version 1.4.0 (20090610)</SPAN></ADDRESS></BODY></HTML>
distrib
>
Mandriva
>
2010.0
>
i586
>
media
>
contrib-release
>
by-pkgid
>
bd5c3d824c3db63ffd9226c15941e6ad
>
files
>
2377
