Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]


Groups > comp.sys.acorn.programmer > #249

Re: Toggling an Icon on the bar

From Martin Wuerthner <spamtrap@mw-software.com>
Newsgroups comp.sys.acorn.programmer
Subject Re: Toggling an Icon on the bar
Date 2011-04-29 11:21 +0200
Organization MW Software
Message-ID <819574cb51.martin@bach.planiverse.com> (permalink)
References <9330de2a-526b-4d39-b58f-2d389d8f02b9@k25g2000yqf.googlegroups.com>

Show all headers | View raw


In message <9330de2a-526b-4d39-b58f-2d389d8f02b9@k25g2000yqf.googlegro 
ups.com>
          Martin Hansen <mhh@shrewsbury.org.uk> wrote:

> To start with
> DIM icon% 36

> $icon% = "!MyTask"
> blk%!0=-1 : blk%!4=0 : blk%!8=0 : blk%!12=68
> blk%!16=68 : blk%!20=&B7002102 : blk%!24 = icon%
> blk%!28 = -1 : blk%!32 =LEN($icon%)
> SYS "Wimp_CreateIcon",,blk% TO MyTask%

"blk%!28 = -1" is not a good idea. There is no sprite area at -1.

> gets the icon on the bar

> blk%!0=-2 : blk%!4 = MyTask%
> SYS "Wimp_DeleteIcon",, blk%
> SYS "Wimp_ForceRedraw",-2

> gets it off.

> If I now re enter the first routine after the DIM
> it does not like the line
> $icon%="MyTask"

"Does not like" is not really a good description of a fault, in 
particular in a programmers' forum. How did you arrive at the 
conclusion that something does not like that line? Is there an error?

-- 
Martin
---------------------------------------------------------------------
Martin Wuerthner         MW Software      http://www.mw-software.com/
        RISC OS Software for Design, Printing and Publishing
---------------------------------------------------------------------

Back to comp.sys.acorn.programmer | Previous | NextPrevious in thread | Next in thread | Find similar | Unroll thread


Thread

Toggling an Icon on the bar Martin Hansen <mhh@shrewsbury.org.uk> - 2011-04-28 19:12 -0700
  Re: Toggling an Icon on the bar James Lampard <dontreplytothis@mailinator.com> - 2011-04-28 20:32 -0700
  Re: Toggling an Icon on the bar Martin Wuerthner <spamtrap@mw-software.com> - 2011-04-29 11:21 +0200
    Re: Toggling an Icon on the bar James Lampard <dontreplytothis@mailinator.com> - 2011-04-29 03:01 -0700
      Re: Toggling an Icon on the bar Martin Hansen <mhh@shrewsbury.org.uk> - 2011-04-29 03:15 -0700
        Re: Toggling an Icon on the bar Martin Wuerthner <spamtrap@mw-software.com> - 2011-04-29 12:38 +0200
          Re: Toggling an Icon on the bar Martin Hansen <mhh@shrewsbury.org.uk> - 2011-04-29 03:56 -0700
        Re: Toggling an Icon on the bar Steve Fryatt <news@stevefryatt.org.uk> - 2011-04-29 11:52 +0100

csiph-web