Changeset 69 for trunk/ToBeReviewed/WIDGET/AUTOUR_de_XXX/createhistory.pro

Timestamp:

05/11/06 12:35:53 (18 years ago)

Author:

smasson

Message:

debug + new xxx

File:

• trunk/ToBeReviewed/WIDGET/AUTOUR_de_XXX/createhistory.pro (modified) (2 diffs)

trunk/ToBeReviewed/WIDGET/AUTOUR_de_XXX/createhistory.pro

@@ -6 +6 @@
    globalcommand = extractatt(top_uvalue, 'globalcommand')
    *top_uvalue[1, findline(top_uvalue, 'globaloldcommand')] = globalcommand
+; portrait or landscape ???
+   options = extractatt(top_uvalue, 'options')   
+   optionsflag = extractatt(top_uvalue, 'optionsflag')
+   portrait = (optionsflag[where(options EQ 'Portrait/Landscape'), 0])[0]
 ; composition du text contennu ds history.pro
    texte = ['@common' $
             , ' ' $
-            , 'if n_elements(portrait) ne 0 then key_portrait = portrait' $
-            , 'if n_elements(landscape) ne 0 then key_portrait = 1-landscape' $
-            , ' ' $
             , 'if keyword_set(postscript) then begin'  $
             , '    noerase = 1' $
-            , '    openps, infowidget = infowidget' $
+            , '    openps, infowidget = infowidget, portrait = ' + strtrim(portrait, 2) $
             , 'endif' $
             , ' ' $
@@ -36 +37 @@
    *top_uvalue[1, findline(top_uvalue, 'globalcommand')] = texte
 ;-------------------------------------------------------------
-;   for i = 0, n_elements(texte)-1 do print, texte[i]
+;  for i = 0, n_elements(texte)-1 do print, texte[i]
 ;-------------------------------------------------------------
    return