!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! SIC 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 "Sic"
  gui\button  "@ subdemo_do gag_demo:demo-arithmetic.sic"  "Check arithmetics"
  gui\button  "@ subdemo_do gag_demo:demo-transpose.sic"   "Check transposition"
  gui\button  "@ subdemo_do gag_demo:demo-accept.sic"      "Check command ACCEPT"
  gui\button  "@ subdemo_do gag_demo:demo-datetime.sic"    "Check command DATETIME"
  gui\button  "@ subdemo_do gag_demo:demo-widget.sic"      "Demo widget"
gui\submenu /close
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
