Create a toolbar

[Mag]

As there is no support for the OS X toolbar, I decided to create one using a graphic object and buttons.

Does anyone have advice for me for the artwork, I would use a button with an icon containing a image gradient. it is possible to use as icon in a button that acts as a pattern that repeats itself?

Second, as we know with the toolbar, you can drag the window, this is achievable?

[shaosean]

If they would set the "composite" flag of the windows to true (this can only be done when the window is created and cannot be changed afterwards so cannot achieve it with an external) then it would be trivial to create toolbars for Mac OS X..

[ibe]

Dragging the window is simple. If your toolbar is for example a rectangle, just add a dragging script to it. You can cut and copy the code from the 'How to make a stack with a window shape' lesson on the RunRev site:
http://lessons.runrev.com/s/lessons/m/4 ... ndow-shape
Look for the code in the chapter 'Add script to move your new stack'

[Mag]

If they would set the "composite" flag of the windows to true (this can only be done when the window is created and cannot be changed afterwards so cannot achieve it with an external) then it would be trivial to create toolbars for Mac OS X..

I shaosean, thank you for the message, I will try to just to add it below the real titlebar (see picture). I know, it's not the state of the art of OS X interface but I seem to recall that at the begin the toolbars are used to be implemented in that way.


Thank you Ibe! It works fine!

Does anyone advise me on how to make a gradient similar to that of the real toolbar using a graphic element with graphic effects?

PS
Or maybe it could it be better to use a button with an image as icon?

[Klaus]

Hi Mag,

load the attached image and set it as the FILL pattern for a button, like I did in one of my projects
It is actually a screenshot from a "real" OS X toolbar.


Best

Klaus

[Mag]

Thank you so much Klaus!

PS
Somebody has a retina Mac so to take a screen of the @2x version?

[Mag]

Al worked great until I create some menus using Menu Builder. If I set the checkbox "Set as stack menu bar" to true, when you drag using the toolbar you see that the window moves by some pixels (as if there where a menubar present in the window, that actually there isn't).

Code: Select all

local sgDragging, sgLeftOffset, sgTopOffset

on mouseDown 
       put item 1 of the mouseLoc into sgLeftOffset 
       put item 2 of the mouseLoc into sgTopOffset 
       put true into sgDragging 
end mouseDown

on mouseMove 
    lock screen
    if sgDragging is true then 
        set the left of this stack to item 1 of globalloc(the mouseLoc) - sgLeftOffset 
        set the top of this stack to item 2 of globalloc(the mouseLoc) - sgTopOffset 
    end if 
    unlock screen 
end mouseMove

on mouseRelease 
    put false into sgDragging 
end mouseRelease

on mouseUp 
    put false into sgDragging 
end mouseUp

[PBH]

Mag, try…

Code: Select all

local sgDragging, sgLeftOffset, sgTopOffset

on mouseDown 
       put item 1 of the mouseLoc into sgLeftOffset 
       put item 2 of the mouseLoc into sgTopOffset 
       put true into sgDragging 
end mouseDown

on mouseMove 
    lock screen
    if sgDragging is true then 
        set the left of this stack to item 1 of globalloc(the mouseLoc) - sgLeftOffset 
        set the top of this stack to item 2 of globalloc(the mouseLoc) - sgTopOffset +22 ## Allowance for MenuBar
    end if 
    unlock screen 
end mouseMove

on mouseRelease 
    put false into sgDragging 
end mouseRelease

on mouseUp 
    put false into sgDragging 
end mouseUp

Paul

[Klaus]

HI all,

or even shorter

Hint: No LOCK/UNLOCK SCREEN necessary!

Code: Select all

local maydrag

on mouseDown
  put mouseH() & "," & mouseV() into maydrag
end mouseDown

on mouseMove
  if maydrag is not empty then
    set the topLeft of this stack to (item 1 of the screenMouseLoc - item 1 of maydrag),()item 2 of the screenMouseLoc - item 2 of maydrag
  end if
end mouseMove

on mouseUp
  put empty into maydrag
end mouseUp

on mouserelease
  mouseup
end mouserelease

Best

Klaus

[ibe]

I've been playing around with implementing a toolbar and have an almost workable solution. The project description and source code can be found at http://bergroth.on-rev.com/ibTools/styled-3/index.html

Here is a picture of the current version:

[Mag]

Thank you Klaus, I'm trying to implement it but I get this error:

button "toolbarButton": compilation error at line 10 (Expression: missing factor) near ")", char 89

[Mag]

I've been playing around with implementing a toolbar and have an almost workable solution. The project description and source code can be found at http://bergroth.on-rev.com/ibTools/styled-3/index.html

Here is a picture of the current version:

Wow! Very impressive!!

[Mag]

Thank you Paul!

And for Retina I guess I have to double that value...

[Klaus]

Hi Mag,

Thank you Klaus, I'm trying to implement it but I get this error:

button "toolbarButton": compilation error at line 10 (Expression: missing factor) near ")", char 89

sorry, my fault, a little typo, change the "mousemove" handler to:

Code: Select all

on mouseMove
  if maydrag is not empty then
    set the topLeft of this stack to (item 1 of the screenMouseLoc - item 1 of maydrag),(item 2 of the screenMouseLoc - item 2 of maydrag)
  end if
end mouseMove

Best

Klaus

[Mag]

Hi Mag,

Thank you Klaus, I'm trying to implement it but I get this error:

button "toolbarButton": compilation error at line 10 (Expression: missing factor) near ")", char 89

sorry, my fault, a little typo, change the "mousemove" handler to:

Code: Select all

on mouseMove
  if maydrag is not empty then
    set the topLeft of this stack to (item 1 of the screenMouseLoc - item 1 of maydrag),(item 2 of the screenMouseLoc - item 2 of maydrag)
  end if
end mouseMove

Best

Klaus

Hi Klaus, this works well, thanks.

PS
This also have the problem that jumps of 22 pixels due that thinks that there is a menubar in the window (but there is not).