Ink levels GUI

[AllRebbedUp]

Hello Rebolers

I am trying to create a simple GUI to display printer ink levels amongst other things.
Normally i would have to run these commands from a console/terminal (i am using linux)

Here is my first mock up of it:
(the progress bars show how i would like the ink levels displayed)

Code:

REBOL []

view layout/size [
h2 "Epson Printer Utilities" 300x20 center
guide
button "Ink Levels" [call ["escputil -iur /dev/usb/lp0"]]
button "Clean Heads" [call ["escputil -cur /dev/usb/lp0"]]
button "Test Pattern" [call ["escputil -nur /dev/usb/lp0"]]
return
box 200x150 gray
at 160x60 progress gray black 20x100 with [data: 0.76]
at 200x60 progress gray cyan 20x100 with [data: 0.16]
at 240x60 progress gray magenta 20x100 with [data: 0.16]
at 280x60 progress gray yellow 20x100 with [data: 0.15]
] 350x220

While i know it certainly isn't perfect code wise,
clicking on the buttons "Clean Heads" and "Test Pattern"
does at least do what it says.


My question is:
How can i get the result of running the command for "Ink Levels"
to be shown in the progress bars. (maybe with the actual percentage beneath each bar)

If the command is run in a normal console (not the rebol console)
this is an example of the output one would get:

Code:

# escputil -iur /dev/usb/lp0
Escputil version 5.0.1, Copyright (C) 2000-2006 Robert Krawitz
Escputil comes with ABSOLUTELY NO WARRANTY; for details type 'escputil -l'
This is free software, and you are welcome to redistribute it
under certain conditions; type 'escputil -l' for details.

Ink color       Percent remaining
Black                      76
  Cyan                      16
   Magenta                      16
Yellow                      15
#

If this is possible and anybody could explain how to go about this
or offer any advice i would be grateful.

ARU

[btiffin]

Hi,

   Looks like this could be a nice little utility.  CALL accepts a /OUTPUT refinement, and the parameter can be a string! So, first step could be

call/output "escputil -iur /dev/usb/lp0" inks: make string! 512
or
inks: copy ""    call/output "..." inks

Now you've got the stdout from escputil in the string INKS.  Then PARSE could be used to find the numbers

parse inks [
    thru "Black" copy black-ink to newline
    thru "Cyan" copy cyan-ink to newline
...
]

Now you'll have a trimmable string! black-ink with a bunch of leading spaces, the number and what ever spaces come in the output before the newline.

This was done quickly, and there are much smarter PARSE expressions that will avoid the need for  to integer! trim/all black-ink  but the trim is pretty simple and required no brains or testing for this post.

After that, you'll have integers that you can display, set progress with a color bar, etc, etc.

If you need more details, just ask.
Cheers

[AllRebbedUp]

Hello btiffin

Thankyou for your response,
but i dont understand what you say (i am a little thick).

All this parsing stuff etc goes right over my head.

Please could you elaborate on all of this for me, it really would help me learn what is what.

Sorry to be a pain.

ARU

[notchent]

Hi Aru,

For more info about parse, take a look at:

http://musiclessonz.com/rebol_tutorial.html#section-28

To make the GUI work, you need to give a label to each progress bar (i.e., prog1, prog2, prog3, etc.), then you can set the data that Brian created (prog1/data: to integer! trim/all black-ink, prog2/data: to integer! trim/all cyan-ink, etc.), and then update the GUI (show prog1, show prog2, etc.)  Here's a quickie example that I haven't tested yet, but should get you going in the right direction: 

Code:

REBOL []

view layout/size [
h2 "Epson Printer Utilities" 300x20 center
guide
button "Ink Levels" [
call/output "escputil -iur /dev/usb/lp0" inks: make string! 512
parse inks [
thru "Black" copy black-ink to newline
thru "Cyan" copy cyan-ink to newline
thru "Magenta" copy magenta-ink to newline
thru "Yellow" copy yellow-ink to newline
]
print rejoin [black-ink cyan-ink magenta-ink yellow-ink]
prog1/data: to integer! trim/all black-ink
show prog1
prog2/data: to integer! trim/all cyan-ink
show prog2
prog3/data: to integer! trim/all magenta-ink
show prog3
prog4/data: to integer! trim/all yellow-ink
show prog4
]
button "Clean Heads" [call ["escputil -cur /dev/usb/lp0"]]
button "Test Pattern" [call ["escputil -nur /dev/usb/lp0"]]
return
box 200x150 gray
at 160x60 prog1: progress gray black 20x100 with [data: 0.76]
at 200x60 prog2: progress gray cyan 20x100 with [data: 0.16]
at 240x60 prog3: progress gray magenta 20x100 with [data: 0.16]
at 280x60 prog4: progress gray yellow 20x100 with [data: 0.15]
] 350x220

