[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

code:

---

echo "Hello World!" >env:hugo
echo "Hello World!" >envarc:hugo

---

[ - Antworten - Zitieren - Direktlink - ]

code:

---

(set #choice

    (askchoice

        (prompt "nnDo you want to de-activate the skins? This is recommended if your system is relatively slow or low on colors.nn")

        (help "If you do deactivate the skins they will anyhow be installed, but deactivated. Later you can try the skins by activating them temporary in 'xuilibinfo'. See readme INSTALLATION section for this.")

        (choices "Please USE the skins!" "Please deactivate all skins!")

        (default 0)
    )
)

(if (in #choice 0)

(run "echo "ON" >env:xui/usebgimages")
(run "echo "ON" >envarc:xui/usebgimages")

)

(if (in #choice 1)

(run "echo "OFF" >env:xui/usebgimages")
(run "echo "OFF" >envarc:xui/usebgimages")

)

---

[ - Antworten - Zitieren - Direktlink - ]

code:

---

The 'IN' Function
-----------------

     (IN  <expression> <bit number-1> ...)

   Returns 0 if none of the given bit numbers (starting at 0 for the
LSB) is set in the result of expression, else returns a mask of the
bits that were set.

---

code:

---

(if (= #choice 1)
  (;then
    (run "setenv xui/usebgimages ON")
    (run "setenv envarc:xui/usebgimages ON")
  ); end of then
  (;else
    (run "setenv xui/usebgimages OFF")
    (run "setenv envarc:xui/usebgimages OFF")
  );end of else
);end of if

---

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]