PureBasic Forums - English

ChangeWindowAttributes_(WindowID(0),(1 << 28 ),0)

Your application can use the functions SetWindowModified and IsWindowModified instead of maintaining its own separate record of the modification state of the content of a window. The modification state of a window is visually represented by a dot in the window’s close box. If the dot is present, the window is modified; if the dot is absent, the window is not modified.

Your application should distinguish between the modification state of the window and the modification state of the window’s contents, typically a document. The modification state of the window contents are what should affect SetWindowModified. For example, in the case of a word processing document, you call SetWindowModified (passing true in the modified parameter) whenever the user types new characters into the document. However, you do not call SetWindowModified when the user moves the window, because that change does not affect the document contents. If you need to track whether the window position has changed, you need to do this with your own flag.

ImportC "/System/Library/Frameworks/Carbon.framework/Carbon"
  SetWindowModified(WindowRef.l, State.l)
  IsWindowModified(WindowRef.l) ; returns Boolean
EndImport  

wilbert wrote:Never mind, I got it working.
It works on OSX 10.6.2 . From what I understand so far, it should also work on OSX 10.2 or higher.
If someone has a OSX version from 10.2 to 10.5 and wants to test it, I would appreciate it if you let me know if it works.

Code: Select all

     
ImportC "/System/Library/Frameworks/Carbon.framework/Carbon"
  ;ChangeWindowAttributes (window, setTheseAttributes, clearTheseAttributes)
  ;GetEventParameter (event, name, desiredType, ptrActualType, bufferSize, ptrActualSize, ptrData)
  ;;GetWindowEventTarget (target)
  ;InstallEventHandler (target, handler, numTypes, ptrList, userData, outHandlerRef)
  SetWindowResizeLimits (window, minLimits, maxLimits)
EndImport

wilbert wrote:Never mind, I got it working.
It works on OSX 10.6.2 . From what I understand so far, it should also work on OSX 10.2 or higher.
If someone has a OSX version from 10.2 to 10.5 and wants to test it, I would appreciate it if you let me know if it works.

Code: Select all

#kEventClassWindow = 'wind'
#kEventParamCurrentBounds = 'crct'
#kEventParamPreviousBounds = 'prct'
#kEventWindowBoundsChanging = 26
#kWindowNoAttributes = $0
#kWindowLiveResizeAttribute = $10000000
#noErr = 0
#typeHIRect = 'hirc'
     
ImportC "/System/Library/Frameworks/Carbon.framework/Carbon"
  ChangeWindowAttributes (window, setTheseAttributes, clearTheseAttributes)
  GetEventParameter (event, name, desiredType, ptrActualType, bufferSize, ptrActualSize, ptrData)
  GetWindowEventTarget (target)
  InstallEventHandler (target, handler, numTypes, ptrList, userData, outHandlerRef)
  NewEventHandlerUPP (userRoutine)
  SetWindowResizeLimits (window, minLimits, maxLimits)
EndImport

Macro InstallWindowEventHandler (target, handler, numTypes, ptrList, userData, outHandlerRef)
  InstallEventHandler(GetWindowEventTarget(target), handler, numTypes, ptrList, userData, outHandlerRef)
EndMacro

Structure EventTypeSpec
  eventClass.l
  eventKind.l
EndStructure

Structure HIRect
  x.f
  y.f
  width.f
  height.f
EndStructure

Structure HISize
  width.f
  height.f
EndStructure

ProcedureC.l ResizeHandler (nextHandler, theEvent, ptrUserData)
  GetEventParameter(theEvent, #kEventParamCurrentBounds, #typeHIRect, #Null, SizeOf(HIRect), #Null, @current.HIRect)  
  GetEventParameter(theEvent, #kEventParamPreviousBounds, #typeHIRect, #Null, SizeOf(HIRect), #Null, @previous.HIRect)  
  If current\width <> previous\width Or current\height <> previous\height
    ResizeGadget(0, 10, 10, current\width - 20, current\height - 50)
  EndIf
  ProcedureReturn #noErr
EndProcedure

WindowRef.l = OpenWindow(0, 0, 0, 640, 480, "PureBasic - Live Resize", #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_SizeGadget)
If WindowRef

  minSize.HISize\width = 120
  minSize\height = 150
  maxSize.HISize\width = 1024
  maxSize\height = 768
  SetWindowResizeLimits(WindowRef, @minSize, @maxSize)
  ChangeWindowAttributes(WindowRef, #kWindowLiveResizeAttribute, #kWindowNoAttributes)
  EventList.EventTypeSpec\eventClass = #kEventClassWindow
  EventList\eventKind = #kEventWindowBoundsChanging
  InstallWindowEventHandler(WindowRef, NewEventHandlerUPP(@ResizeHandler()), 1, @EventList, #Null, #Null)

  WebGadget(0, 10, 10, 620, 430, "http://www.purebasic.com")
  Repeat
    EventID = WaitWindowEvent()
  Until EventID = #PB_Event_CloseWindow

EndIf
End