python/progs/python-widgets.scm · texmacs/plugins

代码拉取完成,页面将自动刷新

开源项目 > 应用工具 > 文本编辑 &&

扫描微信二维码支付

取消

支付完成

richgiteeai

Watch

不关注关注所有动态仅关注版本发行动态关注但不提醒动态

1 Star 7 Fork 1

texmacs/plugins

代码 Issues 0 Pull Requests 0 Wiki 统计流水线

服务

加入 Gitee

与超过 1400万开发者一起发现、参与优秀开源项目,私有仓库也完全免费 :)

免费加入

已有帐号? 立即登录

文件

master

分支 (6)

管理

master

win/sage

win/gnuplot_extra

win/gnuplot

win/graphviz

win/asymptote

该仓库未声明开源许可证文件(LICENSE),使用请关注具体项目描述及其代码上游依赖。

项目仓库所选许可证以仓库主分支所使用许可证为准

克隆/下载

HTTPS SSH SVN SVN+SSH 下载ZIP

提示

下载代码请复制以下命令到终端执行

为确保你提交的代码身份被 Gitee 正确识别,请执行以下命令完成配置

git config --global user.name userName 
git config --global user.email userEmail

初次使用 SSH 协议进行代码克隆、推送等操作时,需按下述提示完成 SSH 配置

1 生成 RSA 密钥

2 获取 RSA 公钥内容,并配置到 SSH公钥中

在 Gitee 上使用 SVN,请访问使用指南

使用 HTTPS 协议时,命令行会出现如下账号密码验证步骤。基于安全考虑,Gitee 建议配置并使用私人令牌替代登录密码进行克隆、推送等操作

Username for 'https://gitee.com': userName

Password for 'https://userName@gitee.com': # 私人令牌

分支 6

标签 0

plugins

python

progs

python-widgets.scm

python-widgets.scm 2.54 KB

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; MODULE : python-widgets.scm
;; DESCRIPTION : Widgets for the python plugin
;; COPYRIGHT : (C) 2014 Miguel de Benito Delgado
;;
;; This software falls under the GNU general public license version 3 or later.
;; It comes WITHOUT ANY WARRANTY WHATSOEVER. For details, see the file LICENSE
;; in the root directory or <http://www.gnu.org/licenses/gpl-3.0.html>.
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(texmacs-module (python-widgets)
 (:use (kernel gui menu-define) (kernel gui menu-widget)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; A very simple help widget.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(define tmpy-help-text "No object selected")
(define tmpy-help-source "No source code available")
(define tmpy-help-file "No source file available")

(define (tmpy-help-content)
 `(with "bg-color" "#fdfdfd"
 (document
 (with "ornament-shape" "rounded" "ornament-color" "pastel yellow"
 "par-left" "2em" "par-right" "2em"
 (ornamented
 (document
 (concat (htab "5mm") (large (strong "Description")) 
 (htab "5mm")))))
 (with "par-left" "1em" "par-right" "1em" ; ignored, why?
 ,tmpy-help-text)
 (with "ornament-shape" "rounded" "ornament-color" "pastel yellow"
 "par-left" "2em" "par-right" "2em"
 (ornamented
 (document
 (concat (htab "5mm") (large (strong "Source code"))
 (htab "5mm")))))
 (with "par-left" "1em" "par-right" "1em" ; ignored, why?
 (concat (htab "5mm") (em ,tmpy-help-file) (htab "5mm")))
 (with "par-left" "1em" "par-right" "1em" ; ignored, why?
 (python-code ,tmpy-help-source)))))

(tm-widget (tmpy-help-widget close)
 (resize '("400px" "800px" "4000px") '("300px" "600px" "4000px")
 (refreshable "tmpy-help-widget-content"
 (scrollable
 (texmacs-output 
 (stree->tree (tmpy-help-content))
 '(style "generic"))))
 (bottom-buttons >>> ("Close" (close)))))

(tm-define (tmpy-open-help text source file)
 (set! tmpy-help-text 
 (verbatim-snippet->texmacs text))
 ;(acons "verbatim->texmacs:wrap" "on" '())))
 (set! tmpy-help-source (verbatim-snippet->texmacs source))
 (set! tmpy-help-file file)
 (dialogue-window tmpy-help-widget noop "Python help"))

一键复制编辑原始数据按行查看历史

Joris van der Hoeven 提交于 2023年08月15日 18:23 +08:00 . More flexible 'resize' primitive for menus

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; MODULE : python-widgets.scm
;; DESCRIPTION : Widgets for the python plugin
;; COPYRIGHT : (C) 2014 Miguel de Benito Delgado
;;
;; This software falls under the GNU general public license version 3 or later.
;; It comes WITHOUT ANY WARRANTY WHATSOEVER. For details, see the file LICENSE
;; in the root directory or <http://www.gnu.org/licenses/gpl-3.0.html>.
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(texmacs-module (python-widgets)
 (:use (kernel gui menu-define) (kernel gui menu-widget)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; A very simple help widget.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(define tmpy-help-text "No object selected")
(define tmpy-help-source "No source code available")
(define tmpy-help-file "No source file available")

(define (tmpy-help-content)
 `(with "bg-color" "#fdfdfd"
 (document
 (with "ornament-shape" "rounded" "ornament-color" "pastel yellow"
 "par-left" "2em" "par-right" "2em"
 (ornamented
 (document
 (concat (htab "5mm") (large (strong "Description")) 
 (htab "5mm")))))
 (with "par-left" "1em" "par-right" "1em" ; ignored, why?
 ,tmpy-help-text)
 (with "ornament-shape" "rounded" "ornament-color" "pastel yellow"
 "par-left" "2em" "par-right" "2em"
 (ornamented
 (document
 (concat (htab "5mm") (large (strong "Source code"))
 (htab "5mm")))))
 (with "par-left" "1em" "par-right" "1em" ; ignored, why?
 (concat (htab "5mm") (em ,tmpy-help-file) (htab "5mm")))
 (with "par-left" "1em" "par-right" "1em" ; ignored, why?
 (python-code ,tmpy-help-source)))))

(tm-widget (tmpy-help-widget close)
 (resize '("400px" "800px" "4000px") '("300px" "600px" "4000px")
 (refreshable "tmpy-help-widget-content"
 (scrollable
 (texmacs-output 
 (stree->tree (tmpy-help-content))
 '(style "generic"))))
 (bottom-buttons >>> ("Close" (close)))))

(tm-define (tmpy-open-help text source file)
 (set! tmpy-help-text 
 (verbatim-snippet->texmacs text))
 ;(acons "verbatim->texmacs:wrap" "on" '())))
 (set! tmpy-help-source (verbatim-snippet->texmacs source))
 (set! tmpy-help-file file)
 (dialogue-window tmpy-help-widget noop "Python help"))