Changeset 231 for trunk/SRC/Colors/xlct.pro
- Timestamp:
- 03/19/07 18:15:51 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/Colors/xlct.pro
r163 r231 2 2 ; @hidden 3 3 ;- 4 ; 4 5 PRO xlct_psave ;Save/Restore our plotting state. 5 6 ; Swaps our state with the current state each time its called. … … 396 397 397 398 ;+ 398 ; @file_comments 399 ; Like xloadct but fastest to write and call by default the palette 399 ; @file_comments 400 ; Like xloadct but fastest to write and call by default the palette 400 401 ; palette.tbl which can be in any directory 401 402 ; 402 ; @categories Widget, Color 403 ; @categories 404 ; Widget, Color 403 405 ; 404 406 ; @keyword FILE {default='palette.tbl'} … … 407 409 ; allows multiple IDL users to have their own color table file. 408 410 ; 409 ; @keyword GROUP 411 ; @keyword GROUP 410 412 ; The widget ID of the widget that calls Xlct. When this ID is 411 413 ; specified, a death of the caller results in a death of Xlct … … 419 421 ; BOTTOM+NCOLORS-1. 420 422 ; 421 ; @keyword SILENT 423 ; @keyword SILENT 422 424 ; Normally, no informational message is printed when a color map 423 425 ; is loaded. If this keyword is present and zero, this message is printed. … … 458 460 ; will be undefined. 459 461 ; 460 ; @history 5/5/1999 copy of xloadct par Sebastien Masson (smasson\@lodyc.jussieu.fr) 461 ; 462 ; @version $Id$ 462 ; @history 463 ; 5/5/1999 copy of xloadct par Sebastien Masson (smasson\@lodyc.jussieu.fr) 464 ; 465 ; @version 466 ; $Id$ 463 467 ; 464 468 ;- … … 493 497 ; Changes made by S.Masson 494 498 ;----------------------------------------------------------------------------- 495 IF N_ELEMENTS(file) GT 0 THEN filename = file ELSE BEGIN 499 IF N_ELEMENTS(file) GT 0 THEN filename = file ELSE BEGIN 496 500 filename = find('palette.tbl') 497 501 filename = filename[0] 498 502 if filename EQ 'NOT FOUND' then filename=filepath('colors1.tbl',subdir=['resource', 'colors']) 499 ENDELSE 503 ENDELSE 500 504 file = filename 501 505 ;-----------------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.