/usr/share/astk/ihm_etude.tcl is in code-aster-gui 1.8.4-5.
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 | #########################################################################
# COPYRIGHT (C) 2003 EDF R&D WWW.CODE-ASTER.ORG #
# #
# 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; IF NOT, WRITE TO : EDF R&D CODE_ASTER, #
# 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE. #
#########################################################################
# $Id: ihm_etude.tcl 653 2004-09-24 14:44:45Z mcourtoi $
# Onglet ETUDE
#################################################################
proc affiche_etude {} {
pack [frame $astk::ihm(fenetre).active -relief raised -bd 1] -anchor nw -fill both -expand 1
# frame bouton et chemin de base
grid [frame $astk::ihm(fenetre).active.base -relief raised -bd 1] -row 0 -column 0 -sticky new -padx 3 -pady 3
fenEEC2 $astk::ihm(fenetre).active.base [ashare::mess ihm 38]
pack [frame $astk::ihm(fenetre).active.base.basepath -bd 0] -padx 3 -pady 0 -fill x
# frame liste des fichiers et icones
grid [frame $astk::ihm(fenetre).active.princ -relief raised -bd 1] -row 1 -column 0 -sticky nsew -padx 3 -pady 3
set sw [ScrolledWindow $astk::ihm(fenetre).active.princ.lst]
set sf [ScrollableFrame $sw.f]
$sw setwidget $sf
set liste [$sf getframe]
$sf configure -constrainedwidth 1
# liste = ....active.princ.lst.f.frame
grid $sw -row 0 -column 0 -sticky nsew
grid [frame $astk::ihm(fenetre).active.princ.icone] -row 0 -column 1 -sticky nw
grid rowconfigure $astk::ihm(fenetre).active.princ 0 -weight 1
grid columnconfigure $astk::ihm(fenetre).active.princ 0 -weight 1
# frame argument
grid [frame $astk::ihm(fenetre).active.arg -relief raised -bd 1] -row 2 -column 0 -sticky sew -padx 3 -pady 3
grid rowconfigure $astk::ihm(fenetre).active 1 -weight 1
grid columnconfigure $astk::ihm(fenetre).active 0 -weight 1
chemin_base $astk::ihm(fenetre).active.base.basepath $liste etude
liste_fich $liste -1 etude
liste_icone $astk::ihm(fenetre).active.princ.icone $liste etude
affiche_arg $astk::ihm(fenetre).active.arg
}
# Onglet TESTS
#################################################################
proc affiche_tests {} {
pack [frame $astk::ihm(fenetre).active -relief raised -bd 1] -anchor nw -fill both -expand 1
# frame bouton et chemin de base
grid [frame $astk::ihm(fenetre).active.base -relief raised -bd 1] -row 0 -column 0 -sticky new -padx 3 -pady 3
fenEEC2 $astk::ihm(fenetre).active.base [ashare::mess ihm 39]
pack [frame $astk::ihm(fenetre).active.base.basepath -bd 0] -padx 3 -pady 0 -fill x
# frame liste des fichiers et icones
grid [frame $astk::ihm(fenetre).active.princ -relief raised -bd 1] -row 1 -column 0 -sticky nsew -padx 3 -pady 3
set sw [ScrolledWindow $astk::ihm(fenetre).active.princ.lst]
set sf [ScrollableFrame $sw.f]
$sw setwidget $sf
set liste [$sf getframe]
$sf configure -constrainedwidth 1
# liste = ....active.princ.lst.f.frame
grid $sw -row 0 -column 0 -sticky nsew
grid [frame $astk::ihm(fenetre).active.princ.icone] -row 0 -column 1 -sticky nw
grid rowconfigure $astk::ihm(fenetre).active.princ 0 -weight 1
grid columnconfigure $astk::ihm(fenetre).active.princ 0 -weight 1
# frame argument
grid [frame $astk::ihm(fenetre).active.arg -relief raised -bd 1] -row 2 -column 0 -sticky sew -padx 3 -pady 3
grid rowconfigure $astk::ihm(fenetre).active 1 -weight 1
grid columnconfigure $astk::ihm(fenetre).active 0 -weight 1
chemin_base $astk::ihm(fenetre).active.base.basepath $liste tests
liste_fich $liste -1 tests
liste_icone $astk::ihm(fenetre).active.princ.icone $liste tests
affiche_arg $astk::ihm(fenetre).active.arg
}
|