Subject: Notepad Custom Wrapper Library
private m_mainWindow
private m_dialog
public function setWindow(caption)
Set m_mainWindow = Window("nativeclass:=Notepad", "text:=" & caption)
end function
public function setDocument(text)
m_mainWindow.WinEditor("nativeclass:=Edit").Type text
end function
public function setDialog(caption)
Set m_dialog = m_mainWindow.Dialog("nativeclass:=#32770",
"text:=" & getTranslation(caption))
end function
public function setTextField(attachedText, text)
m_dialog.WinEdit("nativeclass:=Edit", "attached text:=" & attachedText).Set text
end function