[AllRebbedUp]

To notchent & btiffin

Thankyou both very much for your help.

I have now got it working as i wanted,
and there was no way i could have done it without your assistance.

My revised code is shown below.

Code:

REBOL []

view layout/size [
h2 "Epson Printer Utilities" 300x20 center
guide
button "Ink Levels" [
call/output "escputil -iur /dev/usb/lp0" inks: make string! 512
parse inks [
thru "Black" copy black-ink to newline
thru "Cyan" copy cyan-ink to newline
thru "Magenta" copy magenta-ink to newline
thru "Yellow" copy yellow-ink to newline
]
print rejoin [black-ink cyan-ink magenta-ink yellow-ink]
prog1/data: (to integer! trim/all black-ink) / 100
show prog1
box1/text: (to integer! trim/all black-ink)
show box1
prog2/data: (to integer! trim/all cyan-ink) / 100
show prog2
box2/text: (to integer! trim/all cyan-ink)
show box2
prog3/data: (to integer! trim/all magenta-ink) / 100
show prog3
box3/text: (to integer! trim/all magenta-ink)
show box3
prog4/data: (to integer! trim/all yellow-ink) / 100
show prog4
box4/text: (to integer! trim/all yellow-ink)
show box4
]
button "Clean Heads" [call ["escputil -cur /dev/usb/lp0"]]
button "Test Pattern" [call ["escputil -nur /dev/usb/lp0"]]
return
box 200x150 gray
at 160x60 prog1: progress gray black 20x100 with [data:0.00]
at 158x170 box1: box 24x24 "" font-size 12
at 200x60 prog2: progress gray cyan 20x100 with [data:0.00]
at 198x170 box2: box 24x24 "" font-size 12
at 240x60 prog3: progress gray magenta 20x100 with [data:0.00]
at 238x170 box3: box 24x24 "" font-size 12
at 280x60 prog4: progress gray yellow 20x100 with [data:0.00]
at 278x170 box4: box 24x24 "" font-size 12
] 350x220

Again thankyou both so much.

ARU

[notchent]

I'm glad to see it's working   Be sure to take out the following line:

Code:

print rejoin [black-ink cyan-ink magenta-ink yellow-ink]

[btiffin]

AllRebbedUp; No problem.  I'm glad Nick stepped up and filled in the holes I left.

Again, the parse expressions I used were just quickies off the top of the head.  There are "more effecient" ways and tighter code, but it would take a little testing to ensure they worked etc.  For instance a PARSE sub-expression could skip over white space between the colour name and the value; but TRIM works. 

Be sure to check out Nick's most excellent tutorials (link at the bottom of his posts).  Much, much can be learned from them; but don't plan on absorbing all the information he has there in one sitting; and don't feel overwhelmed.   Bookmark it and revisit when you can.

REBOL is a fair to strange beast of a learning curve.  Some features are plain and simple and some are just, well ... not ... until you get it, then they seem simple after that.

Nice little app by the way.  rebol.org can always use another script for the repository. 

Cheers

[AllRebbedUp]

Hi notchent

Be sure to take out the following line:

Code:

print rejoin [black-ink cyan-ink magenta-ink yellow-ink]

Ok ,but could you please explain why it was there if it is not required ?

Be sure to check out Nick's most excellent tutorials (link at the bottom of his posts).  Much, much can be learned from them; but don't plan on absorbing all the information he has there in one sitting; and don't feel overwhelmed.   Bookmark it and revisit when you can.

I have actually had it bookmarked for about 12 months now.

