首页 > 其他分享 >无涯教程-Clojure - Desktop – Displaying Labels函数

无涯教程-Clojure - Desktop – Displaying Labels函数

时间:2023-10-29 22:05:11浏览次数:42  
标签:标签 Labels 无涯 label content seesaw window too Desktop

可以在标签类的帮助下显示标签。以下程序显示了有关如何使用它的示例。

(ns web.core
   (:gen-class)
   (:require [seesaw.core :as seesaw]))
(defn -main [& args]
   (defn display
      [content]
      (let [window (seesaw/frame :title "Example")]
         (-> window
            (seesaw/config! :content content)
            (seesaw/pack!)
            (seesaw/show!))))
   (def label (seesaw/label
      :text "This is a label too"
      :background :white
      :foreground :black
      :font "ARIAL-BOLD-10"))
   (display label))

在上面的代码中,创建一个标签变量,该变量来自seesaw库的标签类,接下来,标签的文本设置为“This is a label too”。然后设置背景、前景色和字体。

当上面的代码运行时,您将获得以下窗口。

clojure desktop button

参考链接

https://www.learnfk.com/clojure/clojure-desktop-displaying-labels.html

标签:标签,Labels,无涯,label,content,seesaw,window,too,Desktop
From: https://blog.51cto.com/u_14033984/8081390

相关文章

  • 无涯教程-C语言 - 程序结构
    在研究C编程语言的基本构建块之前,让我们看一下C程序结构,以便在以后的章节中将其作为参考。示例代码让我们看一个简单的代码,该代码将打印"HelloLearnfk"一词-#include<stdio.h>intmain(){/*我是注释*/printf("Hello,Learnfk!\n");return0;}让我们......
  • 无涯教程-C语言 - 简介
    C是一种通用的编程语言,广泛用于系统软件与应用软件的开发。于1969年至1973年间,为了移植与开发UNIX操作系统,由丹尼斯·里奇与肯·汤普逊,以B语言为基础,在贝尔实验室设计、开发出来。C语言具有高效、灵活、功能丰富、表达力强和较高的可移植性等特点,在程序设计中备受青睐,成为最近25......
  • 无涯教程-Clojure - Desktop – See-saw函数
    跷跷板是一个可用于创建桌面应用程序的库。为了使用跷跷板,请首先从以下github链接下载.clj文件:https://github.com/daveray/seesaw然后创建一个示例桌面应用程序。以下是相同的代码。(nsweb.core(:gen-class)(:require[seesaw.core:asseesaw]))(defwindow(see......
  • 无涯教程-Clojure - commute函数
    通勤还用于更改引用类型的值,就像alter和ref-set一样,唯一的区别是,这也需要放在"dosync"块中。commute-语法(commuterefnamefun)参数   -'refname'是保存参考值的变量的名称。"fun"是用于更改引用类型的值的函数。返回值 -引用及其相应的新值。commute-示例......
  • 无涯教程-Clojure - alter函数
    此函数用于安全地更改引用类型的值,它在线程中运行,该线程不能被另一个进程访问,这就是为什么该命令始终需要与"dosync"方法相关联的原因。其次,要更改引用类型的值,需要调用一个函数以对该值进行必要的更改。alter-语法(alterrefnamefun)参数   - 'refname'是保存参......
  • 无涯教程-Clojure - dosync函数
    在包含表达式和任何嵌套调用的事务中运行表达式,如果没有任何线程在该线程上运行,则启动事务,任何未捕获的异常都将中止事务,并退出dosync。dosync-语法(dosyncexpression)参数   - "expression"是一组表达式,将出现在dosync块中。返回值 -无。dosync-示例以下......
  • 无涯教程-Clojure - ref函数
    这用于创建参考值。创建参考值时,有一个提供验证器函数的选项,该函数将验证创建的值。ref-语法(refxoptions)参数   - "x"是需要提供给参考的值,"options"是可以提供的一组选项。返回值- 引用及其对应的值。ref-示例以下程序显示了有关如何使用它的示例。(......
  • 无涯教程-Clojure - agent-error函数
    如果代理失败,则返回在代理的异步操作期间抛出的异常,如果代理没有失败,则返回nil。agent-error-语法(agent-erroragentname)参数   - "agentname"是应该为其设置agent-error函数的代理。返回值 - 如果代理失败,则返回在代理的异步操作过程中引发的异常。如果代......
  • 无涯教程-Clojure - Adding a New Key to the Structure函数
    由于结构是不可变的,因此可以将另一个键添加到结构中的唯一方法是创建新结构。示例(nsclojure.examples.example(:gen-class))(defnExample[](defstructEmployee:EmployeeName:Employeeid)(defemp(struct-mapEmployee:EmployeeName"Learnfk":Employeei......
  • 无涯教程-Clojure - send-off函数
    在某些情况下,为代理分配了实际上是阻止的函数。一个简单的示例是,考虑您正在从本质上是阻塞的文件中读取内容。send-off-语法(sendagentnamefunctionvalue)参数   - "agentname"是将发送函数重定向到的代理,"function"用于确定更改代理价值的方式,"value"是传递......