autodestructeur Bouton intérieur Colonne

Question

Comment créer un Button qui sera affiché que lorsque la valeur de certains paramètre global FrontEnd est False et se autodétruira avec toute la ligne de la Column après l'avoir enfoncé la définition de cette valeur à True?

je besoin de quelque chose comme ceci:

Column[{"Item 1", "Item 2", 
    Dynamic[If[ 
    Last@Last@Options[$FrontEnd, "VersionedPreferences"] === False, 
    Button["Press me!", 
    SetOptions[$FrontEnd, "VersionedPreferences" -> True]], 
    Sequence @@ {}]]}] 

Mais avec ce code, la Button ne disparaît pas après avoir appuyé sur elle. Est-il possible de le rendre autodestructeur?

---

La solution finale basée sur des idées par belisarius et mikuszefski:

PreemptProtect[SetOptions[$FrontEnd, "VersionedPreferences" -> False]; 
    b = True]; 

Dynamic[Column[ 
    Join[{"Item 1", "Item 2"}, 
    If[Last@Last@Options[$FrontEnd, "VersionedPreferences"] === False && 
     b == True, {Button[ 
     Pane[Style[ 
     "This FrontEnd uses shared preferences file. Press this \ 
button to set FrontEnd to use versioned preferences file (all the \ 
FrontEnd settings will be reset to defaults).", Red], 300], 
     AbortProtect[ 
     SetOptions[$FrontEnd, "VersionedPreferences" -> True]; 
     b = False]]}, {}]], Alignment -> Center], 
Initialization :> 
    If[! Last@Last@Options[$FrontEnd, "VersionedPreferences"], b = True, 
    b = False]] 

Les points clés sont les suivants:

• introduction supplémentaires Dynamic variables b et la liaison avec la valeur de Options[$FrontEnd, "VersionedPreferences"],
• emballage entier Column construire avec Dynamic au lieu d'utiliser Dynamic à l'intérieur Column.

Answer 1

Peut-être

PreemptProtect[SetOptions[$FrontEnd, "VersionedPreferences" -> False]; b = True]; 

Column[{"Item 1", "Item 2", Dynamic[ 
    If[Last@Last@Options[$FrontEnd, "VersionedPreferences"]===False && b == True, 
    Button["Here!", SetOptions[$FrontEnd, "VersionedPreferences"->True];b=False], 
    "Done"]]}] 

Modifier

Répondre à votre commentaire. S'il vous plaît essayez ce qui suit. Englobant le Column[ ] avec Dynamic[ ] permet le redimensionner:

PreemptProtect[SetOptions[$FrontEnd, "VersionedPreferences" -> False]; b = True]; 
Dynamic[ 
    Column[{ 
    "Item 1", 
    "Item 2", 
    If[Last@Last@Options[$FrontEnd, "VersionedPreferences"] === False && b == True, 
    Button["Press me!", SetOptions[$FrontEnd, "VersionedPreferences" -> True]; b=False], 
    Sequence @@ {}]}]] 

Answer 2

Hmm, je sais pas si je bien, mais peut-être ceci:

x = True;

dynamique [colonne [{Bouton [ "reset", x = True], Si [x, Bouton [ "me presse", x = False]]}] ]