REBOL is a fair to strange beast of a learning curve.  Some features are plain and simple and some are just, well ... not ... until you get it, then they seem simple after that.

For sure, and i don't spend nearly as much time as i should in trying to learn it.

Nice little app by the way.  rebol.org can always use another script for the repository. 

Just registered there, and will add it (with both yourself and notchent given credit for assistance)
if that is OK with the both of you.


This is my final code:

Code:

REBOL [
Title: "EPU" ;Epson Printer Utilities
Date: 05-Jun-2008
Version: 0.0.1
File: %epu.r
Author: "AllRebbedUp"
Comment: {I would not have done this without the assistance of reboltalk forum members notchent & btiffin}
Purpose: {Simple GUI for accessing escputil on linux}
License: {Public Domain}
]

img: load 64#{
iVBORw0KGgoAAAANSUhEUgAAAG4AAABuCAYAAADGWyb7AAAAAXNSR0IArs4c6QAA
AAZiS0dEAAAAAAAA+UO7fwAAAAlwSFlzAAALEwAACxMBAJqcGAAAAAd0SU1FB9gG
BQUIATMySQUAAAAZdEVYdENvbW1lbnQAQ3JlYXRlZCB3aXRoIEdJTVBXgQ4XAAAT
dklEQVR42u1de1QT17rfQcDWR9IEMIANhERLJLqwQhADFfFwKV3i46wIN6KprT3h
ippa2nWsVbk0i6sV6zmWrqYuy1Woz+OjBzjn0J4KVLFKMSCPVmgCIuFRICqkBREw
wNw/mskdw8xkJgTCY35/sciePXv243v8vr2/DQAFChTGD7RJ2m4XFos1j8PhvOTl
5RXo4+OzlMvlCv38/Dh8Pv8FHx8fVzabTRscHASdnZ1Qc3Pz04aGhl8bGxtbdDpd
TXNzc1V7e3t1S0tLXVdX1wMAgJGaCmMAOp3OEolEsQqF4pJare6H7Ay1Wt2vUCgu
iUSiWDqdzqJ6fBSSgMvl+stksgyNRmOExhkajcYok8kyuFyu/ySWSuMHDw8PT6lU
erivrw+aKOjr64OkUulhDw8PT2qELCAUCsNUKlUdNMGhUqnqhEJh2HQ3TmgikWiN
SqW6IhKJZtpSwY0bN55UVFTo7t+/X9PW1lar1+u1BoOhqbu7W9/d3d0F60c6nc5m
Mpm+bDbb39vbO4DH4wmXLVvGXbly5Sxb3ltWVjawc+fOjWVlZfkAAGjarLDAwMBI
W4yMU6dONcnl8iyxWCxhMBjM0baDwWAwxWKxRC6XZ506darJFqMmMDAwcsoPmKen
py8ZkdjW1jasVCpvRUVFyQEAs8ehibOjoqLkSqXyVltb2zAZEerp6ek7FcdshlQq
PUyiI7TR0dG7AABODmyzU3R09C6VSqUl2m6pVHoYADBjSowYl8v1JyIWDQbDcHJy
ci6Px1sy0b6Bx+MtSU5OzjUYDMNExKfJjZi8iImJeYfITFUoFJfsobPGGgwGg6lQ
KC4R+aaYmJh3JuOYzUxNTb1h7eOOHDlSNRFXGJEVeOTIkSpr35eamnoDADBzUnyU
h4eHpzXRWFVV9dSkwyY1oqOjd1VVVT21JjonvPPO5/OF1mahUqm8NRnEIhnxqVQq
b1n7bj6fL5yw7Ie1xkskkg+nqqsjkUg+tPb9E4V1ecahxmtwQUFBd2Bg4KppQCys
Kigo6MbriwnjsFtbaSqVSjuVRCMR0WnN93P4yrOm01JSUorBNEVKSkrxhNR5Hh4e
nngNS05OzgXTHMnJybl4feQIa3MmnsmvUCguAQoAAADwHHa1Wt0/rn4ennNNrTRy
K8/kpDuWxprOOm00Om/M6TEul+uPZz1Sw4MPPGtzLInpGVh6raCgoHs6mfyjcRWw
/DyTvrN/SAgvnjYdnGt7OulW4nn2g6enp+90pLEcQY/ZNZKOtd1AqVTeoobBNmAR
0yqVqs5eSzsSKzRD6bXR6TuskJA9+EwalkEyFeJpjkZ0dPQuHEPF9q2TIpEoFity
TXW7fYAVSReJRLE2V4q12ibjdoOJCh6PtwRn1ZEHVriG4iHtDyw+06bwD5olaTAY
himDZGwMFbStf6QtTKyQDUUgjx2wiGhSoR8sloTSbeOv68iwKTS082kUiTz2QCOh
+/r6IEKuAVYEgPLbHOfXEYocyGSyDLRTM8CxBzCmC5zQTgnJZLIMq0+inbmmOMnx
AxqHqdFo8LNC0Ol0FtpSNZ1PozAOiIqKkqONAW42CCyKC4zPoUIKv2M2EQrsGb0V
Ghr6umUtWVlZzQCA3kncEZMt3UWvqc+BtbExA42blMvlWXbouOd4PN7izZs3/zU7
O7tFJBLFuLu7e7HZbK6fn99LPB5vsb+/f7BQKBQHBgauEolEMXPmzHEfzUuZTCbj
zTff/GIyBnrlcnmWNe4SORtdIAh6allJWFjYxpKSkq/IOJIRERE7Q0JC/hAUFMQR
CoUzZ80in9zg7Nmzv8hksheJlqfT6ayAgIAILpe7/MUXX1yclJT0Go/He0aiPHjw
ANJoNH2lpaV1RUVFX1y9evULAMAQXr1eXl4+69evP/Tqq6/GLF++nMVms2k6nW64
sLCwqbS0tPCXX36pjIuL23Py5Ml3S0tLc7AoLYFA8AqTyfT18PBY4OXl9ZKvry//
888/f6OmpqbEsrxYLJbcunXryogVQKO5Asv0VSwWaz6abCXKTQqFwrDMzEzdwMAA
lJeX15WWllaalJR0LiEh4S9nz579Ba7vwoULHZGRkW9GRETIli9fvm7x4sURAQEB
IeHh4XHXrl17TIYdnzt3rtvmzZv/mpOT80ir1Q6eOXOmNT8//1e4jnv37g2Ghob+
USwWS1avXv2npKSkc7W1tWar+eLFix143yeRSD58+PCh1ePD6enpFXgrPy0trTQv
L6+rtbV1GMn7AgCexxpotPewWKz5IwqjRbqLi4uJ6DanxMTEL7Va7eCmTZs+njt3
rptlgZycnEdEfBK4DQaDYXjJkiWv4LzTddu2bZnl5eUDSUlJ5xcuXLgUlh5paWml
8LuOHj36I9pgIwd33759RWjiPSkp6Twc6U9JSSlOTEz8cvfu3X8/fvx4vV6vNw+A
VqsdZLPZ84hM7osXL+rh5zIzMxvxyhYXF/cSioyjbXQ9duxYjZW2OKenp1f8+OOP
TzkcDh9j9rxgNP6/a2hlQMD58+fb8VgaLpfrn5+fbzh+/Pg9NAK2pKTEzNfFx8d/
hFZHeHh4HFymvr5+0PL3rVu3qiAIgrZt25YJAHBFqeL57OzsFgiCoDVr1rxHUJq7
9vT0mPvh9ddf/xSv8LFjx2oIbZxNTEzMJht727NnzzcQBEGxsbF/xirzyiuvbIbr
a21tHQYAOOPV6e3tzcH6LSAgIOTevXuDJ06caECrx83NzRvZfoFAEGTN5DYajc9k
BgoJCVk/NDQE7d69++9Y7Vi4cOFSo9EIXbhwoYOo1fryyy//wSLWJsYrjxajS0xM
zB5R8NChQ2Vktt4FBQVFw+XmzZvHxiq3e/fuK/Ygqr29vTm1tbXGtra2YXd3dy8M
53W7xUrCoulc4XK1tbVIZe968+bNJwMDAxCeVQuTwWQ29cCrGNa91ihEtC18hw4d
Khvhx/n5+Y2Y6Xq9HrOj4+Pj0xHW2kOscitXroyA/y4tLf23rQO3f//+wkWLFjl/
/PHH/3z06FE7WpmlS5eandS8vLxaAMAwWjkOh2P+1mvXrpl1zdq1a98JCwt7vrq6
euDx48eP0J4NCQlZs2PHjpcyMjJqq6urrxFtf0hIyH/Af+fm5tZgtQ2v79HGCNWH
w1vOd+/eNSsuJpPJwLKoyOg3IqtbJBLFYJXLy8vrsqbfLFfmunXr9sL/z8zM1MEG
B4YIpJ07d67NJIZDSXyCM5I8jouL+x8CVrqY0D6Ujo6OEWYvlsEBAABDQ0NWBzg8
PHwTGf2GhQMHDly35p4wGIwXkG3C0W8gPT29EoIgqKKiYgAA8Bz8/5aWFnMF/v7+
wZbPrVixYiMEQdCJEyfuk2m/5f4dIgFpDofDtxyPjo6OkasUuTKI+HDIPRISiUSJ
Vubtt9++bA/9hvTvsHQDcpLg6TfYsIAgCIqIiNiC1QcffPBBARopAEEQFB4evolM
+xMSEv4C13v37l0jEYMGzZezNKRsGjjYF1Kr1f1YIvDKlSsPSMWUCEwSLJ8JOUnQ
/DcTZuXl5XVCEARt3br1c8sfb968+QSuo6enB/Lx8eEh9GcUQlyRik0iTfuPPvro
DpFnrA2cWXR1dnZCbDabZkkj/fbbbwa0igsLC4vr6ur4qampK+GknkgIBILQtWvX
eiCMlPULFiwIRquroaHhzunTp5Ox6Cc6nU5DrJjVer3+b3hGkFqtzrf83d3d3euT
Tz4pX7VqFWvjxo3Kr776aoTFnJub+11YWNgaAAC4ffv2YycnJxf4N5lMdgwAAE6e
PHnJmmFhSVCsXbvWHMEuLy//F1EKz/J/nZ2d0KiNE9NqRF3yvr6+gvr6+kHL+np7
e6H6+vrBa9euPc7JyXmUmZnZ+O677/7Dzc1tLt5HIIO7aL4Mi8WiDwwMmN8TEBAQ
AhsTvr6+gm3btmU2NDQMZWRk/IyX7UAgEASZVkU5sk1eXl4+cP0LFix4mcxqg+uE
sXDhwkCCepGYcXLhwoUOy4JkZTmysZ999pl540tGRsbPYBSH1FUqVd3Dhw+HpVLp
EYBy+A+p3+AJ8tNPPz3V6/XDTU1NQykpKcWLFi1aTuRdYrFYYjkh33rrrf+FIAgq
KSnpIxsmio+PP2jhvxF63vKbYJ53hKhsbGxsAQA840iz2WybjrdqNJo78+fPNzuw
33///WUAwICtA/fll1/++ejRoz83NjaibhANDg6Oh/++fv16b35+/vXW1ta7Wq22
oLKy8gYgcSEESiSElpCQ8J8AAPD111+XApI5mIODg9cg7IJ6os+j9b1pjJ4dOJ1O
VwMACLZgKwJs6ei5c+e6rVu3joWQ6+dGE59Sq9V5eL9HRkaa9dunn36anpOTk2av
2NiCBQuWrl69eg4AAFRXV39D8nFabGysWTTfuXOngARTNKLvTWP0LHPS3NxchRJb
syn7zbJly9Y6Of1e9XffffdYp9ON2Z7MOXPmuMfGxpqt38rKSruebRCJRAnw3/fv
379J5lk+nx+waNEi8+Koqan5F9Fn0foeOUbmgWtvb69GGQCuLR8bHBwsQejOMT0k
smLFCgk8SSorK5/qdLo6e9YfFBT0KqLjSE3AxYsXr4f/fvLkCbhz5873JCb/iL5H
G6NRB1KRKCoq6oEgCOrs7Bx2c3PzJvs8i8Wav2XLlk+IlN23b18R3NaDBw/etvfE
KCws7EE4/6SyIiC32uXk5HQSfY5UIBX8vnVhBExWFhnxYE7MRrTzkTh48ODt3t5e
qKenh5AS/+GHH/rIcIBkgeQYrbktlvqtvLzc7GIdOHCAMCEtFoslGLvtXLCMgFFv
Ftq5c+ffIAiC0tLSbgMbdlgR2Q4Aw3K7/FikE0QySmTq9/X1FSDbFh8ff5Dos0Q2
Cz0DtODdqVOnmoi+0MfHh9fR0TFsonVsIZRdYH8JL8aH5iOZtsk723vgmpqazMTz
jh07LhAV9enp6RXIflyxYsUGou9Eu3UEN6g9mg2xQqFQXFRU1HPgwIHrwLYMOU4b
Nmz44ObNm0/wohIWjrnZyT9+/Pg9nKI2Z+w5c+ZMK/yOhw8fDuMxJxwOh//ee+/9
02AwDHd2dj4TbSFKAACCG2KfmaFarbYEraaoqKiEwsLCTDQ5vnHjRmVcXFxifHw8
GwAA+vv7l+bn5z8iPFpOTk6zZ8928ff3f66kpMSwYcMGPjJQKhAIQlNTU3OdnZ1H
ELsxMTEeCF/O9/Llyw9oNBqg0Wg0Z2fnGXPmzHHp7+8funjx4tnTp0/bdNooNzf3
5JYtW/7bxHfSvv322/L9+/d/rFarz/b29j6eN2+ej0AgiI6Kitq0ZcsWXlZWVt1r
r70miYiI+K/Dhw+/imjrvq6urt1Go9Ho4uLi4urqOqOlpaUBra/R2oE1Nqi8oJVD
HzP27t17dbRXexmNRqi8vLw/KSnpPLDYrhYQEBDS0NAwZO35np4eqKOjY1ir1Q4W
Fxf3Zmdnt+zZs+ebiIiIN8Do80G6XL58+QFeG8rLy/u3b99+Fikp8C5ZGhgYgFav
Xv0na5Yo4UMfJhacOmaFYp7v3bv3an19/aDRaIQ0Go0xOzu7Zfv27WdNecxGGGHv
v//+t3AAOT8//9f09PSKN95443hoaOgfWSwWHUsA2XzMijrY6DiM6mAjoI4SOwyj
OkoMAHV43xGwx+F9Kl2GA2CXdBmmZUslqBlH48cuCWpMDjWVEmqcYNeUUFjcJaXr
xke32ZyEDY8Co9Ie2g9jkvYQUIlGHeK3jTrRKABUat+xNEjGMrUvpoVJJa4ZHcY8
mTYAVPp6e2Pc0tfjsSnUhRGkVc/4XRhhAnVFix302rhf0QIAdSmSHWwFh1yKBACg
riGzFQ69hgwGdfEfOUyIi/9MoK7aJIgJddUmANTltqNdaY663BYAQF0nbatOc+h1
0jCoC9xHmvwT/gJ3hFMZidfQgoKC7ungpAcGBq7C8tPszkOO18qb6vQYHo014VYa
WZ0HE9NTSXQyGAwmFmE8oXQaEWsTz1WAQ0JTIZ4XHR29Cys0gzT5HWY92uLn4Tnp
yEj6ZNwGwePxlmBFrlGc65mTbkbi0WOWDvtkEJ8MBoOJ51A7hMYaK3C5XH9rohPe
+pecnJw7EVcgj8dbkpycnIu2hQ5NNI45YTyOmIEXz0Pz/Uw60JEHTZyio6N3WfPJ
UOJpM8BUg6enpy/WNgg0tLW1DSuVylumK2LG47aR2VFRUXKlUnkL7dQMzkSrs3vk
eoI6qpFExCfasWa5XJ4lFosl9tCJDAaDKRaLJXK5PAvvPBueWHSUQ+3I60toIpFo
jUqluiISiWyyvG7cuPGkoqJCd//+/Zq2trZavV6vNRgMTd3d3Xo4ox+dTmfR6XQ2
k8n0ZbPZ/t7e3gE8Hk+4bNky7sqVK2fZ8t6ysrKBnTt3biwrK8sHJFNETSkIhcIw
MiLUUVCpVHUTlv1wtPMulUoPo53PcxT6+vogqVR6eDI50Y4Ejcvl+stksgy0M+lj
DY1GY5TJZBkms55GDYeNoNPpLJFIFKtQKC7ZYtQQMTIUCsUlkUgUi3vB3kSa2ZN0
LF1YLNY8DofzkpeXV6CPj89SLpcr9PPz4/D5/Bd8fHxc2Ww2bXBwEHR2dkLNzc1P
Gxoafm1sbGzR6XQ1zc3NVe3t7dUtLS11XV1dDwCJfJYUKFCYjvg/GHc69MZUrcQA
AAAASUVORK5CYII=
}

