!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! GREG part of the Demo menu of all GILDAS packages
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
begin procedure subdemo_do
  ! Intermediate procedures which displays the procedure executed
  message i demo  "Executing demonstration procedure @ "'pro%arg[1]'
  say ""
  @ 'pro%arg[1]'
end procedure subdemo_do
!
gui\submenu "GreG"
  gui\button  "@ subdemo_do gag_demo:demo1.greg"           "CURVE and ERRORBARS"
  gui\button  "@ subdemo_do gag_demo:demo-polygon.greg"    "Polygons"
  gui\button  "@ subdemo_do gag_demo:demo2.greg"           "RANDOM_MAP and PERSPECTIVE"
  gui\button  "@ subdemo_do gag_demo:demo3.greg"           "RGMAP and PLOT (1)"
  gui\button  "@ subdemo_do gag_demo:demo4.greg"           "RGMAP and PLOT (2)"
  gui\button  "@ subdemo_do gag_demo:demo5.greg"           "PENCIL attributes"
  gui\button  "@ subdemo_do gag_demo:demo-pencolors.greg"  "PENCIL colour names"
  gui\button  "@ subdemo_do gag_demo:demo-luts.greg"       "Look-Up-Tables"
  gui\button  "@ subdemo_do gag_demo:demo-luts-cet.greg"   "Look-Up-Tables (CET set)"
  gui\button  "@ subdemo_do gag_demo:demo-lutstatic.greg"  "Static Look-Up-Tables"
  gui\button  "@ subdemo_do gag_demo:demo-font.greg"       "Fonts"
  gui\button  "@ subdemo_do gag_demo:demo-mfit.greg"       "MFIT"
gui\submenu /close
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
