PureBasic Forums - English

Posted: **Fri Oct 12, 2012 6:51 am**

Alert message with suppression checkbox

Procedure AlertWithSuppression(Title.s, Text.s, SuppressionText.s)
  Protected Alert = CocoaMessage(0, CocoaMessage(0, 0, "NSAlert new"), "autorelease")
  CocoaMessage(0, Alert, "setMessageText:$", @Title)
  CocoaMessage(0, Alert, "setInformativeText:$", @Text)
  CocoaMessage(0, Alert, "setShowsSuppressionButton:", #YES)
  Protected SuppressionButton = CocoaMessage(0, Alert, "suppressionButton")
  CocoaMessage(0, SuppressionButton, "setTitle:$", @SuppressionText)
  CocoaMessage(0, Alert, "runModal")
  ProcedureReturn CocoaMessage(0, SuppressionButton, "state")
EndProcedure


Suppress = #NO

OpenWindow(0, 0, 0, 200, 100, "Alert with suppression", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ButtonGadget(0, 10, 10, 180, 30, "Button")

Repeat
  Select WaitWindowEvent()
    Case #PB_Event_CloseWindow
      Break
    Case #PB_Event_Gadget
      If Suppress = #NO
        Suppress = AlertWithSuppression("Message", "You pressed the button", "Do not show this message again please")        
      EndIf
  EndSelect
ForEver

Posted: **Fri Oct 12, 2012 3:14 pm**

Justify text in columns of ListIconGadget:

Code: Select all

EnableExplicit

Procedure SetListIconColumnJustification(ListIconID.I, ColumnIndex.I, Alignment.I)
  Protected ColumnHeaderCell.I
  Protected ColumnObject.I
  Protected ColumnObjectArray.I

  ; ----- Justify text of column cells
  CocoaMessage(@ColumnObjectArray, GadgetID(ListIconID), "tableColumns")
  CocoaMessage(@ColumnObject, ColumnObjectArray, "objectAtIndex:", ColumnIndex)
  CocoaMessage(0, CocoaMessage(0, ColumnObject, "dataCell"), "setAlignment:", Alignment)

  ; ----- Justify text of column header
  CocoaMessage(@ColumnHeaderCell, ColumnObject, "headerCell")
  CocoaMessage(0, ColumnHeaderCell, "setAlignment:", Alignment)

  ; ----- Redraw ListIcon contents to see change
  CocoaMessage(0, GadgetID(ListIconID), "reloadData")
EndProcedure

Define OptionGadgetID.I

OpenWindow(0, 200, 100, 445, 140, "Change column justification")
ListIconGadget(0, 5, 5, 435, 58, "Name", 110)
AddGadgetColumn(0, 1, "Address", 300)
AddGadgetItem(0, -1, "Harry Rannit" + #LF$ + "12 Parliament Way, Battle Street, By the Bay")
AddGadgetItem(0, -1, "Ginger Brokeit" + #LF$ + "130 PureBasic Road, BigTown, CodeCity")
Frame3DGadget(1, 10, 75, WindowWidth(0) - 20, 50, "Justification of 2nd column:")
OptionGadget(2, 20, 95, 70, 20, "Left")
OptionGadget(3, 330, 95, 70, 20, "Right")
OptionGadget(4, 180, 95, 70, 20, "Center")
SetGadgetState(2, #True)

Repeat
  Select WaitWindowEvent()
    Case #PB_Event_CloseWindow
      Break
    Case #PB_Event_Gadget
      OptionGadgetID = EventGadget()

      Select OptionGadgetID
        Case 2 To 4
          SetListIconColumnJustification(0, 1, OptionGadgetID - 2)
      EndSelect
  EndSelect
ForEver

Update 1: I have added code to also change the justification of the column header's text
Update 2: In the procedure SetListIconColumnJustification() I changed GadgetID(0) into GadgetID(ListIconID) (thank you for your hint, wilbert!)

Posted: **Fri Oct 12, 2012 3:29 pm**

Love the fact you guys so quickly made that much Cocoa code!

Posted: **Fri Oct 12, 2012 9:46 pm**

Set ToolTip for column header in ListIconGadget:

Code: Select all

Procedure SetColumnHeaderToolTip(ListIconID.I, ColumnIndex.I, ToolTipText.S)
  Protected ColumnObject.I

  CocoaMessage(@ColumnObject, CocoaMessage(0, GadgetID(ListIconID), "tableColumns"), "objectAtIndex:", ColumnIndex)
  CocoaMessage(0, ColumnObject, "setHeaderToolTip:$", @ToolTipText)
EndProcedure

OpenWindow(0, 270, 100, 410, 67, "ListIcon Example")
ListIconGadget(0, 5, 5, 400, 57, "Name", 110)
AddGadgetColumn(0, 1, "Address", 285)
AddGadgetItem(0, -1, "Harry Rannit" + #LF$ + "12 Parliament Way, Battle Street, By the Bay")
AddGadgetItem(0, -1, "Ginger Brokeit" + #LF$ + "130 PureBasic Road, BigTown, CodeCity")

SetColumnHeaderToolTip(0, 0, "Firstname & Surname")

Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow

Posted: **Fri Oct 12, 2012 10:01 pm**

Polo wrote:Love the fact you guys so quickly made that much Cocoa code!

You have to thank wilbert for his brilliant CocoaMessage userlib and for his numerous Cocoa examples although I will try to catch up...

It would be very nice if Fred would decide to implement the CocoaMessage() command natively in PureBasic - perhaps with a more PureBasic-like name such as SendCommand(), SendCocoaCommand() or SendObjectMessage()...

Posted: **Sat Oct 13, 2012 4:55 am**

Polo wrote:Love the fact you guys so quickly made that much Cocoa code!

The Cocoa classes are documented pretty well, that makes it easier to come up with examples

What also helps is that you can easily 'inspect' an object to see what classes it inherits from. And of course you don't have to import every function.

Shardik wrote:It would be very nice if Fred would decide to implement the CocoaMessage() command natively in PureBasic - perhaps with a more PureBasic-like name such as SendCommand(), SendCocoaCommand() or SendObjectMessage()...

I agree it would be nice. It makes it easier to post solutions to questions in other threads without having to refer all the time to the userlib.
If the command would get another name, so be it. The only thing I wouldn't look forward to is editing all my examples in this case

Anyway, I chose the name to be short and starting with a lowercase character on purpose, to make it different from the other cross platform commands. I know PureBasic is all about being cross platform and I understand Fred might hesitate to add a platform specific command.

Shardik wrote:I will try to catch up...

Great

I'm looking forward to more examples.

Posted: **Sat Oct 13, 2012 11:07 am**

Toggle grid lines in ListIconGadget between vertical, horizontal, combined vertical + horizontal and none:

Code: Select all

EnableExplicit

#NSTableViewGridNone                     = 0
#NSTableViewSolidVerticalGridLineMask    = 1 << 0
#NSTableViewSolidHorizontalGridLineMask  = 1 << 1

Define GridLineStyle.I

OpenWindow(0, 200, 100, 430, 220, "ListIcon Example")

ListIconGadget(0, 10, 10, WindowWidth(0) - 20, 75, "Name", 110)
AddGadgetColumn(0, 1, "Address", GadgetWidth(0) - GetGadgetItemAttribute(0, 0, #PB_ListIcon_ColumnWidth))
AddGadgetItem(0, -1, "Harry Rannit" + #LF$ + "12 Parliament Way, Battle Street, By the Bay")
AddGadgetItem(0, -1, "Ginger Brokeit"+ #LF$ + "130 PureBasic Road, BigTown, CodeCity")
AddGadgetItem(0, -1, "Didi Foundit"+ #LF$ + "321 Logo Drive, Mouse House, Downtown")
Frame3DGadget(1, 90, 100, 250, 108, "Grid line style:")
OptionGadget(2, 100, 120, 240, 20, "No grid lines")
OptionGadget(3, 100, 140, 240, 20, "Solid vertical")
OptionGadget(4, 100, 160, 240, 20, "Solid horizontal")
OptionGadget(5, 100, 180, 240, 20, "Solid horizontal and vertical")
SetGadgetState(2, #True)

Repeat
  Select WaitWindowEvent()
    Case #PB_Event_CloseWindow
      Break
    Case #PB_Event_Gadget
      Select EventGadget()
        Case 2
          GridLineStyle = #NSTableViewGridNone
        Case 3
          GridLineStyle = #NSTableViewSolidVerticalGridLineMask
        Case 4
          GridLineStyle = #NSTableViewSolidHorizontalGridLineMask
        Case 5
          GridLineStyle = #NSTableViewSolidHorizontalGridLineMask | #NSTableViewSolidVerticalGridLineMask
      EndSelect

      CocoaMessage(0, GadgetID(0), "setGridStyleMask:", GridLineStyle)
  EndSelect
ForEver

Posted: **Sat Oct 13, 2012 1:52 pm**

Semi-transparent window and transparent ListIconGadget:

Code: Select all

Define Alpha.CGFloat = 0.8

OpenWindow(0, 200, 100, 430, 95, "ListIcon Example")
ListIconGadget(0, 10, 10, WindowWidth(0) - 20, WindowHeight(0) - 20, "Name", 110)
AddGadgetColumn(0, 1, "Address", GadgetWidth(0) - GetGadgetItemAttribute(0, 0, #PB_ListIcon_ColumnWidth))
AddGadgetItem(0, -1, "Harry Rannit" + #LF$ + "12 Parliament Way, Battle Street, By the Bay")
AddGadgetItem(0, -1, "Ginger Brokeit"+ #LF$ + "130 PureBasic Road, BigTown, CodeCity")
AddGadgetItem(0, -1, "Didi Foundit"+ #LF$ + "321 Logo Drive, Mouse House, Downtown")

CocoaMessage(0, WindowID(0), "setOpaque:", #NO)
CocoaMessage(0, WindowID(0), "setAlphaValue:@", @Alpha)
Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow

Window with background image and transparent ListIconGadget:

Code: Select all

UseJPEGImageDecoder()

OpenWindow(0, 200, 100, 430, 300, "Window with background image + transparent ListIcon")
ListIconGadget(0, 10, 100, WindowWidth(0) - 20, 75, "Name", 110)
AddGadgetColumn(0, 1, "Address", GadgetWidth(0) - GetGadgetItemAttribute(0, 0, #PB_ListIcon_ColumnWidth))
AddGadgetItem(0, -1, "Harry Rannit" + #LF$ + "12 Parliament Way, Battle Street, By the Bay")
AddGadgetItem(0, -1, "Ginger Brokeit"+ #LF$ + "130 PureBasic Road, BigTown, CodeCity")
AddGadgetItem(0, -1, "Didi Foundit"+ #LF$ + "321 Logo Drive, Mouse House, Downtown")

If LoadImage(0, #PB_Compiler_Home + "Examples/3D/Data/Textures/Clouds.jpg")
  ContentView = CocoaMessage(0, WindowID(0), "contentView")
  CocoaMessage(0, ContentView, "setWantsLayer:", #YES)
  Layer = CocoaMessage(0, ContentView, "layer")
  CocoaMessage(0, Layer, "setContents:", ImageID(0))
EndIf

CocoaMessage(0, GadgetID(0), "setBackgroundColor:", CocoaMessage(0, 0, "NSColor clearColor"))
CocoaMessage(0, CocoaMessage(0, GadgetID(0), "enclosingScrollView"), "setDrawsBackground:", #NO)

Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow

Update: In the first example I had to change the declaration of variable Alpha from Float to CGFloat in order to run correctly in 32 and 64 environments (Thank you for your hint, wilbert!).

Posted: **Mon Oct 15, 2012 3:45 pm**

Great list of tips here

Thank you all!

Any idea how to enable wordwrap in EditorGadget on MacOS using CocoaMessage() command?

Kukulkan

Posted: **Mon Oct 15, 2012 4:12 pm**

Kukulkan wrote:Any idea how to enable wordwrap in EditorGadget on MacOS using CocoaMessage() command?

As far as I know there is no single command solution.

Edit :
My initial code didn't seem to work properly when toggling wordwrap.
Here's an alternative solution from Shardik

Code: Select all

Procedure EditorGadget_SetWordWrap(EditorGadgetID, wrap)
  Protected Size.NSSize
  Protected Container.i = CocoaMessage(0, EditorGadgetID, "textContainer")
  CocoaMessage(@Size, Container, "containerSize")
  If wrap
    Size\width = GadgetWidth(0) - 2
  Else
    Size\width = $FFFF
  EndIf
  CocoaMessage(0, Container, "setContainerSize:@", @Size)
EndProcedure

OpenWindow(0, 270, 100, 250, 110, "Word Wrap Test", #PB_Window_SystemMenu)
EditorGadget(0, 10, 10, 230, 60)
ButtonGadget(1, 60, 80, 140, 25, "Toggle Word Wrap")

For i = 1 To 5
  Text$ = Text$ + "This is a word wrap test - "
Next i

SetGadgetText(0, Text$)

Repeat
  Select WaitWindowEvent()
    Case #PB_Event_CloseWindow
      Break
    Case #PB_Event_Gadget
      If EventGadget() = 1
        WordWrap ! 1
        EditorGadget_SetWordWrap(GadgetID(0), WordWrap)
      EndIf
  EndSelect
ForEver

Posted: **Mon Oct 15, 2012 4:39 pm**

Thanks! Seem to work here. It is a shame that the EditorGadget does not support such flag...

Posted: **Tue Oct 16, 2012 9:00 am**

Calling AppleScript

Code: Select all

Procedure.s AppleScript(Script.s)
  Protected retVal.s, strVal, numItems, i
  Protected aScript = CocoaMessage(0, CocoaMessage(0, CocoaMessage(0, 0, "NSAppleScript alloc"), "initWithSource:$", @Script), "autorelease")
  Protected eventDesc = CocoaMessage(0, aScript, "executeAndReturnError:", #nil)
  If eventDesc
    numItems = CocoaMessage(0, eventDesc, "numberOfItems")
    If numItems
      For i = 1 To numItems
        strVal = CocoaMessage(0, CocoaMessage(0, eventDesc, "descriptorAtIndex:", i), "stringValue")
        If strVal
          retVal + PeekS(CocoaMessage(0, strVal, "UTF8String"), -1, #PB_UTF8)
          If i <> numItems : retVal + #LF$ : EndIf
        EndIf
      Next
    Else
      strVal = CocoaMessage(0, eventDesc, "stringValue")
      If strVal : retVal = PeekS(CocoaMessage(0, strVal, "UTF8String"), -1, #PB_UTF8) : EndIf
    EndIf
  EndIf
  ProcedureReturn retVal 
EndProcedure

MessageRequester("", AppleScript("tell application " + Chr(34) + "Finder" + Chr(34) + " To get the name of every item in the desktop"))

Posted: **Tue Oct 16, 2012 11:27 am**

Window live resize

Code: Select all

; *** import the required functions ***

ImportC ""
  sel_registerName(str.p-ascii)
  class_addMethod(class, selector, imp, types.p-ascii)
EndImport

; *** required variables ***

Global notificationCenter = CocoaMessage(0, 0, "NSNotificationCenter defaultCenter")
Global appDelegate = CocoaMessage(0, CocoaMessage(0, 0, "NSApplication sharedApplication"), "delegate")
Global delegateClass = CocoaMessage(0, appDelegate, "class")

Define selector


; *** Window0 resize callback ***

ProcedureC Window0_Resize(obj, sel, notification)
  ResizeGadget(0, 10, 10, WindowWidth(0) - 20, WindowHeight(0) - 20)
EndProcedure


; *** main code ***

If OpenWindow(0, 0, 0, 320, 170, "Window live resize", #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_SizeGadget)
  
  EditorGadget(0, 10, 10, 300, 150)
  
  selector = sel_registerName("Window0_Resize:")
  class_addMethod(delegateClass, selector, @Window0_Resize(), "v@:@")
  CocoaMessage(0, notificationCenter, "addObserver:", appDelegate, "selector:", selector, "name:$", @"NSWindowDidResizeNotification", "object:", WindowID(0))
  
  Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
  
EndIf

CocoaMessage(0, notificationCenter, "removeObserver:", appDelegate, "name:$", @"NSWindowDidResizeNotification", "object:", #nil)

Edit : For newer versions of PureBasic, use BindEvent()

Posted: **Tue Oct 16, 2012 11:42 am**

Don't forget to remove the observer when the window is closed. You can also use SetWindowCallback() in 5.00

Posted: **Tue Oct 16, 2012 11:53 am**

Fred wrote:Don't forget to remove the observer when the window is closed. You can also use SetWindowCallback() in 5.00

I added the code to remove the observer.

Can you document the SetWindowCallback() please since it seems to be incompatible with the Windows example in the help file.

PureBasic Forums - English

[PB Cocoa] Methods, Tips & Tricks

Re: [PB Cocoa] Methods, Tips & Tricks

Re: [PB Cocoa] Methods, Tips & Tricks

Re: [PB Cocoa] Methods, Tips & Tricks

Re: [PB Cocoa] Methods, Tips & Tricks

Re: [PB Cocoa] Methods, Tips & Tricks

Re: [PB Cocoa] Methods, Tips & Tricks

Re: [PB Cocoa] Methods, Tips & Tricks

Re: [PB Cocoa] Methods, Tips & Tricks

Re: [PB Cocoa] Methods, Tips & Tricks

Re: [PB Cocoa] Methods, Tips & Tricks

Re: [PB Cocoa] Methods, Tips & Tricks

Re: [PB Cocoa] Methods, Tips & Tricks

Re: [PB Cocoa] Methods, Tips & Tricks

Re: [PB Cocoa] Methods, Tips & Tricks

Re: [PB Cocoa] Methods, Tips & Tricks