labentry.html

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

HTML
95 行
字号 
<?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>Tkx::LabEntry - Labeled entry widget</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>Tkx::LabEntry - Labeled entry widget</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="#license">LICENSE</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>Tkx::LabEntry - Labeled entry widget</p>
<p>
</p>
<hr />
<h1><a name="synopsis">SYNOPSIS</a></h1>
<pre>
  <span class="keyword">use</span> <span class="variable">Tkx</span><span class="operator">;</span>
  <span class="keyword">use</span> <span class="variable">Tkx::LabEntry</span><span class="operator">;</span>
</pre>
<pre>
  <span class="keyword">my</span> <span class="variable">$mw</span> <span class="operator">=</span> <span class="variable">Tkx::widget</span><span class="operator">-&gt;</span><span class="variable">new</span><span class="operator">(</span><span class="string">"."</span><span class="operator">);</span>
</pre>
<pre>
  <span class="keyword">my</span> <span class="variable">$e</span> <span class="operator">=</span> <span class="variable">$mw</span><span class="operator">-&gt;</span><span class="variable">new_tkx_LabEntry</span><span class="operator">(</span><span class="string">-label</span> <span class="operator">=&gt;</span> <span class="string">"Name"</span><span class="operator">);</span>
  <span class="variable">$e</span><span class="operator">-&gt;</span><span class="variable">g_pack</span><span class="operator">;</span>
</pre>
<pre>
  <span class="keyword">my</span> <span class="variable">$b</span> <span class="operator">=</span> <span class="variable">$mw</span><span class="operator">-&gt;</span><span class="variable">new_button</span><span class="operator">(</span>
      <span class="string">-text</span> <span class="operator">=&gt;</span> <span class="string">"Done"</span><span class="operator">,</span>
      <span class="string">-command</span> <span class="operator">=&gt;</span> <span class="keyword">sub</span><span class="variable"> </span><span class="operator">{</span>
          <span class="keyword">print</span> <span class="variable">$e</span><span class="operator">-&gt;</span><span class="variable">get</span><span class="operator">,</span> <span class="string">"\n"</span><span class="operator">;</span>
          <span class="variable">$mw</span><span class="operator">-&gt;</span><span class="variable">g_destroy</span><span class="operator">;</span>
      <span class="operator">},</span>
  <span class="operator">);</span>
  <span class="variable">$b</span><span class="operator">-&gt;</span><span class="variable">g_pack</span><span class="operator">;</span>
</pre>
<pre>
  <span class="variable">Tkx::MainLoop</span><span class="operator">();</span>
</pre>
<p>
</p>
<hr />
<h1><a name="description">DESCRIPTION</a></h1>
<p>The <code>Tkx::LabEntry</code> module implements a trivial megawidget.  Its main
purpose is to demonstrate how to use the <code>Tkx::MegaConfig</code> baseclass.</p>
<p>Once the <code>Tkx::LabEntry</code> module has been loaded, then its widgets
can be constructed in the normal way using the <code>tkx_LabEntry</code> name.
Besides having a label (whose text can be accessed with the <code>-label</code>
configuration option), these widgets behave exactly like an <code>entry</code>
would.</p>
<p>
</p>
<hr />
<h1><a name="license">LICENSE</a></h1>
<p>This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.</p>
<p>Copyright 2005 ActiveState.  All rights reserved.</p>
<p>
</p>
<hr />
<h1><a name="see_also">SEE ALSO</a></h1>
<p>The source code of Tkx::LabEntry.</p>
<p><a href="../../lib/Tkx/MegaConfig.html">the Tkx::MegaConfig manpage</a>, <a href="../../lib/Tkx.html">the Tkx manpage</a></p>

</body>

</html>

labentry.html - 源码说明

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

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

⌨️ 快捷键说明

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