/usr/share/elmerpost/tcl/text.tcl is in elmer-common 6.1.0.svn.5396.dfsg2-4ubuntu1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 | #/*****************************************************************************
# *
# * Elmer, A Finite Element Software for Multiphysical Problems
# *
# * Copyright 1st April 1995 - , CSC - IT Center for Science Ltd., Finland
# *
# * This program is free software; you can redistribute it and/or
# * modify it under the terms of the GNU General Public License
# * as published by the Free Software Foundation; either version 2
# * of the License, or (at your option) any later version.
# *
# * This program is distributed in the hope that it will be useful,
# * but WITHOUT ANY WARRANTY; without even the implied warranty of
# * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# * GNU General Public License for more details.
# *
# * You should have received a copy of the GNU General Public License
# * along with this program (in file fem/GPL-2); if not, write to the
# * Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
# * Boston, MA 02110-1301, USA.
# *
# *****************************************************************************/
#*******************************************************************************
#*
#* Text display utility widget.
#*
#*******************************************************************************
#*
#* Author: Juha Ruokolainen
#*
#* Address: CSC - IT Center for Science Ltd.
#* Keilaranta 14, P.O. BOX 405
#* 02101 Espoo, Finland
#* Tel. +358 0 457 2723
#* Telefax: +358 0 457 2302
#* EMail: Juha.Ruokolainen@csc.fi
#*
#* Date: 26 Sep 1995
#*
#* Modified by:
#*
#* Date of modification:
#*
#*******************************************************************************
#
# User level command for setting text parametrs
#
set txt_x 0
set txt_y 0
set txt_z -1
set txt_str ""
set txt_fontname ""
#
# Create a text editor toplevel window for a user to use.
# There can be several editors running at any time provided
# a different name for editor is given at each invokation.
#
# 12 Sep 1995
#
proc txt_Edit { name {UpdateProc text} } {
global txt_x txt_y txt_z txt_str txt_fontname
set txt_edit .txt_edit$name
if { [winfo exists $txt_edit] } { destroy $txt_edit }
toplevel $txt_edit
place_window $txt_edit
wm minsize $txt_edit 500 100
wm title $txt_edit $name
label $txt_edit.title -height 1;
pack $txt_edit.title -side top -expand 1 -fill both
#
# Font name
#
frame $txt_edit.font
entry $txt_edit.font.str -relief sunken -width 40 -textvariable txt_fontname
pack $txt_edit.font
pack $txt_edit.font.str
#
#
# List box containing font names
#
frame $txt_edit.lbox -relief sunken -bg lightblue
listbox $txt_edit.lbox.list -yscroll "$txt_edit.lbox.scroll set"
scrollbar $txt_edit.lbox.scroll -command "$txt_edit.lbox.list yview"
pack $txt_edit.lbox.scroll -side left -fill y
pack $txt_edit.lbox.list -side left -expand 1 -fill both
pack $txt_edit.lbox -side top -expand 1 -fill both
bind $txt_edit.lbox.list <Double-1> "txt_SetListName %W; destroy $txt_edit"
#
# button box at window bottom (Apply,OK,Cancel)
#
frame $txt_edit.bbox -bg lightblue
button $txt_edit.bbox.ok -text "OK" -command "destroy $txt_edit;"
button $txt_edit.bbox.cancel -text "Cancel" -command "destroy $txt_edit"
pack $txt_edit.bbox.ok -side left -expand 1 -fill x
pack $txt_edit.bbox.cancel -side left -expand 1 -fill x
pack $txt_edit.bbox -side top -expand 1 -fill both
#
# add font names to listbox
#
txt_AddFontNames $txt_edit.lbox.list
set oldfocus [focus]
grab $txt_edit
focus $txt_edit
tkwait window $txt_edit
if { [winfo exists $txt_edit] } {
bind $txt_edit <Destroy> {};
destroy $txt_edit
}
focus $oldfocus
return $txt_fontname
}
#
# Get fontr name from listbox
#
# 12 Sep 1995
#
proc txt_SetListName {w} {
global txt_fontname
set txt_fontname [$w get [$w curselection]]
}
#
# Add font names to a listbox given as argument
#
# 13 Sep 1995
#
proc txt_AddFontNames {w} {
global NumberOfFonts FontNames
do i 0 [@ $NumberOfFonts-1] { $w insert end $FontNames($i) }
}
|