testdialog

%isJoinEnabled = $isEventEnabled(OnJoin, suppressJoinMsgs)
%isPartEnabled = $isEventEnabled(OnPart, suppressPartMsgs)
%isQuitEnabled = $isEventEnabled(OnQuit, suppressQuitMsgs)

%ProtectPing = $option(boolIgnoreCTCPPing)
%ProtectFinger = $option(boolIgnoreCTCPFinger)
%ProtectVersion = $option(boolIgnoreCTCPVersion)
%ProtectUserinfo = $option(boolIgnoreCTCPUserinfo)
%ProtectClientinfo = $option(boolIgnoreCTCPClientinfo)
%ProtectSource = $option(boolIgnoreCTCPSource)
%ProtectTime = $option(boolIgnoreCTCPTime)
%ProtectPage = $option(boolIgnoreCTCPPage)
%ProtectAvatar = $option(boolIgnoreCTCPAvatar)
%ProtectDCC = $option(boolIgnoreCTCPDCC)

%widget = $new(widget)
# This is the main container for other elements.
%widget->$setWFlags(Dialog)
%widget->$setMinimumHeight(415)
%widget->$setMaximumHeight(415)
%widget->$setMinimumWidth(315)
%widget->$setMaximumWidth(515)
%widget->$resize(315, 415)

%widget->$setWindowTitle("Option Controllers - KVIrc")
%box=$new(vbox,%widget)

%layout=$new(layout,%widget)
%layout->$addWidget(%box,0,0)

%ctcplabel = $new(label,%box)
%ctcplabel->$setText("CTCP Ignore Controllers")

%checkboxjoin = $new(checkbox,%box)
%checkboxjoin->$setText("Enable join message suppression")
%checkboxjoin->$setchecked(%isJoinEnabled)

%checkboxpart = $new(checkbox,%box)
%checkboxpart->$setText("Enable part message suppression")
%checkboxpart->$setchecked(%isPartEnabled)

%checkboxquit = $new(checkbox,%box)
%checkboxquit->$setText("Enable quit message suppression")
%checkboxquit->$setchecked(%isQuitEnabled)

%msglabel = $new(label,%box)
%msglabel->$setText("Message Suppression Controllers")

%checkboxping = $new(checkbox,%box)
%checkboxping->$setText("Enable ignore for CTCP PING")
%checkboxping->$setchecked(%ProtectPing)

%checkboxfinger = $new(checkbox,%box)
%checkboxfinger->$setText("Enable ignore for CTCP FINGER")
%checkboxfinger->$setchecked(%ProtectFinger)

%checkboxversion = $new(checkbox,%box)
%checkboxversion->$setText("Enable ignore for CTCP VERSION")
%checkboxversion->$setchecked(%ProtectVersion)

%checkboxuserinfo = $new(checkbox,%box)
%checkboxuserinfo->$setText("Enable ignore for CTCP USERINFO")
%checkboxuserinfo->$setchecked(%ProtectFinger)

%checkboxclientinfo = $new(checkbox,%box)
%checkboxclientinfo->$setText("Enable ignore for CTCP CLIENTINFO")
%checkboxclientinfo->$setchecked(%ProtectClientInfo)

%checkboxsource = $new(checkbox,%box)
%checkboxsource->$setText("Enable ignore for CTCP SOURCE")
%checkboxsource->$setchecked(%ProtectSource)

%checkboxtime = $new(checkbox,%box)
%checkboxtime->$setText("Enable ignore for CTCP TIME")
%checkboxtime->$setchecked(%ProtectTime)

%checkboxpage = $new(checkbox,%box)
%checkboxpage->$setText("Enable ignore for CTCP PAGE")
%checkboxpage->$setchecked(%ProtectPage)

%checkboxavatar = $new(checkbox,%box)
%checkboxavatar->$setText("Enable ignore for CTCP AVATAR")
%checkboxavatar->$setchecked(%ProtectAvatar)

%checkboxdcc = $new(checkbox,%box)
%checkboxdcc->$setText("Enable ignore for CTCP DCC")
%checkboxdcc->$setchecked(%ProtectDCC)

%button = $new(button, %box)
%button->$setText("Close")
privateimpl(%widget,close)
{
    delete $$
}
objects.connect  %button clicked %widget close
%widget->$show()