[SOLVED] SCI0 - Death Icon at Top of Window

[Doan Sephim]

Does anyone have any ideas how I can edit the Template to display the death icon at the top of the window instead of always on the left-hand side? Ideally, I'd like to be able to switch this, but I'm having trouble finding out even where to look.

[lskovlun]

OK, so there are two things to be done here. Changing the Print procedure and then changing the death scripts.
The first part is more difficult, so we'll start with that. The central bit of code is this, in Controls.sc (you're still on the old syntax, right?):

Code: [Select]

(if(hIcon)
(send hIcon:moveTo(4 4))
(send hDText:moveTo( (+ 4 (send hIcon:nsRight)) (send hIcon:nsTop) ))
(send hDialog:add(hIcon))
)
As you can see this positions an icon (which was created before this) at the top left, then positions the (also previously created) text next to it. The important thing to note when changing this code is that the position and size of these objects are (and can be) recomputed several times (using the setSize and moveTo methods in particular) as more things are added to the layout. So you can take advantage of this. It's probably better to do this in a separate copy of Print since it's a bit of a mess already (you can always work on integrating them later, and may have to do so out of heap concerns). Then you add an option in the death script to call either of those as desired.

[Doan Sephim]

OK, so there are two things to be done here. Changing the Print procedure and then changing the death scripts.
The first part is more difficult, so we'll start with that. The central bit of code is this, in Controls.sc (you're still on the old syntax, right?):

Code: [Select]

(if(hIcon)
(send hIcon:moveTo(4 4))
(send hDText:moveTo( (+ 4 (send hIcon:nsRight)) (send hIcon:nsTop) ))
(send hDialog:add(hIcon))
)
As you can see this positions an icon (which was created before this) at the top left, then positions the (also previously created) text next to it. The important thing to note when changing this code is that the position and size of these objects are (and can be) recomputed several times (using the setSize and moveTo methods in particular) as more things are added to the layout. So you can take advantage of this. It's probably better to do this in a separate copy of Print since it's a bit of a mess already (you can always work on integrating them later, and may have to do so out of heap concerns). Then you add an option in the death script to call either of those as desired.

Thanks for pointing me in the right direction! I will work around a bit with this!

Also, I am now working with Sierra Script!

[Doan Sephim]

As I'm working on this, I hit upon a small and probably easy to fix issue:

Code: [Select]

(hIcon moveTo: *X* 4)
(hDText moveTo: 4 (+ 4 (hIcon nsBottom?)) )
(hDialog add: hIcon)
I've set the text to be written 4 pixels down from the bottom of the Icon, but setting the Icon's X position is proving difficult for me. I was trying to find the window's length variable, but am not sure where it is.

[gumby]

If it helps, the window coordinates are properties in the Window class (top/left/bottom/right).

Code: [Select]

(class Window of SysWindow
(properties
top 0
left 0
bottom 0
right 0
color clBLACK
back clWHITE
priority -1
window 0
type 0
title 0
brTop 0
brLeft 0
brBottom 190
brRight 320
underBits 0
)


[lskovlun]

In fact this is easy: There is already code to do it! When looking over the code, I found a special case that I didn't know about: If you call Print with an empty text along with an icon, the icon will be centered:

Code: [Select]

(Print "" #icon 800 0 0 #button "Very long button text here\nto illustrate the point")pictured below. All you have to do is move that code appropriately.

Code: [Select]

(hDialog setSize: center:)
(hIcon
moveTo:
(/
(-
(- (hDialog nsRight?) (hDialog nsLeft?))
(- (hIcon nsRight?) (hIcon nsLeft?))
)
2
)
4
)
This relies on the trick I mentioned before, that it is permitted to recalculate the size of things multiple times.

[Doan Sephim]

Nice! That works just right! Thanks!