fbox.html

来自「perl教程」· HTML 代码 · 共 113 行

HTML
113 行
字号 
<?xml version="1.0" ?>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<!-- saved from url=(0017)http://localhost/ -->
<script language="JavaScript" src="../../displayToc.js"></script>
<script language="JavaScript" src="../../tocParas.js"></script>
<script language="JavaScript" src="../../tocTab.js"></script>
<link rel="stylesheet" type="text/css" href="../../scineplex.css">
<title>Tk::FBox - a file dialog</title>
<link rel="stylesheet" href="../../Active.css" type="text/css" />
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
<link rev="made" href="mailto:" />
</head>

<body>

<script>writelinks('__top__',2);</script>
<h1><a>Tk::FBox - a file dialog</a></h1>
<p><a name="__index__"></a></p>

<!-- INDEX BEGIN -->

<ul>

	<li><a href="#name">NAME</a></li>
	<li><a href="#synopsis">SYNOPSIS</a></li>
	<li><a href="#description">DESCRIPTION</a></li>
	<li><a href="#copyright">COPYRIGHT</a></li>
	<li><a href="#see_also">SEE ALSO</a></li>
</ul>
<!-- INDEX END -->

<hr />
<p>
</p>
<h1><a name="name">NAME</a></h1>
<p>Tk::FBox - a file dialog</p>
<p>
</p>
<hr />
<h1><a name="synopsis">SYNOPSIS</a></h1>
<pre>
    <span class="keyword">use</span> <span class="variable">Tk::FBox</span><span class="operator">;</span>
    <span class="variable">$file</span> <span class="operator">=</span> <span class="variable">$mw</span><span class="operator">-&gt;</span><span class="variable">FBox</span><span class="operator">(...)-&gt;</span><span class="variable">Show</span><span class="operator">;</span>
</pre>
<p>
</p>
<hr />
<h1><a name="description">DESCRIPTION</a></h1>
<p><code>Tk::FBox</code> is the dialog implementation behind the <code>getOpenFile</code> and
<code>getSaveFile</code> method calls in the Unix/X11 world. As such, it
supports all options for these methods and additionally:</p>
<dl>
<dt><strong><a name="item__2dsortcmd__3d_3e_sub__7b__24__5b0_5d_cmp__24__5b1">-sortcmd =&gt; sub { $_[0] cmp $_[1] }</a></strong>

<dd>
<p>Specified a callback for changing the sorting of the icons in the
<code>IconList</code> widget. By default, perl's <code>cmp</code> operator will be used.</p>
</dd>
<dd>
<p>From the source code:</p>
</dd>
<dd>
<pre>
  <span class="comment"># Using -sortcmd is really strange :-(</span>
  <span class="comment"># $top-&gt;getOpenFile(-sortcmd =&gt; sub { package Tk::FBox; uc $b cmp uc $a});</span>
  <span class="comment"># or, un-perlish, but useable (now activated in code):</span>
  <span class="comment"># $top-&gt;getOpenFile(-sortcmd =&gt; sub { uc $_[1] cmp uc $_[0]});</span>
</pre>
</dd>
<dd>
<p>This is an experimental option!</p>
</dd>
</li>
<dt><strong><a name="item__2dtype__3d_3e__24type">-type =&gt; $type</a></strong>

<dd>
<p>Type should be &quot;open&quot; (default) or &quot;save&quot;.</p>
</dd>
</li>
<dt><strong><a name="item__2dfilter__3d_3e__24glob">-filter =&gt; $glob</a></strong>

<dd>
<p>To be documented...</p>
</dd>
</li>
<dt><strong><a name="item__2dforce__3d_3e__24bool">-force =&gt; $bool</a></strong>

<dd>
<p>If true, then there will be no dialog if a file already exists.</p>
</dd>
</li>
</dl>
<p>
</p>
<hr />
<h1><a name="copyright">COPYRIGHT</a></h1>
<p>The original tkfbox.tcl from Tcl/Tk is:</p>
<p>Copyright (c) 1994-1996 Sun Microsystems, Inc.</p>
<p>See the file &quot;license.terms&quot; for information on usage and redistribution
of this file, and for a DISCLAIMER OF ALL WARRANTIES.</p>
<p>Translated to Perl/Tk by Slaven Rezic &lt;<a href="mailto:slaven.rezic@berlin.de">slaven.rezic@berlin.de</a>&gt;.</p>
<p>
</p>
<hr />
<h1><a name="see_also">SEE ALSO</a></h1>
<p>Tk::getOpenFile, Tk::IconList.</p>

</body>

</html>

fbox.html - 源码说明

本页面展示了「perl教程」中的 fbox.html 源码文件，采用 HTML 编程语言编写，共 113 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与perl相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?