/usr/share/astk/ihm_execution.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 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 | #########################################################################
# 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_execution.tcl 653 2004-09-24 14:44:45Z mcourtoi $
# Onglet EXECUTION
#################################################################
proc affiche_surcharge {} {
global tk_version
set use_panedwindow 0
if { $tk_version < 8.4 } {
set use_panedwindow 0
}
set act $astk::ihm(fenetre).active
if { $use_panedwindow } {
pack [panedwindow $act -orient vertical] -anchor nw -fill both -expand 1
$act add [frame $act.haut] -sticky nsew
# frame bouton et chemin de base
grid [frame $act.haut.base -relief raised -bd 1] -row 0 -column 0 -sticky new -padx 3 -pady 3
fenEEC2 $act.haut.base [ashare::mess ihm 40]
pack [frame $act.haut.base.basepath -bd 0] -padx 3 -pady 0 -fill x
# frame liste des fichiers et icones
grid [frame $act.haut.src -relief raised -bd 1] -row 1 -column 0 -sticky nsew -padx 3 -pady 3
set sw [ScrolledWindow $act.haut.src.lst]
set sf [ScrollableFrame $sw.f]
$sw setwidget $sf
set liste [$sf getframe]
$sf configure -constrainedwidth 1
# liste = ....active.src.lst.f.frame
grid $sw -row 0 -column 0 -sticky nsew
grid [frame $act.haut.src.icone] -row 0 -column 1 -sticky nw
grid rowconfigure $act.haut.src 0 -weight 1
grid columnconfigure $act.haut.src 0 -weight 1
grid rowconfigure $act.haut 1 -weight 1
grid columnconfigure $act.haut 0 -weight 1
chemin_base $act.haut.base.basepath $liste sources
liste_fich $liste -1 sources
liste_icone $act.haut.src.icone $liste sources
$act add [frame $act.bas] -sticky nsew
# frame bouton
grid [frame $act.bas.base2 -relief raised -bd 1] -row 0 -column 0 -sticky new -padx 3 -pady 3
fenEEC2 $act.bas.base2 [ashare::mess ihm 41]
# frame liste des fichiers et icones
grid [frame $act.bas.prod -relief raised -bd 1] -row 1 -column 0 -sticky nsew -padx 3 -pady 3
set sw2 [ScrolledWindow $act.bas.prod.lst]
set sf2 [ScrollableFrame $sw2.f]
$sw2 setwidget $sf2
set liste2 [$sf2 getframe]
$sf2 configure -constrainedwidth 1
# liste = ....active.prod.lst.f.frame
grid $sw2 -row 0 -column 0 -sticky nsew
grid [frame $act.bas.prod.icone] -row 0 -column 1 -sticky nw
grid rowconfigure $act.bas.prod 0 -weight 1
grid columnconfigure $act.bas.prod 0 -weight 1
grid rowconfigure $act.bas 1 -weight 1
grid columnconfigure $act.bas 0 -weight 1
liste_fich $liste2 -1 surcharge
liste_icone $act.bas.prod.icone $liste2 surcharge
} else {
pack [frame $act -relief raised -bd 1] -anchor nw -fill both -expand 1
# frame bouton et chemin de base
grid [frame $act.base -relief raised -bd 1] -row 0 -column 0 -sticky new -padx 3 -pady 3
fenEEC2 $act.base [ashare::mess ihm 40]
pack [frame $act.base.basepath -bd 0] -padx 3 -pady 0 -fill x
# frame liste des fichiers et icones
grid [frame $act.src -relief raised -bd 1] -row 1 -column 0 -sticky nsew -padx 3 -pady 3
set sw [ScrolledWindow $act.src.lst]
set sf [ScrollableFrame $sw.f]
$sw setwidget $sf
set liste [$sf getframe]
$sf configure -constrainedwidth 1
# liste = ....active.src.lst.f.frame
grid $sw -row 0 -column 0 -sticky nsew
grid [frame $act.src.icone] -row 0 -column 1 -sticky nw
grid rowconfigure $act.src 0 -weight 1
grid columnconfigure $act.src 0 -weight 1
# frame bouton
grid [frame $act.base2 -relief raised -bd 1] -row 2 -column 0 -sticky new -padx 3 -pady 3
fenEEC2 $act.base2 [ashare::mess ihm 41]
# frame liste des fichiers et icones
grid [frame $act.prod -relief raised -bd 1] -row 3 -column 0 -sticky nsew -padx 3 -pady 3
set sw2 [ScrolledWindow $act.prod.lst]
set sf2 [ScrollableFrame $sw2.f]
$sw2 setwidget $sf2
set liste2 [$sf2 getframe]
$sf2 configure -constrainedwidth 1
# liste = ....active.prod.lst.f.frame
grid $sw2 -row 0 -column 0 -sticky nsew
grid [frame $act.prod.icone] -row 0 -column 1 -sticky nw
grid rowconfigure $act.prod 0 -weight 1
grid columnconfigure $act.prod 0 -weight 1
grid rowconfigure $act 1 -weight 1
grid rowconfigure $act 3 -weight 1
grid columnconfigure $act 0 -weight 1
chemin_base $act.base.basepath $liste sources
liste_fich $liste -1 sources
liste_icone $act.src.icone $liste sources
liste_fich $liste2 -1 surcharge
liste_icone $act.prod.icone $liste2 surcharge
}
}
|