Index: mttroot/mtt/bin/trans/reps_txt2tk
==================================================================
--- mttroot/mtt/bin/trans/reps_txt2tk
+++ mttroot/mtt/bin/trans/reps_txt2tk
@@ -11,96 +11,20 @@
 ###############################################################
 ## Version control history
 ###############################################################
 ## $Id$
 ## $Log$
+## Revision 1.2  1999/03/09 00:03:19  peterg
+## Revisions for xmtt
+##
 ## Revision 1.1  1998/10/20 08:13:14  peterg
 ## Initial revision
 ##
 ###############################################################
 
-#MTT blurb
-title=`mtt --version`
-
-#Collect all systems (inc dir name)
-dirname=`basename $PWD`
-systems=`echo *_abg.fig | sed 's/\([a-zA-Z0-9]*\)_abg.fig/\1/g'`
-dirname_in_systems=`echo $systems | grep -c $dirname`
-if [ "$dirname_in_systems" = "0" ]; then
-    systems="$systems $dirname"
-fi
-
-# Default system
-system=$dirname
-
-cat<<EOF
-# Default system
-set system "$system"
-
-# Arguments to mtt
-set args "-q"
-
-# The top level menu
-button .mtt -text "$title ($dirname)" -command "exec mtt warranty &"
-menubutton .util  -text "Utilities" -menu .util.util
-menubutton .opt  -text "Options" -menu .opt.opt
-menubutton .sys -text "Systems" -menu .sys.sys
-menubutton .rep -text "Representations (major)" -menu .rep.rep
-menubutton .repall -text "Representations (all)" -menu .repall.repall
-menubutton .exam -text "Examples" -menu .exam.exam
-button .mtt_quit -text "Quit" -command exit
-pack .mtt .rep  .repall .sys .exam .util .opt  .mtt_quit
- 
-menu .util.util
-# .mtt.opt.util add command -label "copy example" -command 
-# .mtt.opt.util add command -label "copy" 
-.util.util add command -label "clean" -command "exec mtt -q Clean &"
-.util.util add command -label "recursive clean" -command "exec mtt -q rclean &"
-
-menu .opt.opt
-
-
-# System choice
-menu .sys.sys
-EOF
-
-for sys in $systems; do
-    echo .sys.sys add radio -label "$sys"  -command {set system "$sys"} 
-done
-
-# Create the options menu
-mtt |  awk '{
-  if (Options) {
-    option=substr($1,2);
-    label="";
-    for (i=2;i<=NF;i++)
-      label = sprintf("%s %s",label,$i);
-    printf(".opt.opt add check -label \"%s (-%s)\" -variable %s -command {set args \"$args -%s\"}\n", label, option, option, option); 
-  }
-  if ($1=="Options:") Options = 1;
-}'
-
-# Examples menu
-cat <<EOF
-menu .exam.exam
-EOF
-
-awk '{
-    gsub(/"/,"",$0); # zap quotes
-    printf("\n# Example  %s\n", $1)
-    sub(/:/,"",$1); # zap :
-    printf(" set mtt {xmtt -example %s} \n", $1); 
-    $1 = $1 ":";
-    printf(" set label \"%s\" \n", $0); 
-    printf(".exam.exam add command -label $label -command \"exec echo $mtt &; exec $mtt & \"\n", $1);
-}' < $MTTPATH/EXAMPLES
-
-# Create other menus from the reps.txt file
-cat<<EOF
-menu .rep.rep
-menu .repall.repall
-EOF
+
+# Create reps menu
 awk '{
 # Important representation?
  if (index($1,"*")) {
     rep=substr($1,1,length($1)-1);
     printf("\n# Menus for representation %s\n", $1)
@@ -121,15 +45,15 @@
       printf(" set mtt {mtt $args $system %s %s} \n", rep, $i); 
       printf(".repall.repall.%s add  command -label  \"%s\" ", rep, $i);
       printf(" -command  \"exec echo $mtt &; exec $mtt &\" \n"); 
    }
  }
-}' <$MTTPATH/REPS 
+}'