view layout/size [
backdrop effect [gradient 0x1 0.0.0 127.127.127]
vh2 "Epson Printer Utilities" 320x20 center effect [gradient 1x1 255.0.0 0.0.255]
across
pad 0x170
button "Ink Levels" [
call/output "escputil -iur /dev/usb/lp0" inks: make string! 512
parse inks [
thru "Black" copy black-ink to newline
thru "Cyan" copy cyan-ink to newline
thru "Magenta" copy magenta-ink to newline
thru "Yellow" copy yellow-ink to newline
]
prog1/data: (to integer! trim/all black-ink) / 100
show prog1
box1/text: (to integer! trim/all black-ink)
show box1
prog2/data: (to integer! trim/all cyan-ink) / 100
show prog2
box2/text: (to integer! trim/all cyan-ink)
show box2
prog3/data: (to integer! trim/all magenta-ink) / 100
show prog3
box3/text: (to integer! trim/all magenta-ink)
show box3
prog4/data: (to integer! trim/all yellow-ink) / 100
show prog4
box4/text: (to integer! trim/all yellow-ink)
show box4
]
button "Clean Heads" [call ["escputil -cur /dev/usb/lp0"]]
button "Test Pattern" [call ["escputil -nur /dev/usb/lp0"]]
at 95x75 image img effect [emboss]
at 50x75 prog1: progress gray black 20x100 with [data: 0.00]
at 48x185 box1: box 24x24 "" font-size 12
at 230x75 prog2: progress gray cyan 20x100 with [data: 0.00]
at 228x185 box2: box 24x24 "" font-size 12
at 270x75 prog3: progress gray magenta 20x100 with [data: 0.00]
at 268x185 box3: box 24x24 "" font-size 12
at 310x75 prog4: progress gray yellow 20x100 with [data: 0.00]
at 308x185 box4: box 24x24 "" font-size 12
] 360x270

