diff options
Diffstat (limited to 'ds9')
-rw-r--r-- | ds9/library/lex.fcl | 2 | ||||
-rw-r--r-- | ds9/library/parser.tac | 9 |
2 files changed, 11 insertions, 0 deletions
diff --git a/ds9/library/lex.fcl b/ds9/library/lex.fcl index 7586ac8..abad5d0 100644 --- a/ds9/library/lex.fcl +++ b/ds9/library/lex.fcl @@ -23,6 +23,8 @@ E [Ee][+-]?{D}+ -asinh {return $::ASINHCMD_} -bg {return $::BGCMD_} -background {return $::BGCMD_} +-cd {return $::CDCMD_} +-console {return $::CONSOLECMD_} -cursor {return $::CURSORCMD_} -exit {return $::QUITCMD_} -help {return $::HELPCMD_} diff --git a/ds9/library/parser.tac b/ds9/library/parser.tac index 9ce1e6f..f3c2497 100644 --- a/ds9/library/parser.tac +++ b/ds9/library/parser.tac @@ -19,6 +19,8 @@ set file(load) 0 %token ALIGNCMD_ %token ASINHCMD_ %token BGCMD_ +%token CDCMD_ +%token CONSOLECMD_ %token CURSORCMD_ %token HELPCMD_ %token HISTEQUCMD_ @@ -131,6 +133,8 @@ command : 2MASSCMD_ {2MASSDialog} 2mass | ALIGNCMD_ align | ASINHCMD_ {global scale; set scale(type) asinh; ChangeScale} | BGCMD_ STRING_ {global pds9; set pds9(bg) $2; PrefsBgColor} + | CDCMD_ cd + | CONSOLECMD_ {global ds9; OpenConsole; InitError $ds9(msg,src)} | CURSORCMD_ INT_ INT_ {CursorCmd $2 $3} | HELPCMD_ {HelpCommand} | HISTEQUCMD_ {global scale; set scale(type) histequ; ChangeScale} @@ -295,6 +299,11 @@ align : {global current; set current(align) 1; AlignWCSFrame} | yesno {global current; set current(align) $1; AlignWCSFrame} ; +cd : STRING_ {cd $2} + | '.' {cd .} + | '/' {cd /} + ; + iconify : {global ds9; wm iconify $ds9(top)} | yes {global ds9; wm iconify $ds9(top)} | no {global ds9; wm deiconify $ds9(top)} |