home *** CD-ROM | disk | FTP | other *** search
/ NetNews Offline 2 / NetNews Offline Volume 2.iso / news / comp / sys / amiga / programmer / 3763 < prev    next >
Encoding:
Internet Message Format  |  1996-08-05  |  2.0 KB
  1. Path: the-fly.zip.com.au!not-for-mail
  2. From: stuartm@zip.com.au (Stuart Mackinnon)
  3. Newsgroups: comp.sys.amiga.programmer
  4. Subject: Re: How adjust window borders?
  5. Date: 24 Feb 1996 03:39:59 GMT
  6. Organization: Very Little
  7. Distribution: world
  8. Message-ID: <4gm1af$i15@the-fly.zip.com.au>
  9. References: <19960217.7D84090.A425@mojaveg.ridgecrest.ca.us> <ehb.02st@draco.prima.ruhr.de>
  10. NNTP-Posting-Host: zipper.zip.com.au
  11. X-Newsreader: TIN [UNIX 1.3 950824BETA PL0]
  12.  
  13. In article <19960217.7D84090.A425@mojaveg.ridgecrest.ca.us> mojaveg@ridgecrest.ca.us (Everett M. Greene) writes:
  14. >I wish to be able to directly control the size of the window borders
  15. >for a window which has no border gadgets or text.  The window opens
  16. >as desired but I would prefer to have all four borders a bit wider.
  17. >The implications in the RKM are that WA_InnerWidth and WA_InnerHeight
  18. >should have some effect on border widths, but trying these seems to
  19. >have no visible effect whatsoever.  Any ideas?
  20.  
  21. What I am about to tell you is not very system friendly!!! Be warned!!
  22.  
  23. Before you open your window do something like a Forbid() (I don't think
  24. intuition uses interrupts in such a way to affect this, but if you
  25. really want you could do Disable()).
  26.  
  27. Then modify the WBorTop, WBorLeft, WBorRight, WBorBottom field in the
  28. Screens structure. Remember the previous values before you start poking
  29. them.
  30.  
  31. Now, open your window. Restore the previous values in the Screen's
  32. structure and call Permit() (or Enable()).
  33.  
  34. Once the window is open, you can't modify the border sizes.
  35.  
  36. This lets you adjust your window's borders, but I would recommend NOT
  37. doing it.
  38.  
  39. Regards,
  40.  
  41. Stuart MacKinnon.
  42. -- 
  43.  
  44. +- Stuart MacKinnon ------------------------------------ stuartm@zip.com.au -+
  45. |  VIC20, CBM 128+1571, A1000+Sidecar, CD32, A4000/040+A4091+A2065+RetinaZ3! |
  46. |  Registered BeBox Developer - for those at the bleeding edge.              |
  47. |  PHONE: +61 2 398 4578 (AH)                            +61 2 693 0445 (BH) |
  48. +--- Aztec C - Use it to MANXimise code inefficiency! -----------------------+
  49.