Conversion unix->dos->unix format fichier
Allan Cornet [Wed, 4 Aug 2004 08:12:17 +0000 (08:12 +0000)]
scilab/tcl/ged/Agregation.tcl

index 0929dcf..7babd6f 100644 (file)
-#Copyright INRIA\r
-#2004\r
-#Author: F.Leray\r
-\r
-set pwd [pwd]\r
-cd [file dirname [info script]]\r
-variable DEMODIR [pwd]\r
-cd $pwd\r
-\r
-\r
-\r
-variable DEMODIR\r
-\r
-lappend ::auto_path [file dirname  "$env(SCIPATH)/tcl/BWidget-1.7.0"]\r
-namespace inscope :: package require BWidget\r
-package require BWidget\r
-\r
-set sourcedir [file join "$env(SCIPATH)" "tcl" "utils"]\r
-\r
-source [file join $sourcedir Notebook.tcl]\r
-source [file join $sourcedir Combobox.tcl]\r
-package require combobox 2.3\r
-catch {namespace import combobox::*}\r
-\r
-global SELOBJECT\r
-global ged_handle_list_size\r
-global lalist\r
-global curgedindex\r
-global curgedobject\r
-\r
-global curvis\r
-\r
-set ww .axes\r
-catch {destroy $ww}\r
-toplevel $ww\r
-wm title $ww "Agregation Editor"\r
-wm iconname $ww "AE"\r
-wm geometry $ww 530x500\r
-\r
-\r
-set topf  [frame $ww.topf]\r
-set titf1 [TitleFrame $topf.titf1 -text "Graphic Editor"]\r
-\r
-set parent  [$titf1 getframe]\r
-set pw1  [PanedWindow $parent.pw -side top]\r
-set pane3  $pw1  \r
-\r
-\r
-\r
-# Make a frame scrollable\r
-\r
-set sw [ScrolledWindow $pane3.sw -relief sunken -borderwidth 2]\r
-# pack $sw -in .sw -fill both -expand true \r
-set sf [ScrollableFrame $sw.f]\r
-$sw setwidget $sf\r
-set uf [$sf getframe]\r
-\r
-\r
-set w $uf\r
-set fra [frame $w.frame -borderwidth 0]\r
-pack $fra  -anchor w -fill both\r
-\r
-#set w $ww\r
-#frame $w.frame -borderwidth 0\r
-#pack $w.frame -anchor w -fill both\r
-\r
-#Hierarchical selection\r
-set lalist ""\r
-for {set i 1} {$i<=$ged_handle_list_size} {incr i} { \r
-append lalist "\""\r
-append lalist "$SELOBJECT($i)" \r
-append lalist "\" "\r
-}\r
-\r
-set curgedobject $SELOBJECT($curgedindex)\r
-\r
-\r
-#Hiereachical viewer\r
-set fra [frame $w.frame.view  -borderwidth 0]\r
-pack $fra -in $w.frame  -side top  -fill x\r
-#frame $w.frame.view  -borderwidth 0\r
-#pack $w.frame.view  -in $w.frame  -side top  -fill x\r
-\r
-#label $w.frame.selgedobjectlabel  -height 0 -text "Edit properties for:    " -width 0 \r
-set lab [label $w.frame.selgedobjectlabel  -height 0 -text "Edit properties for:    " -width 0 ]\r
-pack $lab -in $w.frame.view   -side left\r
-\r
-set comb [ combobox $w.frame.selgedobject \\r
-              -borderwidth 2 \\r
-              -highlightthickness 3 \\r
-              -maxheight 0 \\r
-              -width 3 \\r
-              -textvariable curgedobject \\r
-              -editable false \\r
-              -background white \\r
-              -command [list SelectObject ]]\r
-pack $comb  -in $w.frame.view  -fill x\r
-eval $w.frame.selgedobject list insert end $lalist\r
-#pack $w.frame.selgedobjectlabel -in $w.frame.view   -side left\r
-#pack $w.frame.selgedobject   -in $w.frame.view   -fill x\r
-\r
-Notebook:create $uf.n -pages {Style} -pad 20 \r
-pack $uf.n -fill both -expand 1\r
-\r
-########### Style onglet ##########################################\r
-###################################################################\r
-set w [Notebook:frame  $uf.n Style]\r
-\r
-frame $w.frame -borderwidth 0\r
-pack $w.frame -anchor w -fill both\r
-\r
-#visibility\r
-frame $w.frame.vis -borderwidth 0\r
-pack $w.frame.vis  -in $w.frame  -side top -fill x\r
-label $w.frame.vislabel  -text "       Visibility: "\r
-checkbutton $w.frame.visib  -textvariable curvis  \\r
-    -variable curvis  -onvalue "on" -offvalue "off" \\r
-    -command "toggleVis" \r
-pack $w.frame.vislabel -in $w.frame.vis  -side left\r
-pack $w.frame.visib  -in $w.frame.vis    -side left -fill x\r
-\r
-\r
-#sep bar\r
-frame $w.sep -height 2 -borderwidth 1 -relief sunken\r
-pack $w.sep -fill both  -pady 25m\r
-\r
-#exit button\r
-frame $w.buttons\r
-pack $w.buttons -side bottom -fill x -pady 2m\r
-button $w.buttons.dismiss -text Quit -command "destroy $ww" \r
-pack $w.buttons.dismiss  -side bottom -expand 1\r
-\r
-\r
-pack $sw $pw1 -fill both -expand yes\r
-pack $titf1 -padx 4 -side left -fill both -expand yes\r
-pack $topf -fill both -pady 2 -expand yes\r
-\r
-\r
-#proc associes\r
-proc toggleVis {} {\r
-global curvis\r
-ScilabEval "global ged_handle;ged_handle.visible='$curvis'"\r
-}\r
-\r
+#Copyright INRIA
+#2004
+#Author: F.Leray
+
+set pwd [pwd]
+cd [file dirname [info script]]
+variable DEMODIR [pwd]
+cd $pwd
+
+
+
+variable DEMODIR
+
+lappend ::auto_path [file dirname  "$env(SCIPATH)/tcl/BWidget-1.7.0"]
+namespace inscope :: package require BWidget
+package require BWidget
+
+set sourcedir [file join "$env(SCIPATH)" "tcl" "utils"]
+
+source [file join $sourcedir Notebook.tcl]
+source [file join $sourcedir Combobox.tcl]
+package require combobox 2.3
+catch {namespace import combobox::*}
+
+global SELOBJECT
+global ged_handle_list_size
+global lalist
+global curgedindex
+global curgedobject
+
+global curvis
+
+set ww .axes
+catch {destroy $ww}
+toplevel $ww
+wm title $ww "Agregation Editor"
+wm iconname $ww "AE"
+wm geometry $ww 530x500
+
+
+set topf  [frame $ww.topf]
+set titf1 [TitleFrame $topf.titf1 -text "Graphic Editor"]
+
+set parent  [$titf1 getframe]
+set pw1  [PanedWindow $parent.pw -side top]
+set pane3  $pw1  
+
+
+
+# Make a frame scrollable
+
+set sw [ScrolledWindow $pane3.sw -relief sunken -borderwidth 2]
+# pack $sw -in .sw -fill both -expand true 
+set sf [ScrollableFrame $sw.f]
+$sw setwidget $sf
+set uf [$sf getframe]
+
+
+set w $uf
+set fra [frame $w.frame -borderwidth 0]
+pack $fra  -anchor w -fill both
+
+#set w $ww
+#frame $w.frame -borderwidth 0
+#pack $w.frame -anchor w -fill both
+
+#Hierarchical selection
+set lalist ""
+for {set i 1} {$i<=$ged_handle_list_size} {incr i} { 
+append lalist "\""
+append lalist "$SELOBJECT($i)" 
+append lalist "\" "
+}
+
+set curgedobject $SELOBJECT($curgedindex)
+
+
+#Hiereachical viewer
+set fra [frame $w.frame.view  -borderwidth 0]
+pack $fra -in $w.frame  -side top  -fill x
+#frame $w.frame.view  -borderwidth 0
+#pack $w.frame.view  -in $w.frame  -side top  -fill x
+
+#label $w.frame.selgedobjectlabel  -height 0 -text "Edit properties for:    " -width 0 
+set lab [label $w.frame.selgedobjectlabel  -height 0 -text "Edit properties for:    " -width 0 ]
+pack $lab -in $w.frame.view   -side left
+
+set comb [ combobox $w.frame.selgedobject \
+              -borderwidth 2 \
+              -highlightthickness 3 \
+              -maxheight 0 \
+              -width 3 \
+              -textvariable curgedobject \
+              -editable false \
+              -background white \
+              -command [list SelectObject ]]
+pack $comb  -in $w.frame.view  -fill x
+eval $w.frame.selgedobject list insert end $lalist
+#pack $w.frame.selgedobjectlabel -in $w.frame.view   -side left
+#pack $w.frame.selgedobject   -in $w.frame.view   -fill x
+
+Notebook:create $uf.n -pages {Style} -pad 20 
+pack $uf.n -fill both -expand 1
+
+########### Style onglet ##########################################
+###################################################################
+set w [Notebook:frame  $uf.n Style]
+
+frame $w.frame -borderwidth 0
+pack $w.frame -anchor w -fill both
+
+#visibility
+frame $w.frame.vis -borderwidth 0
+pack $w.frame.vis  -in $w.frame  -side top -fill x
+label $w.frame.vislabel  -text "       Visibility: "
+checkbutton $w.frame.visib  -textvariable curvis  \
+    -variable curvis  -onvalue "on" -offvalue "off" \
+    -command "toggleVis" 
+pack $w.frame.vislabel -in $w.frame.vis  -side left
+pack $w.frame.visib  -in $w.frame.vis    -side left -fill x
+
+
+#sep bar
+frame $w.sep -height 2 -borderwidth 1 -relief sunken
+pack $w.sep -fill both  -pady 25m
+
+#exit button
+frame $w.buttons
+pack $w.buttons -side bottom -fill x -pady 2m
+button $w.buttons.dismiss -text Quit -command "destroy $ww" 
+pack $w.buttons.dismiss  -side bottom -expand 1
+
+
+pack $sw $pw1 -fill both -expand yes
+pack $titf1 -padx 4 -side left -fill both -expand yes
+pack $topf -fill both -pady 2 -expand yes
+
+
+#proc associes
+proc toggleVis {} {
+global curvis
+ScilabEval "global ged_handle;ged_handle.visible='$curvis'"
+}
+