I will wait for your replies before i put it up.

Once again thankyou both for your help with this.

ARU

[notchent]

Hey Aru,

You're more than welcome to re-post any code that I've posted here - thanks for the credit

That little print line was just part of the debugging process for me, so that I could see what values were being returned by parse.  I put little print statements like that in code all the time to check variables values when I'm writing/testing.  I  forgot to take it out before posting here

[AllRebbedUp]

Hello notchent

You're more than welcome to re-post any code that I've posted here - thanks for the credit

Ok mate, but the thanks really do go to yourself and btiffin.
I'll await for btiffin to reply then i will put it up on rebol.org.

That little print line was just part of the debugging process for me, so that I could see what values were being returned by parse.  I put little print statements like that in code all the time to check variables values when I'm writing/testing.  I  forgot to take it out before posting here

And thankyou for the explaination.

ARU

[btiffin]

Go right ahead;  And just so ya know, I'll take credit, but it isn't necessary.    I'm a huge fan of seeing rebol.org grow.

Cheers and thanks

[AllRebbedUp]

notchent & btiffin

I have just uploaded it in the tools category.

Thanks again for your help,
i am sure i will be back soon for more, as i have an idea for yet another GUI.

In fact one already exists (not rebol), but it is dependant on python and whatnot,
and weighs in at around 110MB including its dependancies (absolutely outrageous).
Especially when you consider the fact that the OS i am running has an ISO size of only 87MB (Puppy Linux (Dingo)) 

What is this behemoth you ask ?
In a word wbarconf

See you soon

ARU

[btiffin]

All right ARU!  Well done.  rebol.org is a somewhat under utilized resource.  The more the merrier.

Looking forward.

Cheers