config.module

Gambas is a graphical development environment based on a Basic interpreter, like Visual Basic. It us

' Gambas module file

PUBLIC SUB LoadWindow(hWindow AS Window, sKey AS String)

  DIM sPos AS String
  DIM cPos AS String[]

  sPos = Settings[sKey]
  IF NOT sPos THEN RETURN

  cPos = Split(sPos, ",")
  IF cPos.Count = 4 AND hWindow.Border = Window.Resizable THEN
    IF hWindow.Modal THEN
      hWindow.Resize(cPos[2], cPos[3])
    ELSE
      hWindow.Move(cPos[0], cPos[1], cPos[2], cPos[3])
    ENDIF
  ELSE
    IF NOT hWindow.Modal THEN hWindow.Move(cPos[0], cPos[1])
  ENDIF

END


PUBLIC SUB SaveWindow(hWindow AS Window, sKey AS String)

  DIM sPos AS String

  sPos = CStr(hWindow.X) & "," & CStr(hWindow.Y)
  'IF hWindow.Border = Window.Resizable THEN
    sPos = sPos & "," & CStr(hWindow.Width) & "," & CStr(hWindow.Height)
  'ENDIF

  Settings[sKey] = sPos

END